--- a/TestCase.st	Thu May 28 21:57:29 2015 +0100
+++ b/TestCase.st	Thu Jun 11 06:20:23 2015 +0100
@@ -242,6 +242,11 @@
    ^self testSelector: selector result: (TestResult stateSkip)
 
     "Created: / 15-03-2010 / 17:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+testSelectorsWithLastOutcomes
+    lastOutcomes isNil ifTrue:[^#()].
+    ^lastOutcomes collect:[:outcome| outcome testCase selector] as:Set
 ! !
 
 !TestCase class methodsFor:'building suites'!
@@ -348,6 +353,17 @@
     ^ self coveredClassNames collect:[:each | Smalltalk classNamed:each]
 
     "Created: / 04-07-2011 / 18:16:08 / cg"
+!
+
+coveredPackageNames
+    "redefine this in a concrete testCase class to return non-nil,
+     to return a collection of packages which are tested by this suite/case.
+     If not redefined, coveredClassNames should be redefined.
+
+     These classes can be instrumented for coverage analysis,
+     before running the suite to provide coverage analysis/report"
+
+    ^ nil
 ! !
 
 !TestCase class methodsFor:'quick testing'!
@@ -369,6 +385,16 @@
     "
 ! !
 
+!TestCase class methodsFor:'running'!
+
+run
+    self suite run
+
+    "
+     SOAP::XeXMLTests run
+    "
+! !
+
 !TestCase class methodsFor:'testing'!
 
 isAbstract