Index: vhTest/Mock/Derde/EC/ToegangRepository.cls.xml
===================================================================
diff -u -r40916 -r40967
--- vhTest/Mock/Derde/EC/ToegangRepository.cls.xml	(.../ToegangRepository.cls.xml)	(revision 40916)
+++ vhTest/Mock/Derde/EC/ToegangRepository.cls.xml	(.../ToegangRepository.cls.xml)	(revision 40967)
@@ -36,6 +36,13 @@
 <Implementation><![CDATA[	Quit ..VerwerkMethodCall("VerwijderViaID", ID)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekGebruikerIDViaEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("ZoekGebruikerIDViaEmail", Email)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Blum/impl/UserCartValidator/GeefGebruikerID/Test.cls.xml
===================================================================
diff -u -r40960 -r40967
--- vhUnitTest/APPS/Blum/impl/UserCartValidator/GeefGebruikerID/Test.cls.xml	(.../Test.cls.xml)	(revision 40960)
+++ vhUnitTest/APPS/Blum/impl/UserCartValidator/GeefGebruikerID/Test.cls.xml	(.../Test.cls.xml)	(revision 40967)
@@ -7,76 +7,54 @@
 <Default>dummy@dum.my</Default>
 </Parameter>
 
-<Property name="UserCart">
-<Type>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="DummyToegangGebruikers">
-<Type>%ListOfObjects</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="Test: bestaande gebruiker">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ..UserCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
-	Set ..UserCart.userName = ..#DummyMail
+	Set GebruikerIDLijst = ##class(%ListOfDataTypes).%New()
+	Do GebruikerIDLijst.Insert("DummyID1")
+	
+	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(GebruikerIDLijst)
+	
+	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New(ToegangRepositoryMock)
+	#dim GebruikerID = Valideerder.GeefGebruikerID(..#DummyMail)
+	
+	Do $$$AssertEquals(GebruikerID, "DummyID1")
+	Do ToegangRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="Test: niet bestaande gebruiker">
 <Implementation><![CDATA[
-	Do ##class(TECH.ResultSet).Create("DELETE Derde_EC.Toegang WHERE emailAdres = ?",$listbuild(..#DummyMail))
-	Do ##super(aTestName)
-]]></Implementation>
-</Method>
+	Set GebruikerIDLijst = ##class(%ListOfDataTypes).%New()
 
-<Method name="TestBestaandeGebruiker">
-<Implementation><![CDATA[
-	Do ..MaakDummyToegangsGebruiker(1)
-	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New()
-	#dim GebruikerID = Valideerder.GeefGebruikerID(..UserCart.userName)
-	Do $$$AssertEquals(GebruikerID, ..DummyToegangGebruikers.GetAt(1).GeefID())
-]]></Implementation>
-</Method>
-
-<Method name="TestOnBestaandeGebruiker">
-<Implementation><![CDATA[
+	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.IndienMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(GebruikerIDLijst)
+	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het emailadres, " _ ..#DummyMail _ ", is niet gekend.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie",Substrings))
 
-	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New()
-	Do Valideerder.GeefGebruikerID(..UserCart.userName)
+	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New(ToegangRepositoryMock)
+	Do Valideerder.GeefGebruikerID(..#DummyMail)
 ]]></Implementation>
 </Method>
 
-<Method name="TestEmailKomtMeerdereKerenVoor">
+<Method name="Test: Email komt meerdere keren voor">
 <Implementation><![CDATA[
-	Do ..MaakDummyToegangsGebruiker(1)
-	Do ..MaakDummyToegangsGebruiker(1)
-	Do ..MaakDummyToegangsGebruiker(1)
+	Set GebruikerIDLijst = ##class(%ListOfDataTypes).%New()
+	Do GebruikerIDLijst.Insert("DummyID1")
+	Do GebruikerIDLijst.Insert("DummyID2")
+	Do GebruikerIDLijst.Insert("DummyID3")
+	
+	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.IndienMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(GebruikerIDLijst)
+	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er zijn meerdere records gevonden voor het emailadres, " _ ..#DummyMail)
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Blum.OnlineProductConfigurator.impl.EmailNietUniekExceptie",Substrings))
 
-	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New()
-	Do Valideerder.GeefGebruikerID(..UserCart.userName)
+	Set Valideerder = ##class(APPS.Blum.impl.UserCartValidator).%New(ToegangRepositoryMock)
+	Do Valideerder.GeefGebruikerID(..#DummyMail)
 ]]></Implementation>
 </Method>
-
-<Method name="MaakDummyToegangsGebruiker">
-<FormalSpec>HasAcces:%Boolean</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set DummyToegangGebruiker = ##class(Derde.EC.Toegang).%New()
-	Set DummyToegangGebruiker.EmailAdres = ..#DummyMail
-	Set DummyToegangGebruiker.HasAccess = HasAcces
-	Do DummyToegangGebruiker.Save()
-	Do ..DummyToegangGebruikers.Insert(DummyToegangGebruiker)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Blum/impl/UserCartValidator.cls.xml
===================================================================
diff -u -r40960 -r40967
--- APPS/Blum/impl/UserCartValidator.cls.xml	(.../UserCartValidator.cls.xml)	(revision 40960)
+++ APPS/Blum/impl/UserCartValidator.cls.xml	(.../UserCartValidator.cls.xml)	(revision 40967)
@@ -25,7 +25,7 @@
 <FormalSpec>Email:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim GebruikerLijst = ..ToegangRepository.ZoekGebruikerIDViaEmail(Email)
+	#dim GebruikerLijst As %ListOfDataTypes = ..ToegangRepository.ZoekGebruikerIDViaEmail(Email)
 	If GebruikerLijst.Count() = 0 {
 		Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(Email)
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)