--- a/Tools__TestRunnerMini.st	Wed Mar 07 20:58:29 2018 +0100
+++ b/Tools__TestRunnerMini.st	Wed Mar 07 23:03:40 2018 +0100
@@ -1313,6 +1313,16 @@
     ^suiteForRun
 
     "Created: / 22-08-2011 / 09:56:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testCount
+    "obsoleted, because all methods starting with 'test'
+     are considered to be tests; so this is a bad name;
+     please use countTests"
+
+    ^ self countTests
+
+    "Created: / 15-03-2010 / 15:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestRunnerMini::SuiteAndResult methodsFor:'queries'!