--- a/TestSuite.st	Wed Mar 07 17:26:05 2018 +0100
+++ b/TestSuite.st	Wed Mar 07 17:26:12 2018 +0100
@@ -37,6 +37,12 @@
 	aCollection do: [:eachTest | self addTest: eachTest]
 !
 
+countTests
+    ^ (tests ? #()) inject:0 into:[:count :test | count + test countTests]
+
+    "Created: / 04-08-2011 / 13:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 defaultResources
 	^self tests
 		inject: OrderedCollection new
@@ -79,17 +85,6 @@
 	resources := someOrderedTestResourceClasses
 !
 
-testCount
-
-    ^tests notNil ifTrue:[
-        tests inject:0 into:[:count :test|count + test testCount]
-    ] ifFalse:[
-        0
-    ]
-
-    "Created: / 04-08-2011 / 13:03:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 tests
 	tests isNil ifTrue: [tests := OrderedCollection new].
 	^tests