Index: Tools/Test/TestCase/OnBeforeOneTest.cls.xml
===================================================================
diff -u -r1495 -r3041
--- Tools/Test/TestCase/OnBeforeOneTest.cls.xml	(.../OnBeforeOneTest.cls.xml)	(revision 1495)
+++ Tools/Test/TestCase/OnBeforeOneTest.cls.xml	(.../OnBeforeOneTest.cls.xml)	(revision 3041)
@@ -3,9 +3,27 @@
 <Class name="Tools.Test.TestCase.OnBeforeOneTest">
 <Super>%RegisteredObject</Super>
 
+<Property name="Cleaner">
+<Type>Tools.Test.VariabeleCleaner</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Cleaner = ##class(Tools.Test.VariabeleCleaner).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Exec">
 <FormalSpec>Debug:%Boolean</FormalSpec>
-<Implementation><![CDATA[	Do:('Debug) ##class(vhTest.Fake.TECH.Logging.impl.LoggingAPI).MockInstance()
+<Implementation><![CDATA[
+	Do ..Cleaner.Clean()
+	Do:('Debug) ##class(vhTest.Fake.TECH.Logging.impl.LoggingAPI).MockInstance()
 ]]></Implementation>
 </Method>
 </Class>