Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1065 -r1066
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1065)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1066)
@@ -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 11:49:39">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-04-27 14:56:32">
 <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,42576.680702</TimeChanged>
+<TimeChanged>62208,53791.127529</TimeChanged>
 <TimeCreated>59429,65352.216564</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -177,9 +177,10 @@
  . 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),"OnBeforeAllTests") Goto Einde
-MethErrorOnAfterAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError),"OnAfterAllTests") 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 = ""
  . Kill testcase
  Do ..LogStateEnd(suite)
  ;
@@ -347,6 +348,7 @@
     . Set success=..DisplayFails(suite,case,method,action)
     Quit success
  } Elseif $d(case) {
+	If 'i%TheLog(suite,case) write i%TheLog(suite,case),!,!
     Set method="" For  Set method=$o(i%TheLog(suite,case,method)) Quit:method=""  Do  Quit:success=0
     . Set success=..DisplayFails(suite,case,method)
     Quit success
@@ -390,5 +392,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1926792140"/>
+<Checksum value="3152521352"/>
 </Export>