--- a/ResumableTestFailureTestCase.st	Wed Jun 29 20:38:32 2011 +0200
+++ b/ResumableTestFailureTestCase.st	Wed Jun 29 21:15:49 2011 +0200
@@ -1,7 +1,7 @@
 "{ Package: 'stx:goodies/sunit' }"
 
 TestCase subclass:#ResumableTestFailureTestCase
-	instanceVariableNames:''
+	instanceVariableNames:'duplicateFailureLog'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SUnit-Tests'
@@ -10,47 +10,32 @@
 
 !ResumableTestFailureTestCase methodsFor:'Not categorized'!
 
-errorTest
-	1 zork
-			
-!
+resumableTestFailureTest
+	self
+		assert: false description: 'You should see more than me' resumable: true;
+		assert: false description: 'You should see more than me' resumable: true;
+		assert: false description: 'You should see me last' resumable: false;
+		assert: false description: 'You should not see me' resumable: true
+! !
+
+!ResumableTestFailureTestCase methodsFor:'logging'!
 
-failureLog
-	^SUnitNameResolver defaultLogDevice
-			
-!
+logFailure: aString
+	duplicateFailureLog add: aString.
+	super logFailure: aString.
+! !
 
-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
-			
+!ResumableTestFailureTestCase methodsFor:'running'!
+
+setUp
+	duplicateFailureLog := OrderedCollection with: 'In set up'.
 !
 
-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
-			
+tearDown
+	self deny: 'You should not see me' = duplicateFailureLog last
+			description: 'We saw the ''You should not see me'' failure'.
+	self deny: 'You should see more than me' = duplicateFailureLog last
+			description: 'We did not see more than a ''You should see more than me'' failure'.
 !
 
 testResumable
@@ -63,11 +48,32 @@
 	result := suite run.
 	self assert: result failures size = 2;
 		assert: result errors size = 1
-			
+! !
+
+!ResumableTestFailureTestCase methodsFor:'test data'!
+
+errorTest
+	1 zork
+!
+
+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
+!
+
+okTest
+	self assert: true
+!
+
+regularTestFailureTest
+	self assert: false description: 'You should see me'
 ! !
 
 !ResumableTestFailureTestCase class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/ResumableTestFailureTestCase.st,v 1.1 2003-09-26 16:09:52 stefan Exp $'
+version_SVN
+    ^ '§Id: ResumableTestFailureTestCase.st 214 2011-03-14 12:22:21Z vranyj1 §'
 ! !