Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestBatchService") vhUnitTest.TestCase APPS.Halux.common.Batch 1 %String IntegratieTest %String TestBatchService aTestName:%String aTestName:%String 0) Do $$$AssertEquals(AangemaakteMaatwerkBatch.AantalProducten,9) Do $$$AssertEquals(AangemaakteMaatwerkBatch.AantalSpecials,9) Do $$$AssertEquals(AangemaakteMaatwerkBatch.ID,..AangemaakteBatch.GeefID()) Do $$$AssertEquals(AangemaakteMaatwerkBatch.Categorie,##class(APPS.Halux.common.enu.Categorie).Tandembox()) Do $$$AssertEquals(AangemaakteMaatwerkBatch.Datum,Datum) Do $$$AssertFalse(AangemaakteMaatwerkBatch.IsASAP) Do $$$AssertEquals(AangemaakteMaatwerkBatch.Status,##class(APPS.Halux.common.enu.BatchStatus).Manueel()) Do $$$AssertEquals(AangemaakteMaatwerkBatch.BodemKleuren.Count(),2) Do $$$AssertEquals(AangemaakteMaatwerkBatch.BodemKleuren.GetAt(1),"DG") Do $$$AssertEquals(AangemaakteMaatwerkBatch.BodemKleuren.GetAt(2),"LG") Do $$$AssertEquals(AangemaakteMaatwerkBatch.AantalTipon,3) Do $$$AssertEquals(AangemaakteMaatwerkBatch.AantalUitsparing,3) Do $$$AssertTrue(AangemaakteMaatwerkBatch.Volgnummer>0) Do $$$AssertEquals(AangemaakteMaatwerkBatch.ProductieGroep.GetAt(1),##class(APPS.Halux.common.enu.ProductieGroep).Stuk()) ]]> =1,"Er zijn actieve categorieën") Do $$$AssertTrue(ActieveCategorieen.Find("UnitTestCategorie1"),"Actief") Do $$$AssertFalse(ActieveCategorieen.Find("UnitTestCategorie2"),"Niet actief en niet gevonden.") Do $$$AssertFalse(ActieveCategorieen.Find("UnitTestCategorie3"),"Niet actief, want de UT_BatchImpl geeft geen toeleveringen terug.") Set Query = "DELETE APPS_Halux_common_impl.BatchImpl WHERE Categorie = ?" Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie1")) Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie2")) Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie3")) ]]> 1 ToeleveringID:%String,OrderID:%String 1 ToeleveringID:%String,Datum:%Date 1 1 OrderID:%String,ToeleveringID:%String 1