Index: vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml
===================================================================
diff -u -r44396 -r44927
--- vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 44396)
+++ vhUnitTest/DOM/VKP/Klant/impl/KlantAdresRepository/GeefLeverAdres/Test.cls.xml	(.../Test.cls.xml)	(revision 44927)
@@ -3,48 +3,66 @@
 <Class name="vhUnitTest.DOM.VKP.Klant.impl.KlantAdresRepository.GeefLeverAdres.Test">
 <Super>vhUnitTest.TestCase,vhTest.DOM.VKP.Klant.Base</Super>
 
-<Property name="Klant">
-<Type>vhTest.Fake.DOM.VKP.VanHoeckeKlant</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KlantRepository">
-<Type>DOM.VKP.Klant.impl.KlantAdresRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="Test: KlantAdresRepository geeft LeverAdres op basis van KlantId en LeverAdresId">
 <Implementation><![CDATA[
-	do ##super(aTestName)
+	#dim RandomKlantId As %String = "RandomKlantId"
 	
-	#Dim VerkoopAPIStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	#dim LeverAdresId1 As %String = "LeverAdresId1"
+	#dim LeverAdresId2 As %String = "LeverAdresId2"
 	
-	Set ..Klant = ##class(vhTest.Fake.DOM.VKP.VanHoeckeKlant).%New()
-	Set ..KlantRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New(VerkoopAPIStub)
+	#dim LeverAdresDummy1 As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(LeverAdresId1)
+	#dim LeverAdresDummy2 As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(LeverAdresId2)
 	
-	Do VerkoopAPIStub.IndienMethodCall("GeefKlant", ..#DummyKlantID).DanReturn(..Klant)
+	#dim KlantLeverAdressen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do KlantLeverAdressen.Insert(LeverAdresDummy1)
+	Do KlantLeverAdressen.Insert(LeverAdresDummy2)
+	
+	#dim KlantMock As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.VerwachtMethodCall("GeefLeverAdressen").DanReturn(KlantLeverAdressen)
+	
+	#dim VerkoopApiMock As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("GeefKlant", RandomKlantId).DanReturn(KlantMock)
+	
+	#dim KlantAdresRepository As DOM.VKP.Klant.KlantAdresRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New(VerkoopApiMock)
+	#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(RandomKlantId, LeverAdresId1)
+	
+	Do $$$AssertEquals(LeverAdres, LeverAdresDummy1)
+	
+	Do KlantMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="TestMetBestaandLeverAdresID">
+<Method name="Test: KlantAdresRepository raised Exceptie indien geen LeverAdres gevonden voor een LeverAdresId">
 <Implementation><![CDATA[
-	Do ..Klant.ZetLeverAdressen(3)
-
-	#Dim LeverAdres As DOM.VKP.LeverAdres = ..KlantRepository.GeefLeverAdres(..#DummyKlantID, 2)
+	#dim RandomKlantId As %String = "RandomKlantId"
+	#dim OnbestaandeLeverAdresId As %String = "OnbestaandeLeverAdresId"
 	
-	Do $$$AssertEquals(LeverAdres.GeefID(), "2")
+	#dim KlantStub As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantStub.IndienMethodCall("GeefLeverAdressen").DanReturn(##class(%ListOfObjects).%New())
+	
+	#dim VerkoopApiStub As vhTest.Mock.DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiStub.IndienMethodCall("GeefKlant", RandomKlantId).DanReturn(KlantStub)
+	
+	#dim KlantAdresRepository As DOM.VKP.Klant.KlantAdresRepository = ##class(DOM.VKP.Klant.impl.KlantAdresRepository).%New(VerkoopApiStub)
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres", OnbestaandeLeverAdresId, "bestaat niet voor klant", RandomKlantId)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	#dim LeverAdres As DOM.VKP.LeverAdres = KlantAdresRepository.GeefLeverAdres(RandomKlantId, "OnbestaandeLeverAdresId")
 ]]></Implementation>
 </Method>
 
-<Method name="TestMetOnbestaandLeverAdresID">
+<Method name="MaakLeverAdres">
+<FormalSpec>LeverAdresId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
-	#Dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("LeverAdres '3' bestaat niet voor klant 'K||1000'")
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
 	
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException, Substrings))
-	Do ..Klant.ZetLeverAdressen(2)
-
-	#Dim LeverAdres As DOM.VKP.LeverAdres = ..KlantRepository.GeefLeverAdres(..#DummyKlantID, 3)
+	Set LeverAdres.ID = LeverAdresId
+	
+	Quit LeverAdres
 ]]></Implementation>
 </Method>
 </Class>