Index: vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/Test.cls.xml
===================================================================
diff -u -r1091 -r1131
--- vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/Test.cls.xml	(.../Test.cls.xml)	(revision 1091)
+++ vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/Test.cls.xml	(.../Test.cls.xml)	(revision 1131)
@@ -1,12 +1,18 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.Test">
+<IncludeCode>TECH.Background.BackgroundJob</IncludeCode>
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="BackgroundJobID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="TestNietActief">
 <Implementation><![CDATA[
 	set BackgroundJobMgr = ##class(TECH.Background.impl.BackgroundJobMgr).%New()
-	do $$$AssertFalse(BackgroundJobMgr.IsBackgroundJobActief(##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1)))
+	do $$$AssertFalse(BackgroundJobMgr.IsBackgroundJobActief(..BackgroundJobID))
 ]]></Implementation>
 </Method>
 
@@ -15,14 +21,23 @@
 	set BackgroundJobMgr = ##class(TECH.Background.impl.BackgroundJobMgr).%New()
 	
 	set BackgroundJobStarter = ##class(TECH.Background.impl.BackgroundJobStarter).%New()
-	do BackgroundJobStarter.StartBackgroundJob(##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1))
-	do $$$AssertTrue(BackgroundJobMgr.IsBackgroundJobActief(##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1)))
+	do BackgroundJobStarter.StartBackgroundJob(..BackgroundJobID)
+	do $$$AssertTrue(BackgroundJobMgr.IsBackgroundJobActief(..BackgroundJobID))
 	
 	set BackgroundJobStopper = ##class(TECH.Background.impl.BackgroundJobStopper).%New()
-	do BackgroundJobStopper.StopBackgroundJob(##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1))
-	do $$$AssertFalse(BackgroundJobMgr.IsBackgroundJobActief(##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1)))
+	do BackgroundJobStopper.StopBackgroundJob(..BackgroundJobID)
+	do $$$AssertFalse(BackgroundJobMgr.IsBackgroundJobActief(..BackgroundJobID))
 ]]></Implementation>
 </Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	set ..BackgroundJobID = ##class(vhUnitTest.TECH.Background.impl.BackgroundJobMgr.IsBackgroundJobActief.BackgroundJob).%ClassName(1)
+	Kill $$$BackgroundJobGlobal(..BackgroundJobID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/TECH/BackgroundProcess/ProcessParameters/ExportImport/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/ProcessParameters/ExportImport/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/ProcessParameters/ExportImport/Test.cls.xml	(revision 1131)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.ProcessParameters.ExportImport.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefParameterList">
+<Implementation><![CDATA[
+	set ProcessParameters = ##class(TECH.BackgroundProcess.ProcessParameters).%New()
+	set ProcessParameters.Parameters = ##class(TECH.ListUtils).CreateListOfDataTypes("Param1","Param2","Param3")
+	#dim String As %String = ProcessParameters.GeefParametersList()
+
+	#dim ExpectedList As %List = $listbuild("Param1","Param2","Param3")
+	do $$$AssertEquals(String,ExpectedList)
+]]></Implementation>
+</Method>
+
+<Method name="TestZetParameterList">
+<Implementation><![CDATA[
+	#dim List As %List = $listbuild("Param1","Param2","Param3")
+		
+	set ProcessParameters = ##class(TECH.BackgroundProcess.ProcessParameters).%New()
+	do ProcessParameters.ZetParameterList(List)
+	
+	#dim ExpectedList As %List = ##class(TECH.ListUtils).CreateListOfDataTypes("Param1","Param2","Param3") 
+	do $$$AssertEqualsList(ProcessParameters.Parameters,ExpectedList)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>