do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatchService") 1 vhUnitTest.TestCase 62167,40965.716886 0 %Status %Status 0,"Er is een batch id verkregen") Do $$$AssertEquals(Batch.GeefVroegsteDueOutTime(),$ZDT("62151,43200",3),"De due out time") Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.enu.ProductieGroep).Stuk(),"De productiegroep") Set BatchID = Batch.GeefBatchID() Set Batch = "" Do BatchService.VerwijderBatch(BatchID) Set Batch = BatchService.GeefBatch(BatchID) Do $$$AssertFalse($IsObject(Batch),"De batch is niet meer aanwezig in het systeem") ]]>