do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatchService") 1 vhUnitTest.TestCase 0 %Status %Status 0,"Er is een batch id verkregen") Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),"De productiegroep") Set BatchID = Batch.GeefBatchID() Set Batch = "" // Dezelfde toelevering nog eens in een batch proberen steken Set $ZTRAP = "Error" Set Batch = BatchService.GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een()) Goto Gelukt Error Set $ZTRAP = "" Set Exceptie = ##class(TECH.ExceptionHandler).Catch() Do $$$AssertTrue($IsObject(Exceptie),"Een exceptie werd aangemaakt") Do $$$AssertEquals(Exceptie.%ClassName(),"MaakBatchException","De exceptie is van het type MaakBatchException") Goto Verwijder Gelukt Do $$$AssertTrue(0,"De batch werd wel succesvol gemaakt, dit mag niet gebeuren") Verwijder Do BatchService.VerwijderBatch(BatchID) Set Batch = BatchService.GeefBatch(BatchID) Do $$$AssertFalse($IsObject(Batch),"De batch is niet meer aanwezig in het systeem") ]]>