--- a/TestCase.st Tue Oct 06 09:56:29 2009 +0200
+++ b/TestCase.st Tue Mar 09 13:09:55 2010 +0100
@@ -95,7 +95,7 @@
lastTestRunsFailedTests := Set new.
].
- (lastTestRunsFailedTests includes:selector) not ifTrue:[
+ (lastTestRunsFailedTests includes:selector) ifFalse:[
lastTestRunsFailedTests add:selector.
Smalltalk changed:#lastTestRunResult with:(Array with:self with:selector).
self changed:#lastTestRunResult with:selector.
@@ -787,11 +787,11 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $'
! !
TestCase initialize!