Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIDEnLeverAdresID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIDEnLeverAdresID/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIDEnLeverAdresID/Test.cls.xml	(revision 49780)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.LeverAdresRepository.GeefViaKlantIDEnLeverAdresID.Test">
+<Super>vhUnitTest.TestCase,vhTest.DOM.VKP.Klant.Base</Super>
+
+<Method name="Test: LeverAdresRepository geeft LeverAdres op basis van KlantId en LeverAdresId">
+<Implementation><![CDATA[
+	#dim RandomKlantId As %String = "RandomKlantId"
+	
+	#dim LeverAdresId1 As %String = "LeverAdresId1"
+	#dim LeverAdresId2 As %String = "LeverAdresId2"
+	
+	#dim LeverAdresDummy1 As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(LeverAdresId1)
+	#dim LeverAdresDummy2 As DOM.VKP.impl.LeverAdres = ..MaakLeverAdres(LeverAdresId2)
+	
+	#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 LeverAdresRepository As DOM.VKP.impl.LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,,,VerkoopApiMock)
+	#dim LeverAdres As DOM.VKP.LeverAdres = LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(RandomKlantId, LeverAdresId1)
+	
+	Do $$$AssertEquals(LeverAdres, LeverAdresDummy1)
+	
+	Do KlantMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: LeverAdresRepository raised Exceptie indien geen LeverAdres gevonden voor een LeverAdresId">
+<Implementation><![CDATA[
+	#dim RandomKlantId As %String = "RandomKlantId"
+	#dim OnbestaandeLeverAdresId As %String = "OnbestaandeLeverAdresId"
+	
+	#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 LeverAdresRepository As DOM.VKP.impl.LeverAdresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%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 = LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(RandomKlantId, "OnbestaandeLeverAdresId")
+]]></Implementation>
+</Method>
+
+<Method name="MaakLeverAdres">
+<FormalSpec>LeverAdresId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	
+	Set LeverAdres.ID = LeverAdresId
+	
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>