--- a/TestCase.st	Wed Mar 07 23:03:48 2018 +0100
+++ b/TestCase.st	Wed Mar 07 23:03:57 2018 +0100
@@ -553,6 +553,14 @@
     ^false
 
     "Created: / 28-11-2012 / 18:03:29 / 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
 ! !
 
 !TestCase methodsFor:'accessing & queries'!