Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml =================================================================== diff -u -r29059 -r30029 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml (.../TestHandel.cls.xml) (revision 29059) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml (.../TestHandel.cls.xml) (revision 30029) @@ -1,8 +1,6 @@ - -do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.WinkelkarService.TestHandel") 1 vhUnitTest.TestCase @@ -21,6 +19,11 @@ APPS.EC.Winkelkar.impl.WinkelkarService + +vhTest.Mock.APPS.EC.Winkelkar.impl.MaatwerklijnValidator +1 + + %Integer 2 @@ -29,10 +32,16 @@ %Status @@ -75,7 +84,6 @@ Do WebshopSessionServiceFake.IndienMethodCall( "GeefSFSSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID() ).DanReturn( SFSFictievePrijsSessie ) Do WebshopSessionServiceFake.IndienMethodCall( "BestaatWebshopSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID() ).DanReturn( 1 ) - #dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New() Do Lijn.ZetEenheidPrijsNettoExclBTW("Niet Te Gebruiken EenheidsPrijs") Do Lijn.ZetTotaalPrijs("Niet Te Gebruiken TotaalPrijs") @@ -135,10 +143,15 @@ #dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID() #dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID) #dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID) + #dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).CLade() + do ..MaatwerklijnValidatorMock.VerwachtMethodCall("Valideer", TAORKenmerken, $$$NieuwAantal).ExactAantalKeer(1).DanDoeNiks() + // Actie Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal) + do ..MaatwerklijnValidatorMock.Verifieer() + // Controle #dim LijnDtoNaWijziging As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID) Quit:('$$$AssertTrue($IsObject(LijnDtoNaWijziging)))