Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1066 -r1070
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1066)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1070)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-04-27 14:56:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-04-28 14:27:36">
 <Class name="vhUnitTest.Manager">
 <Description>
 Adopted from InterSystems's %UnitTest.Manager by logist (Dimas ltd., Russia)
@@ -12,7 +12,7 @@
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62208,53791.127529</TimeChanged>
+<TimeChanged>62209,52056.366104</TimeChanged>
 <TimeCreated>59429,65352.216564</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -150,9 +150,6 @@
 <Method name="RunOneTestCase">
 <FormalSpec>suite:%String,class:%String</FormalSpec>
 <Implementation><![CDATA[
- 
- 
- 
  //Set suite = $P(class, ".", 1, $L(class,".") - 1)
  Set ..TestCaseCount = ..TestCaseCount + 1
  Do ..LogStateBegin(suite)
@@ -174,10 +171,11 @@
  . . . Quit
 MethError	. . . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),method)
  . . . Quit
- . Set $zt= "MethErrorOnAfterAllTests"
+ . Goto AfterAllTests
+MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnBeforeAllTests")
+AfterAllTests . Set $zt= "MethErrorOnAfterAllTests"
  . Set sc=testcase.OnAfterAllTests() If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnAfterAllTests") Quit
  . Goto Einde
-MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnBeforeAllTests") Goto Einde
 MethErrorOnAfterAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnAfterAllTests") Goto Einde
 Einde
  . Set $zt = ""
@@ -248,7 +246,6 @@
  Do ..PrintLine("LogStateStatus:"_message)
  Do ..PrintErrorLine("LogStateStatus:"_message)
  If '..Debug Quit
- Break  Quit
 ]]></Implementation>
 </Method>
 
@@ -392,5 +389,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3152521352"/>
+<Checksum value="2013130553"/>
 </Export>