--- a/TestSuite.st	Thu Aug 04 14:09:32 2011 +0200
+++ b/TestSuite.st	Thu Aug 04 14:09:46 2011 +0200
@@ -72,6 +72,13 @@
 	resources := someOrderedTestResourceClasses
 !
 
+testCount
+
+    ^tests inject:0 into:[:count :test|count + test testCount]
+
+    "Created: / 04-08-2011 / 13:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 tests
 	tests isNil ifTrue: [tests := OrderedCollection new].
 	^tests
@@ -197,7 +204,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.26 2011-08-03 14:31:56 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.27 2011-08-04 12:09:46 vrany Exp $'
 !
 
 version_SVN