--- a/TestResult.st	Wed Aug 03 16:32:44 2011 +0200
+++ b/TestResult.st	Wed Aug 03 18:44:41 2011 +0200
@@ -232,31 +232,31 @@
 
 !TestResult methodsFor:'running'!
 
-doRunCase: aTestCase
-
-    "Actually runs the case. The TestCase>>runCase itself calls
+performCase:aTestCase 
+    "Actually performs the case. The TestCase>>runCase itself calls
      a setUp/tearDown methods. The possible error/failure is handled
      in TestResult>>runCase:. This method is meant to be overriden by
      custom TestResult subclasses."
-
+    
     aTestCase runCase.
 
     "Modified: / 02-08-2011 / 18:10:09 / cg"
     "Created: / 03-08-2011 / 14:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-runCase: aTestCase
-
-        [self doRunCase: aTestCase.
-        self addPass: aTestCase]
-                sunitOn: self exceptions
-                do: [:ex | 
-                    aTestCase exceptionInfoString:(self exceptionInfoStringFor:ex in:aTestCase).
-                    ex sunitAnnounce: aTestCase toResult: self
-                ].
+runCase:aTestCase 
+    
+    [ 
+        self performCase:aTestCase.
+        self addPass:aTestCase 
+    ] sunitOn:self exceptions do: [:ex | 
+        aTestCase exceptionInfoString:(self exceptionInfoStringFor:ex in:aTestCase).
+        ex sunitAnnounce:aTestCase toResult:self 
+    ].
 
     "Modified: / 02-08-2011 / 18:10:09 / cg"
     "Modified: / 03-08-2011 / 14:08:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 03-08-2011 / 17:20:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestResult methodsFor:'testing'!
@@ -293,11 +293,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.25 2011-08-03 14:31:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.26 2011-08-03 16:44:41 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.25 2011-08-03 14:31:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.26 2011-08-03 16:44:41 vrany Exp $'
 !
 
 version_SVN