--- a/TestCase.st	Sat Aug 20 20:04:07 2011 +0200
+++ b/TestCase.st	Sat Aug 20 20:09:12 2011 +0200
@@ -279,6 +279,28 @@
         ^self sunitSelectors select: [:each | 'test*' sunitMatch: each]
 ! !
 
+!TestCase class methodsFor:'queries'!
+
+coveredClassNames
+    "should be redefined to return a collection of classes which are tested by
+     this suite/case. These classes can be instrumented for coverage analysis,
+     before running the suite"
+
+    ^ #()
+
+    "Created: / 06-07-2011 / 21:27:03 / cg"
+!
+
+coveredClasses
+    "return a collection of classes which are tested by this suite/case. 
+     These classes can be instrumented for coverage analysis,
+     before running the suite"
+
+    ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
+
+    "Created: / 04-07-2011 / 18:16:08 / cg"
+! !
+
 !TestCase class methodsFor:'quick testing'!
 
 assert: aBoolean
@@ -762,11 +784,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.78 2011-08-20 15:20:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.78 2011-08-20 15:20:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.79 2011-08-20 18:09:12 cg Exp $'
 !
 
 version_SVN