--- a/TestFailure.st	Wed Jun 29 20:38:32 2011 +0200
+++ b/TestFailure.st	Wed Jun 29 21:15:49 2011 +0200
@@ -7,6 +7,22 @@
 	category:'SUnit-Preload'
 !
 
+!TestFailure class methodsFor:'documentation'!
+
+documentation
+"
+    'TestFailure is raised when the boolean parameter of an assert: ... or deny: ... call is the opposite of what the assertion claims.
+
+
+"
+! !
+
+!TestFailure methodsFor:'Camp Smalltalk'!
+
+sunitAnnounce: aTestCase toResult: aTestResult
+	aTestResult addFailure: aTestCase.
+	self sunitExitWith: false.
+! !
 
 !TestFailure methodsFor:'handling'!
 
@@ -19,5 +35,9 @@
 !TestFailure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.5 2003-09-26 15:55:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestFailure.st,v 1.6 2011-06-29 19:15:49 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: TestFailure.st 204 2010-09-11 15:21:51Z vranyj1 §'
 ! !