Index: vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml =================================================================== diff -u -r46605 -r47119 --- vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 46605) +++ vhUnitTest/APPS/EC/Transport/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 47119) @@ -29,7 +29,17 @@ Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub) #dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefVerwijderViaOfferteIDAangeroepen(),1) @@ -44,7 +54,17 @@ Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub) #dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefMaakAangeroepen(),1) @@ -62,7 +82,17 @@ Set VerzendingMogelijkheidRepositorySpy = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy) + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00) + + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositorySpy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheidRepositorySpy.GeefLaatsteBewaardeVerzendingMogelijkheid().Verzending.AantalPalletten,2) @@ -79,10 +109,14 @@ Set VerzendingMogelijkheidRepositoryStub = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00) Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryStub) @@ -102,10 +136,14 @@ Set VerzendingMogelijkheidRepositoryStub = ##class(vhTest.Spy.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00) Set TransportFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryMock.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) Do TransportFactoryMock.VerwachtMethodCall("GeefVerkoopprijsBerekenaar", ..SessieDummy).DanReturn(VerkoopprijsBerekenaarMock) Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryMock) @@ -127,9 +165,13 @@ Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() Do TransportFirmaBepalerMock.VerwachtMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) - + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryStub) #dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy) @@ -151,10 +193,14 @@ Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + Set TransportFactoryMock = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() Do TransportFactoryMock.VerwachtMethodCall("GeefTransportFirmaBepaler",..SessieDummy).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFactoryMock) + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,TransportFactoryMock) #dim DummyVerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput,,..SessieDummy) Do TransportFactoryMock.Verifieer() @@ -171,7 +217,17 @@ Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) { @@ -197,7 +253,17 @@ Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) { @@ -220,7 +286,17 @@ #Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New() Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub) - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitelVoorEenVerzendingMogelijkheid]") @@ -242,7 +318,17 @@ #Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New() Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub) - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheden.Titel,"[ZendingDetailsTitel]") @@ -265,7 +351,17 @@ #Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New() Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub) - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"([AantalPalletten] 2)") @@ -288,7 +384,17 @@ #Dim VertaalAPIStub As vhTest.Mock.DOM.common.Transl.VertaalAPI = ##class(vhTest.Mock.DOM.common.Transl.VertaalAPI).%New() Do VertaalAPIStub.IndienMethodCall("GeefVertaler",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(VertalerStub) - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy, VertaalAPIStub, TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) Do $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking ,"") @@ -306,7 +412,17 @@ Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1) { @@ -329,7 +445,17 @@ Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub,VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) #dim LeverDatumDummy As %Date = ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10,##class(TECH.enu.DatePart).Dag()) @@ -348,7 +474,17 @@ Set VerzendingMogelijkheidRepositoryDummy = ##class(vhTest.Fake.APPS.EC.Transport.impl.VerzendingMogelijkheidRepository).%New() - Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy) + Set TransportFirmaBepalerMock = ##class(vhTest.Mock.APPS.EC.Transport.TransportFirmaBepaler).%New() + Do TransportFirmaBepalerMock.IndienMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) + + Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.APPS.EC.Transport.VerkoopprijsBerekenaar).%New() + Do VerkoopprijsBerekenaarMock.IndienMethodCall("BerekenVerkoopPrijs",$$$ElkeWaarde).DanReturn(44.5) + + Set TransportFactoryStub = ##class(vhTest.Mock.APPS.EC.Transport.impl.Factory).%New() + Do TransportFactoryStub.IndienMethodCall("GeefTransportFirmaBepaler", $$$ElkeWaarde).DanReturn(TransportFirmaBepalerMock) + Do TransportFactoryStub.IndienMethodCall("GeefVerkoopprijsBerekenaar", $$$ElkeWaarde).DanReturn(VerkoopprijsBerekenaarMock) + + Set VerzendingMogelijkhedenBepaler = ##class(APPS.EC.Transport.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryDummy,,TransportFactoryStub) #dim VerzendingMogelijkheden As APPS.EC.Transport.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput, ,..SessieDummy) If $$$AssertEquals(VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),2) { @@ -358,15 +494,25 @@ ]]> - +