Index: vhUnitTest/BL/Legacy/EWORDS6.cls.xml =================================================================== diff -u -r72372 -r75040 --- vhUnitTest/BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 72372) +++ vhUnitTest/BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 75040) @@ -14,18 +14,23 @@ #dim Kantelpunt18h as %String = DateTimeApiFake.CurrentHorolog() set $P(Kantelpunt18h,",",2) = 18*3600 do DateTimeApiFake.SetHorolog(Kantelpunt18h) // zet de tijd + #Dim ProjectSettingAPI as vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance() + Do ProjectSettingAPI.IndienMethodCall("DD1StockerenBijVRDIndienVroegerGeproduceerd").DanReturn(0) do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(DateTimeApiFake.CurrentDate()) // doorgestuurd voor kantel -> vandaag - do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100000),$$$Vandaag,"Is voor vandaag .. 100000 heeft een vroeger kantel moment") + ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100000),$$$Vandaag,"Is voor vandaag .. 100000 heeft een vroeger kantel moment") // doorgestuurd na kantel -> Morgen - do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$Morgen,"Is voor andere dag .. 100001 heeft een langer kantel moment") + ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$Morgen,"Is voor andere dag .. 100001 heeft een langer kantel moment") do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..GeefVolgendeNietArbeidsdag()) do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$AndereDag,"Is voor andere dag .. want morgen is zogezegd geen arbeidsdag") do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..GeefVolgendeArbeidsdag()) - do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$Morgen,"Is voor morgen .. want morgen is zogezegd een arbeidsdag") + ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$Morgen,"Is voor morgen .. want morgen is zogezegd een arbeidsdag") + + do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..Geef2ArbeidsdagenVerder()) ;100003 = DD1 ORDER + ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100003),$$$Vandaag,"Tijdelijk Is voor vandaag .. want overmorgen is zogezegd een arbeidsdag") ]]> @@ -42,6 +47,13 @@ + + +1 +%Date + +