do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService") 1 vhUnitTest.TestCase 62186,33133.173324 0 %Status %Status 0,"Er zijn nieuwe dueouts voorgesteld") Set Alternatief2 = Alternatieven.Lijst.GetAt(2) Do $$$AssertEquals(Alternatief2.ToeleveringNummer,298209,"Alternatief voor toelevering 298209") Do $$$AssertTrue(Alternatief2.Data.Count()>0,"Er zijn nieuwe dueouts voorgesteld") ]]> 0,"Een batch werd aangemaakt") Do $$$AssertTrue(Resultaat.IsGeslaagd,"De batch werd gemaakt") Do $$$AssertEquals(Resultaat.Errors.Count(),0,"Er zijn geen problemen") Do ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(Resultaat.BatchID) ]]>