--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ResumableTestFailureTestCase.st	Fri Sep 26 18:09:52 2003 +0200
@@ -0,0 +1,73 @@
+"{ Package: 'stx:goodies/sunit' }"
+
+TestCase subclass:#ResumableTestFailureTestCase
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SUnit-Tests'
+!
+
+
+!ResumableTestFailureTestCase methodsFor:'Not categorized'!
+
+errorTest
+	1 zork
+			
+!
+
+failureLog
+	^SUnitNameResolver defaultLogDevice
+			
+!
+
+failureTest
+	self
+		assert: false description: 'You should see me' resumable: true; 
+		assert: false description: 'You should see me too' resumable: true; 
+		assert: false description: 'You should see me last' resumable: false; 
+		assert: false description: 'You should not see me' resumable: true
+			
+!
+
+isLogging
+	^false
+			
+!
+
+okTest
+	self assert: true
+			
+!
+
+regularTestFailureTest
+	self assert: false description: 'You should see me'
+			
+!
+
+resumableTestFailureTest
+	self
+		assert: false description: 'You should see me' resumable: true; 
+		assert: false description: 'You should see me too' resumable: true; 
+		assert: false description: 'You should see me last' resumable: false; 
+		assert: false description: 'You should not see me' resumable: true
+			
+!
+
+testResumable
+	| result suite |
+	suite := TestSuite new.
+	suite addTest: (self class selector: #errorTest).
+	suite addTest: (self class selector: #regularTestFailureTest).
+	suite addTest: (self class selector: #resumableTestFailureTest).
+	suite addTest: (self class selector: #okTest).
+	result := suite run.
+	self assert: result failures size = 2;
+		assert: result errors size = 1
+			
+! !
+
+!ResumableTestFailureTestCase class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/ResumableTestFailureTestCase.st,v 1.1 2003-09-26 16:09:52 stefan Exp $'
+! !