Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml =================================================================== diff -u -r48553 -r48560 --- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 48553) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/LeverAdresMaker/MaakLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 48560) @@ -87,20 +87,25 @@ Set LeverAdresRepositoryStub = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New() Do LeverAdresRepositoryStub.IndienMethodCall("BestaatViaAXLeverAdresId",..#AXLeverAdresId).DanReturn($$$True) - Do LeverAdresRepositoryStub.IndienMethodCall("GeefViaAXLeverAdresId",..#AXLeverAdresId).DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()) + #dim StandaardAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch() + Do StandaardAdres.ZetTelefoon("+123456789") + Do LeverAdresRepositoryStub.IndienMethodCall("GeefViaAXLeverAdresId",..#AXLeverAdresId).DanReturn(StandaardAdres) + + Set LeverAdresMaker = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker).%New(ProjectSettingsApiStub,LeverAdresRepositoryStub) #dim LeverAdres As DOM.VKP.impl.LeverAdres = LeverAdresMaker.MaakLeverAdres(StandaardOrderHeader) Do $$$AssertEquals(LeverAdres.ID,"") - Do $$$AssertEquals(LeverAdres.Gemeente,StandaardOrderHeader.DlvAddrCity) - Do $$$AssertEquals(LeverAdres.Postcode,StandaardOrderHeader.DlvAddrZipCode) - Do $$$AssertEquals(LeverAdres.Straat,StandaardOrderHeader.DlvAddrStreet1) - Do $$$AssertEquals(LeverAdres.LandNr,StandaardOrderHeader.DlvAddrCountry) - Do $$$AssertEquals(LeverAdres.Naam,StandaardOrderHeader.DeliveryName) - Do $$$AssertEquals(LeverAdres.Telefoon,"+3237601900") + Do $$$AssertEquals(LeverAdres.Gemeente,StandaardAdres.GeefGemeente()) + Do $$$AssertEquals(LeverAdres.Postcode,StandaardAdres.GeefPostcode()) + Do $$$AssertEquals(LeverAdres.Straat,StandaardAdres.GeefStraat()) + Do $$$AssertEquals(LeverAdres.LandNr,StandaardAdres.GeefLandNr()) + Do $$$AssertEquals(LeverAdres.Naam,StandaardAdres.GeefNaam()) + Do $$$AssertEquals(LeverAdres.Telefoon,"+123456789") Do $$$AssertEquals(LeverAdres.AxLeveradresId,..#AXLeverAdresId) + Do $$$AssertEquals(LeverAdres.ID,"") ]]>