--- a/TestCase.st	Tue Apr 27 10:48:09 2010 +0200
+++ b/TestCase.st	Mon May 03 17:48:52 2010 +0200
@@ -189,6 +189,13 @@
     ^ (self selectors select: [:each | 'test*' match: each]) asOrderedCollection sort
 
     "Modified: / 24-04-2010 / 14:04:51 / cg"
+!
+
+testedClasses
+    "for the browser and for coverage analysis:
+     return a collection of classNames, which are tested by this testCase"
+
+    ^ #()
 ! !
 
 !TestCase class methodsFor:'building suites'!
@@ -791,11 +798,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.55 2010-04-26 08:46:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.56 2010-05-03 15:48:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.55 2010-04-26 08:46:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.56 2010-05-03 15:48:52 cg Exp $'
 ! !
 
 TestCase initialize!