Index: vhUnitTest/TestCase.cls.xml
===================================================================
diff -u -r734 -r867
--- vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 734)
+++ vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 867)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:13">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 15:02:15">
 <Class name="vhUnitTest.TestCase">
 <Description>
 Adopted from InterSystems's %UnitTest.TestCase by logist (Dimas ltd., Russia)
@@ -11,7 +11,7 @@
 <IncludeGenerator>%outUnitTest,vhUnitTest</IncludeGenerator>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62111,57066.43973</TimeChanged>
+<TimeChanged>62131,54184.589092</TimeChanged>
 <TimeCreated>59429,64520.016065</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -33,13 +33,27 @@
 
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[ Quit $$$OK
+<Implementation><![CDATA[
+ set %VarsInMemoryBefore = 0
+ set Var = "%" for  set Var = $order(@Var) quit:Var=""  set %VarsInMemoryBefore=$i(%VarsInMemoryBefore)
+ 
+ do WLIP^vhDBG(195,##this.%ClassName(1)_" before "_%VarsInMemoryBefore)
+ 
+ Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[ Quit $$$OK
+<Implementation><![CDATA[
+ set %VarsInMemoryAfter = 0
+ set Var = "%" for  set Var = $order(@Var) quit:Var=""  set %VarsInMemoryAfter=$i(%VarsInMemoryAfter)
+ 
+ do WLIP^vhDBG(195,##this.%ClassName(1)_" After "_%VarsInMemoryAfter)
+ do WLIP^vhDBG(195,"")
+ 
+ if %VarsInMemoryAfter'=%VarsInMemoryBefore do ..Fail("Vars niet mooi opgekuisd")
+ Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -211,5 +225,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1971737205"/>
+<Checksum value="3407290679"/>
 </Export>