--- a/TestCase.st	Wed Aug 03 18:44:53 2011 +0200
+++ b/TestCase.st	Thu Aug 04 14:09:32 2011 +0200
@@ -425,6 +425,13 @@
     ^self class shouldFork
 
     "Created: / 13-06-2011 / 16:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testCount
+
+    ^1
+
+    "Created: / 04-08-2011 / 13:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestCase methodsFor:'accessing & queries'!
@@ -825,11 +832,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.70 2011-08-02 17:59:54 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.71 2011-08-04 12:09:32 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.70 2011-08-02 17:59:54 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.71 2011-08-04 12:09:32 vrany Exp $'
 !
 
 version_SVN