Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml
===================================================================
diff -u -r50848 -r50943
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50848)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 50943)
@@ -81,7 +81,6 @@
 
 	#dim HandelPersonalityMock As vhTest.Mock.DOM.common.HandelPersonality = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityMock.VerwachtMethodCall("GeefPrefix").DanReturn("daro_")
-	Do HandelPersonalityMock.IndienMethodCall("Accept",HandelPersonalityMock).DanReturn(..KlantData)
 	
 	#dim HandelPersonalityRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryMock.VerwachtMethodCall("GeefViaID", ..DecrypteerRequestStub.Header.PersonalityId).DanReturn(HandelPersonalityMock)
@@ -96,10 +95,10 @@
 	#dim HandelToegelatenLadetypesBepalerMock As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
 	Do HandelToegelatenLadetypesBepalerMock.VerwachtMethodCall("Bepaal", ..LoginParameters.PersonalityID).DanReturn(RandomToegelatenLadetypes)
 
-	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
-	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityMock,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
+	Set KlantDataBewaarderMock = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityMock,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
-	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock, HandelKlantDataRepositoryMock, HandelPersonalityRepositoryMock,..WebshopSessionServiceDummy, KortingBewaarderMock, ..UrlBepalerStub, HandelToegelatenLadetypesBepalerMock, KlantDataBewaarderStub)
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock, HandelKlantDataRepositoryMock, HandelPersonalityRepositoryMock,..WebshopSessionServiceDummy, KortingBewaarderMock, ..UrlBepalerStub, HandelToegelatenLadetypesBepalerMock, KlantDataBewaarderMock)
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.GebruikerId, "1")
@@ -118,6 +117,7 @@
 	Do HandelPersonalityRepositoryMock.Verifieer()
 	Do KortingBewaarderMock.Verifieer()
 	Do HandelToegelatenLadetypesBepalerMock.Verifieer()
+	Do KlantDataBewaarderMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -187,8 +187,8 @@
 	Set ..DecrypteerRequestStub.DataOpt = ""
 	Set ..DecrypteerRequestStub.Ref = ""
 
-	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
-	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
+	Set LoginParameterBepalerMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(0).DanReturn(..LoginParameters)
 	
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
@@ -206,11 +206,12 @@
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
 		
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,HandelKlantDataRepositoryStub,HandelPersonalityRepositoryStub,..WebshopSessionServiceDummy,..KortingBewaarderDummy,..UrlBepalerStub)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock,HandelKlantDataRepositoryStub,HandelPersonalityRepositoryStub,..WebshopSessionServiceDummy,..KortingBewaarderDummy,..UrlBepalerStub)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 		
 	Do $$$AssertEquals(Response.IsGeldig,"0")
+	Do LoginParameterBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -227,22 +228,23 @@
 	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
 	Do HandelPersonalityStub.IndienMethodCall("Accept",HandelPersonalityStub).DanReturn(..KlantData)
 
-	Set WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionService.IndienMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).DanReturn("42").ExactAantalKeer(1)
+	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).DanReturn("42").ExactAantalKeer(1)
 
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
 	
 	Set KlantDataBewaarderMock = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionService,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionServiceMock,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.KlantId,"42")
 	Do $$$AssertEquals(Response.IsGeldig,$$$True)
 	Do KlantDataBewaarderMock.Verifieer()
+	Do WebshopSessionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -259,22 +261,23 @@
 	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
 	Do HandelPersonalityStub.IndienMethodCall("Accept",HandelPersonalityStub).DanReturn(..KlantData)
 
-	Set WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionService.IndienMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).DanReturn(42).ExactAantalKeer(0)
+	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).DanReturn(42).ExactAantalKeer(0)
 
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
 	
 	Set KlantDataBewaarderMock = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionService,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionServiceMock,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.KlantId,"5")
 	Do $$$AssertEquals(Response.IsGeldig,$$$True)
 	Do KlantDataBewaarderMock.Verifieer()
+	Do WebshopSessionServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -284,30 +287,32 @@
 	Set ..LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Daro()
 	Set ..LoginParameters.KlantNaam = "Een nieuwe naam"
 	
-	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
-	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
+	Set LoginParameterBepalerMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
 
 	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
 	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).Daro())
 	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("daro_")
 	Do HandelPersonalityStub.IndienMethodCall("Accept",HandelPersonalityStub).DanReturn(..KlantData)
 
-	Set WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionService.IndienMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).ExactAantalKeer(0)
+	Set WebshopSessionServiceMock = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	Do WebshopSessionServiceMock.VerwachtMethodCall("GeefVolgendeKlantID",##class(DOM.common.enu.Personality).Daro()).ExactAantalKeer(0)
 
 	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
 	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).Daro()).DanReturn(HandelPersonalityStub)
 	
 	Set KlantDataBewaarderMock = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderMock.VerwachtMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks().ExactAantalKeer(1)
 	
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionService,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,WebshopSessionServiceMock,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderMock)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertEquals(Response.KlantId,"5")
 	Do $$$AssertEquals(Response.IsGeldig,$$$True)
 	Do KlantDataBewaarderMock.Verifieer()
+	Do WebshopSessionServiceMock.Verifieer()
+	Do LoginParameterBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -329,18 +334,19 @@
 	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
 	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
 	
-	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
-	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
+	Set LoginParameterBepalerMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
 	
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,..WebshopSessionServiceDummy,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderStub)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock,..HandelKlantDataRepositoryDummy,HandelPersonalityRepositoryStub,..WebshopSessionServiceDummy,..KortingBewaarderDummy,..UrlBepalerStub,,KlantDataBewaarderStub)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do $$$AssertFalse(Response.IsGeldig)
+	Do LoginParameterBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: controle op Ref en Hostname niet nodig indien Ref leeg is">
+<Method name="aTest: controle op Ref en Hostname niet nodig indien Ref leeg is">
 <Implementation><![CDATA[
 	Set ..LoginParameters.KlantID = ""
 	Set ..LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).Daro()
@@ -349,17 +355,18 @@
 	Set ..DecrypteerRequestStub.Hostname = "eenFouteHostname"
 	Set ..DecrypteerRequestStub.Ref = ""
 	
-	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
-	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
+	Set LoginParameterBepalerMock = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerMock.VerwachtMethodCall("GeefLoginParameters",..DecrypteerRequestStub.Ref, ..DecrypteerRequestStub.DataOpt, ..DecrypteerRequestStub.Header.Taal, ..DecrypteerRequestStub.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(..LoginParameters)
 	
 	Set UrlBepalerMock = ##class(vhTest.Mock.APPS.EC.Webshop.UrlBepaler).%New()
 	Do UrlBepalerMock.VerwachtMethodCall("GeefUrl","10").DanReturn("darotest.taorbox.com").ExactAantalKeer(0)
 	
-	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,..HandelKlantDataRepositoryDummy,..HandelPersonalityRepositoryDummy,..WebshopSessionServiceDummy,..KortingBewaarderDummy,UrlBepalerMock)
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerMock,..HandelKlantDataRepositoryDummy,..HandelPersonalityRepositoryDummy,..WebshopSessionServiceDummy,..KortingBewaarderDummy,UrlBepalerMock)
 	
 	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
 	
 	Do UrlBepalerMock.Verifieer()
+	Do LoginParameterBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>