Index: WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml =================================================================== diff -u -r37235 -r37237 --- WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (.../TransportFirmaBepalerFactory.cls.xml) (revision 37235) +++ WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (.../TransportFirmaBepalerFactory.cls.xml) (revision 37237) @@ -1,7 +1,7 @@ -TECH.RegisteredObject +TECH.Mockable WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml =================================================================== diff -u --- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (revision 0) +++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (revision 37237) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur. +1 +WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory,Tools.Mock.MockClassBase +right + + +WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar + + + + + + Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml =================================================================== diff -u -r37114 -r37237 --- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37114) +++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml (.../ZendingDetails.cls.xml) (revision 37237) @@ -23,18 +23,18 @@ 1 - -WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar + +WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory 1 - -WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler + +WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory 1 -TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,VerkoopprijsBerekenaar:WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar,TransportFirmaBepaler:WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler +TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,VerkoopprijsBerekenaarFactory:WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory,TransportFirmaBepalerFactory:WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory 1 1 %Status @@ -43,8 +43,8 @@ Set ..TransportOfferteService = $$$Implementation(TransportOfferteService, ##class(APPS.TRANSP.impl.OfferteService).%New()) Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()) Set ..VertaalAPI = $$$Inject(VertaalAPI, ##class(DOM.DomeinContext).Instance().GeefVertaalAPI()) - Set ..VerkoopprijsBerekenaar = $$$Inject(VerkoopprijsBerekenaar,##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New().GeefVerkoopprijsBerekenaar()) - Set ..TransportFirmaBepaler = $$$Inject(TransportFirmaBepaler,##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New().GeefTransportFirmaBepaler()) + Set ..VerkoopprijsBerekenaarFactory = $$$Inject(VerkoopprijsBerekenaarFactory,##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()) + Set ..TransportFirmaBepalerFactory = $$$Inject(TransportFirmaBepalerFactory,##class(WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New()) quit $$$OK ]]> @@ -71,7 +71,7 @@ #dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New() #dim OfferteDetails As List Of %String = ##class(%ListOfDataTypes).%New() - #dim TransportFirmas As TECH.ListIterator = ..TransportFirmaBepaler.GeefTransportFirmas() + #dim TransportFirmas As TECH.ListIterator = ..TransportFirmaBepalerFactory.GeefTransportFirmaBepaler().GeefTransportFirmas() While TransportFirmas.HasNext() { #dim TransportFirma As %String = TransportFirmas.Next() try { @@ -227,7 +227,7 @@ Set VerzendingItem.Code = VerzendingMogelijkheid.Code Set VerzendingItem.Duurtijd = VerzendingMogelijkheid.Duurtijd Set VerzendingItem.AankoopPrijs = VerzendingMogelijkheid.VerkoopPrijs - Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem) + Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().BerekenVerkoopPrijs(OfferteItem) Set VerzendingItem.LeverDag = VerzendingMogelijkheid.LeverDag Set VerzendingItem.LeverDatum = VerzendingMogelijkheid.LeverDatum Set VerzendingItem.LeverTijd = VerzendingMogelijkheid.LeverTijd Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml =================================================================== diff -u -r37175 -r37237 --- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37175) +++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml (.../Test.cls.xml) (revision 37237) @@ -70,8 +70,11 @@ Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar).%New() Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00) + + Set VerkoopprijsBerekenaarFactoryMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New() + Do VerkoopprijsBerekenaarFactoryMock.IndienMethodCall("GeefVerkoopprijsBerekenaar").DanReturn(VerkoopprijsBerekenaarMock) - Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarMock) + Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarFactoryMock) #dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput) Do VerkoopprijsBerekenaarMock.Verifieer() @@ -91,7 +94,10 @@ Set TransportFirmaBepalerMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler).%New() Do TransportFirmaBepalerMock.VerwachtMethodCall("GeefTransportFirmas").DanReturn(##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()) - Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerMock) + Set TransportFirmaBepalerFactoryMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory).%New() + Do TransportFirmaBepalerFactoryMock.IndienMethodCall("GeefTransportFirmaBepaler").DanReturn(TransportFirmaBepalerMock) + + Set VerzendingMogelijkhedenBepaler = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,,TransportFirmaBepalerFactoryMock) #dim DummyVerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = VerzendingMogelijkhedenBepaler.GeefZendingDetails(..StandaardBerekenInput) Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml =================================================================== diff -u --- vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (revision 0) +++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (revision 37237) @@ -0,0 +1,18 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory + + +WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar + + + + + + Index: WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml =================================================================== diff -u -r37235 -r37237 --- WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (.../VerkoopprijsBerekenaarFactory.cls.xml) (revision 37235) +++ WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml (.../VerkoopprijsBerekenaarFactory.cls.xml) (revision 37237) @@ -1,7 +1,7 @@ -TECH.RegisteredObject +TECH.Mockable WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml =================================================================== diff -u --- vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (revision 0) +++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (revision 37237) @@ -0,0 +1,20 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur. +1 +WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory,Tools.Mock.MockClassBase +right + + +WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler + + + + + + Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml =================================================================== diff -u --- vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (revision 0) +++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/impl/TransportFirmaBepalerFactory.cls.xml (revision 37237) @@ -0,0 +1,18 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +WS.EC.Unishop.InternationaleZending.impl.TransportFirmaBepalerFactory + + +WS.EC.Unishop.InternationaleZending.TransportFirmaBepaler + + + + + +