--- a/SUnitTest.st	Fri Aug 18 16:37:49 2006 +0200
+++ b/SUnitTest.st	Mon Aug 28 16:52:50 2006 +0200
@@ -50,6 +50,12 @@
 			
 !
 
+failAndError
+        self assert: false.
+        self assert: false. " second failure "
+        self error.
+!
+
 noop
 			
 !
@@ -156,6 +162,24 @@
 			
 !
 
+testFailAndError
+
+  " verify that two resumable failures that are followed by
+    an error are counted as one error. "
+
+        | case result |
+
+        case := self class selector: #failAndError.
+        result := case run.
+
+        self
+                assertForTestResult: result
+                runCount: 1
+                passed: 0
+                failed: 0
+                errors: 1
+!
+
 testIsNotRerunOnDebug
 
 	| case |
@@ -237,5 +261,5 @@
 !SUnitTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.9 2003-09-26 16:08:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitTest.st,v 1.10 2006-08-28 14:52:50 boris Exp $'
 ! !