Index: vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml =================================================================== diff -u -r53430 -r53431 --- vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml (.../Test1.cls.xml) (revision 53430) +++ vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/ConfirmOrder/Test1.cls.xml (.../Test1.cls.xml) (revision 53431) @@ -157,32 +157,8 @@ Set DummyDocumentReferentiesNieuw.CommissieReferentie = "comref_LO - comref_KB" Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_LO - orderref_KB" Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef" - - Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer) - Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn($$$True) - Do ..OfferteVanHandel.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesKlantBestelling) - Do ..VanHoeckeOfferte.IndienMethodCall("GeefBestelOpmerking").DanReturn("BestelOpmerking") - Do ..VanHoeckeOfferte.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesLeverancierOfferte) - Do ..VanHoeckeOfferte.IndienMethodCall("GeefExterneId",).DanReturn($$$DummyInteger) - Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetDocumentReferenties",..Matches.Object(DummyDocumentReferentiesNieuw)).DanDoeNiks() - Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetBestelOpmerking","UT_DummyBestelRef - BestelOpmerking").DanDoeNiks() - - Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New() - Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanReturn(..OfferteVanHandel) - Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte) - Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New() - Do ExterneVerkoopService.IndienMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke()) - - Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New() - Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False) - - Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New() - Do IntractoInformeerderMock.IndienMethodCall("UpdateCartStatus",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks() - - #dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum) - - Do ..VanHoeckeOfferte.Verifieer() + Do ..AssertReferenties(DummyDocumentReferentiesKlantBestelling, DummyDocumentReferentiesLeverancierOfferte, DummyDocumentReferentiesNieuw) ]]> @@ -202,32 +178,8 @@ Set DummyDocumentReferentiesNieuw.CommissieReferentie = "comref_KB" Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_KB" Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef" - - Do ..OfferteVanHandel.IndienMethodCall("GeefID").DanReturn(..#OfferteNummer) - Do ..OfferteVanHandel.IndienMethodCall("IsBesteld").DanReturn($$$True) - Do ..OfferteVanHandel.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesKlantBestelling) - Do ..VanHoeckeOfferte.IndienMethodCall("GeefBestelOpmerking").DanReturn("BestelOpmerking") - Do ..VanHoeckeOfferte.IndienMethodCall("GeefDocumentReferenties").DanReturn(DummyDocumentReferentiesLeverancierOfferte) - Do ..VanHoeckeOfferte.IndienMethodCall("GeefExterneId",).DanReturn($$$DummyInteger) - Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetDocumentReferenties",..Matches.Object(DummyDocumentReferentiesNieuw)).DanDoeNiks() - Do ..VanHoeckeOfferte.VerwachtMethodCall("ZetBestelOpmerking","UT_DummyBestelRef - BestelOpmerking").DanDoeNiks() - - Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New() - Do OfferteServiceStub.IndienMethodCall("GeefOfferte",..#LageEDInummer).DanReturn(..OfferteVanHandel) - Do OfferteServiceStub.IndienMethodCall("GeefOfferteVanVH",..OfferteVanHandel).DanReturn(..VanHoeckeOfferte) - Set ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New() - Do ExterneVerkoopService.IndienMethodCall("BestelOfferte", ..VanHoeckeOfferte.GeefID(), ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke()) - - Set OfferteRepositoryMock = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New() - Do OfferteRepositoryMock.IndienMethodCall("BestaatViaExterneId",..#LageEDInummer).DanReturn($$$False) - - Set IntractoInformeerderMock = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New() - Do IntractoInformeerderMock.IndienMethodCall("UpdateCartStatus",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks() - - #dim BestelOfferteResultaat As WS.EC.Unishop.OrderConfirmation.ConfirmOrderResult =..GeefOrderServiceInternal(OfferteServiceStub,ExterneVerkoopService,IntractoInformeerderMock,OfferteRepositoryMock).ConfirmOrder(..#LageEDInummer,..Shop,..BestelReferentie,..GevraagdeLeverdatum) - - Do ..VanHoeckeOfferte.Verifieer() + Do ..AssertReferenties(DummyDocumentReferentiesKlantBestelling, DummyDocumentReferentiesLeverancierOfferte, DummyDocumentReferentiesNieuw) ]]> @@ -247,7 +199,15 @@ Set DummyDocumentReferentiesNieuw.CommissieReferentie = "comref_LO" Set DummyDocumentReferentiesNieuw.OrderReferentie = "orderref_LO" Set DummyDocumentReferentiesNieuw.KlantOrderNummer = "UT_DummyBestelRef" + + Do ..AssertReferenties(DummyDocumentReferentiesKlantBestelling, DummyDocumentReferentiesLeverancierOfferte, DummyDocumentReferentiesNieuw) +]]> + + +DummyDocumentReferentiesKlantBestelling:DOM.VKP.DocumentReferenties,DummyDocumentReferentiesLeverancierOfferte:DOM.VKP.DocumentReferenties,DummyDocumentReferentiesNieuw:DOM.VKP.DocumentReferenties +1 +