Index: vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml
===================================================================
diff -u -r29059 -r33346
--- vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Planning/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 33346)
@@ -292,17 +292,20 @@
 	#dim Query As %String = "INSERT INTO vhUnitTest_APPS_Halux_Planning_impl.BatchImpl (Categorie,Status) VALUES (?,?)"
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie1",##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
 	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie2",##class(APPS.Halux.common.enu.BatchStatus).Manueel()))
+	Do ExecDynQuery^vhLib.Query(Query,$LB("UnitTestCategorie3",##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
 	
 	Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
 	#dim ActieveCategorieen As List Of APPS.Halux.common.enu.Categorie = BatchService.GeefActieveCategorieen()
-	Do $$$AssertTrue(BatchService.GeefActieveCategorieen().Count()>=1,"Er zijn actieve categorieën")
+	Do $$$AssertTrue(ActieveCategorieen.Count()>=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"))
 ]]></Implementation>
 </Method>