equal
deleted
inserted
replaced
93 rememberFailedTest:selector |
93 rememberFailedTest:selector |
94 lastTestRunsFailedTests isNil ifTrue:[ |
94 lastTestRunsFailedTests isNil ifTrue:[ |
95 lastTestRunsFailedTests := Set new. |
95 lastTestRunsFailedTests := Set new. |
96 ]. |
96 ]. |
97 |
97 |
98 (lastTestRunsFailedTests includes:selector) not ifTrue:[ |
98 (lastTestRunsFailedTests includes:selector) ifFalse:[ |
99 lastTestRunsFailedTests add:selector. |
99 lastTestRunsFailedTests add:selector. |
100 Smalltalk changed:#lastTestRunResult with:(Array with:self with:selector). |
100 Smalltalk changed:#lastTestRunResult with:(Array with:self with:selector). |
101 self changed:#lastTestRunResult with:selector. |
101 self changed:#lastTestRunResult with:selector. |
102 ]. |
102 ]. |
103 self rememberFailedTestRun |
103 self rememberFailedTestRun |
785 ! ! |
785 ! ! |
786 |
786 |
787 !TestCase class methodsFor:'documentation'! |
787 !TestCase class methodsFor:'documentation'! |
788 |
788 |
789 version |
789 version |
790 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $' |
790 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $' |
791 ! |
791 ! |
792 |
792 |
793 version_CVS |
793 version_CVS |
794 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.52 2009-10-03 13:27:23 cg Exp $' |
794 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.53 2010-03-09 12:09:55 cg Exp $' |
795 ! ! |
795 ! ! |
796 |
796 |
797 TestCase initialize! |
797 TestCase initialize! |