Index: vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml
===================================================================
diff -u -r55529 -r55530
--- vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55529)
+++ vhUnitTest/WSimpl/Halux/AAP/GebruikerService/GebruikerAanmelden/Test.cls.xml	(.../Test.cls.xml)	(revision 55530)
@@ -3,24 +3,33 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.GebruikerService.GebruikerAanmelden.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaardgedrag">
+<Parameter name="LoginCode">
+<Type>%String</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="Initialen">
+<Type>%String</Type>
+<Default>TVE</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##super(aTestName)
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	#dim Aanmelding As DOM.Halux.AAP.Aanmelding = ..MaakAanmelding()
 	
-	Set Aanmelding = ##class(DOM.Halux.AAP.Aanmelding).%New()
-	Set Aanmelding.Initialen = "TVE"
-	Set Aanmelding.ComputerNaam = "Een computernaam"
-	Set Aanmelding.AangemeldSinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
-	Set Aanmelding.LoginCode = "1234"
-	
 	Set AanmeldingRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.AanmeldingRepository).%New()
-	Do AanmeldingRepositoryMock.IndienMethodCall("ZoekViaLoginCodeEnInitialen","1234","TVE").DanReturn(..EmptyIterator())
+	Do AanmeldingRepositoryMock.IndienMethodCall("ZoekViaLoginCodeEnInitialen",..#LoginCode,..#Initialen).DanReturn(..EmptyIterator())
 	Do AanmeldingRepositoryMock.VerwachtMethodCall("Bewaar",..Matches.Object(Aanmelding)).ExactAantalKeer(1)
 	
-	Set GebruikerAanmeldenRequest = ##class(WS.Halux.AAP.GebruikerAanmeldenRequest).%New()
-	Set GebruikerAanmeldenRequest.Initialen = "TVE"
-	Set GebruikerAanmeldenRequest.Header.ComputerNaam = "Een computernaam"
-	Set GebruikerAanmeldenRequest.LoginCode = "1234"
+	#dim GebruikerAanmeldenRequest As WS.Halux.AAP.GebruikerAanmeldenRequest = ..MaakGebruikerAanmeldenRequest()
 		
 	Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock)
 	#dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest)
@@ -32,25 +41,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Aanmelden met LoginCode/Initialen die al bestaat">
+<Method name="Test: Aanmelden met LoginCode/Initialen combinatie die al bestaat">
 <Implementation><![CDATA[
-	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	#dim Aanmelding As DOM.Halux.AAP.Aanmelding = ..MaakAanmelding()
 	
-	Set Aanmelding = ##class(DOM.Halux.AAP.Aanmelding).%New()
-	Set Aanmelding.Initialen = "TVE"
-	Set Aanmelding.ComputerNaam = "Een computernaam"
-	Set Aanmelding.AangemeldSinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
-	Set Aanmelding.LoginCode = "1234"
-	
 	#dim Iterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Aanmelding)
 	Set AanmeldingRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.AanmeldingRepository).%New()
-	Do AanmeldingRepositoryMock.IndienMethodCall("ZoekViaLoginCodeEnInitialen","1234","TVE").DanReturn(Iterator)
+	Do AanmeldingRepositoryMock.IndienMethodCall("ZoekViaLoginCodeEnInitialen",..#LoginCode,..#Initialen).DanReturn(Iterator)
 	Do AanmeldingRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0)
 	
-	Set GebruikerAanmeldenRequest = ##class(WS.Halux.AAP.GebruikerAanmeldenRequest).%New()
-	Set GebruikerAanmeldenRequest.Initialen = "TVE"
-	Set GebruikerAanmeldenRequest.Header.ComputerNaam = "Een computernaam"
-	Set GebruikerAanmeldenRequest.LoginCode = "1234"
+	#dim GebruikerAanmeldenRequest As WS.Halux.AAP.GebruikerAanmeldenRequest = ..MaakGebruikerAanmeldenRequest()
 		
 	Set GebruikerService = ##class(WSimpl.Halux.AAP.GebruikerService).%New(AanmeldingRepositoryMock)
 	#dim Antwoord As WS.Halux.AAP.GebruikerAanmeldenResponse = GebruikerService.GebruikerAanmelden(GebruikerAanmeldenRequest)
@@ -61,6 +61,33 @@
 	Do AanmeldingRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakAanmelding">
+<Private>1</Private>
+<ReturnType>DOM.Halux.AAP.Aanmelding</ReturnType>
+<Implementation><![CDATA[
+	Set Aanmelding = ##class(DOM.Halux.AAP.Aanmelding).%New()
+	Set Aanmelding.Initialen = ..#Initialen
+	Set Aanmelding.ComputerNaam = "Een computernaam"
+	Set Aanmelding.AangemeldSinds = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+	Set Aanmelding.LoginCode = ..#LoginCode
+	
+	Quit Aanmelding
+]]></Implementation>
+</Method>
+
+<Method name="MaakGebruikerAanmeldenRequest">
+<Private>1</Private>
+<ReturnType>WS.Halux.AAP.GebruikerAanmeldenRequest</ReturnType>
+<Implementation><![CDATA[
+	Set GebruikerAanmeldenRequest = ##class(WS.Halux.AAP.GebruikerAanmeldenRequest).%New()
+	Set GebruikerAanmeldenRequest.Initialen = ..#Initialen
+	Set GebruikerAanmeldenRequest.Header.ComputerNaam = "Een computernaam"
+	Set GebruikerAanmeldenRequest.LoginCode = ..#LoginCode
+	
+	Quit GebruikerAanmeldenRequest
+]]></Implementation>
+</Method>
 </Class>