--- a/Tools__AbstractTestRunner.st	Sat Aug 20 16:05:22 2011 +0200
+++ b/Tools__AbstractTestRunner.st	Sat Aug 20 16:05:31 2011 +0200
@@ -35,6 +35,13 @@
 	category:'SUnit-UI'
 !
 
+TestResultStX subclass:#RunWithDebugTestResult
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:AbstractTestRunner
+!
+
 !AbstractTestRunner class methodsFor:'documentation'!
 
 copyright
@@ -80,6 +87,15 @@
     "Modified: / 05-07-2011 / 14:12:34 / cg"
 ! !
 
+!AbstractTestRunner class methodsFor:'instance creation'!
+
+newRunWithDebugTestResult
+
+    ^RunWithDebugTestResult new
+
+    "Created: / 20-08-2011 / 13:54:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !AbstractTestRunner class methodsFor:'accessing'!
 
 currentlyRunningColor
@@ -165,10 +181,24 @@
     "Modified: / 15-03-2010 / 19:53:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!AbstractTestRunner::RunWithDebugTestResult methodsFor:'outcome'!
+
+rememberException:exception
+
+    super rememberException: exception.
+    ^exception reject.
+
+    "Created: / 20-08-2011 / 13:32:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !AbstractTestRunner class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.5 2011-08-20 14:05:31 vrany Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.4 2011-07-05 12:15:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.5 2011-08-20 14:05:31 vrany Exp $'
 !
 
 version_SVN