--- a/TestResult.st	Mon Jun 04 16:20:17 2012 +0200
+++ b/TestResult.st	Mon Jun 04 19:08:05 2012 +0200
@@ -418,11 +418,15 @@
             self rememberEndTime.
             self rememberException: ex.
             (AbortSignal accepts: ex signal) ifTrue:[ex reject].
+            (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
             debugged ifTrue:[ ex reject ].
+
             ex sunitAnnounce:aTestCase toResult:self.
         ].
     ] sunitOn: self exceptions do:[:ex|
         (AbortSignal accepts: ex signal) ifTrue:[ex reject].
+        (TerminateProcessRequest accepts: ex signal) ifTrue:[ex reject].
+
         self remove: aTestCase.
         debugged ifTrue:[ ex reject ].
         ex sunitAnnounce:aTestCase toResult:self.
@@ -430,7 +434,7 @@
 
     "Created: / 21-08-2011 / 17:48:19 / cg"
     "Modified: / 16-01-2012 / 20:37:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 27-05-2012 / 11:02:07 / cg"
+    "Modified: / 04-06-2012 / 18:50:15 / cg"
 ! !
 
 !TestResult methodsFor:'testing'!
@@ -445,6 +449,12 @@
 	^self failures size > 0
 !
 
+hasFailuresOrErrors
+    ^ self hasFailures or:[self hasErrors]
+
+    "Created: / 04-06-2012 / 19:06:52 / cg"
+!
+
 hasPassed
 
 	^self hasErrors not and: [self hasFailures not]
@@ -467,11 +477,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.40 2012-05-27 10:51:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.41 2012-06-04 17:08:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.40 2012-05-27 10:51:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.41 2012-06-04 17:08:05 cg Exp $'
 !
 
 version_SVN