Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r936 -r1063
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 936)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1063)
@@ -33,6 +33,16 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="LopendeTestMethode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataExporteerder">
+<Type>Tools.Test.DataExporteerder</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="SkipTestCase">
 <Description>
 Indien true wordt de gehele testcase niet uitgevoerd</Description>
@@ -61,11 +71,27 @@
 <Default>1</Default>
 </Parameter>
 
+<Parameter name="GebruikBestandTeller">
+<Type>%Boolean</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="GebruikFakeDataOverschrijver">
+<Type>%Boolean</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="VerwijderBestanden">
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
 <Method name="%OnNew">
 <FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	 Set r%Manager=AManager
+	 set ..DataExporteerder = ##class(Tools.Test.DataExporteerder).%New($this)
 	 Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -592,6 +618,42 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLopendeTestMethode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..LopendeTestMethode
+]]></Implementation>
+</Method>
+
+<Method name="ZetLopendeTestMethode">
+<FormalSpec>TestMethode:%String</FormalSpec>
+<Implementation><![CDATA[	set ..LopendeTestMethode = TestMethode
+]]></Implementation>
+</Method>
+
+<Method name="GebruiktBestandTeller">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..#GebruikBestandTeller
+]]></Implementation>
+</Method>
+
+<Method name="GebruiktFakeDataOverschrijver">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..#GebruikFakeDataOverschrijver
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="VerwijderBestanden">
+<Final>1</Final>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	do ##class(TECH.Context).Instance().GeefFileAPI().GeefDirectoryUtils().Delete(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
 </Class>