Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml
===================================================================
diff -u -r49721 -r49722
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49721)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/LeverAdresUtils/ZetLeverAdressenBestaandeKlant/Test.cls.xml	(.../Test.cls.xml)	(revision 49722)
@@ -246,6 +246,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Klant krijgt adressen 1,2,3,4 binnen, 2,4 hebben Delivery-rol, 2 heeft gekend AxLocationId, er is bestaand adres 5 -&gt; 2 aanpassen, 4 opslaan, 1,3 negeren, 5 verwijderen">
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..MaakKlantMetLeveradressenMetAxLocationIds($lb(..#AxLocationId5))
+	Do Klant.VerwachtMethodCall("VoegToeLeverAdres",Adres).ExactAantalKeer(1)
+	
+	#dim BestaandAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Set LeverAdresFactoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresFactory).%New()
+	Do LeverAdresFactoryStub.VerwachtMethodCall("MaakLeverAdres").DanReturn(Adres).ExactAantalKeer(2)
+	
+	Set LandRepository = ##class(vhTest.Mock.DOM.common.Locatie.impl.LandRepository).%New()
+	Do LandRepository.IndienMethodCall("GeefViaLandCodeIso3",$$$ElkeWaarde).DanReturn(Adres.GeefLand())
+	
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId2).DanReturn($$$True)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaAXLeverAdresId",..#AxLocationId2).DanReturn(BestaandAdres).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("Bewaar",Klant,..Matches.Object(Adres)).ExactAantalKeer(1)
+	Do LeverAdresRepositoryMock.IndienMethodCall("BestaatViaAXLeverAdresId",..#AxLocationId4).DanReturn($$$False)
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("VerwijderViaAXLeverAdresId",..#AxLocationId5).ExactAantalKeer(1)
+	
+	Set LeverAdresUtils = ##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New(LandRepository,,LeverAdresFactoryStub,LeverAdresRepositoryMock)
+	#dim InkomendeAxCustomer As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCustMetAxLocationIds($lb(..#AxLocationId1,..#AxLocationId2,..#AxLocationId3,..#AxLocationId4))
+	Set InkomendeAxCustomer.PostalAddress.GetAt(1).Role.GetAt(1).Name = "NotDelivery"
+	Set InkomendeAxCustomer.PostalAddress.GetAt(3).Role.GetAt(1).Name = "NotDelivery"
+	Do LeverAdresUtils.ZetLeverAdressenBestaandeKlant(Klant,InkomendeAxCustomer)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do LeverAdresFactoryStub.Verifieer()
+	Do Klant.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="MaakKlantMetLeveradressenMetAxLocationIds">
 <FormalSpec>AxLocationIdLijst:%List</FormalSpec>
 <Private>1</Private>