vhUnitTest.TestCase vandaag ;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 ##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 ##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") ]]> 1 %Date 1 %Date 1 %Date