equal
deleted
inserted
replaced
493 self enableDebugButton value: true. |
493 self enableDebugButton value: true. |
494 self displayMode: 'Debugging'. |
494 self displayMode: 'Debugging'. |
495 |
495 |
496 "/ defect := nil. |
496 "/ defect := nil. |
497 |
497 |
498 self withWaitCursorDo:[ |
498 self withWaitCursorDo:[ |
499 (result isFailure: testCase) |
499 ((result isFailure: testCase) "or:[(result isError: testCase)]") |
500 ifTrue: [testCase debugAsFailure] |
500 ifTrue: [testCase debugAsFailure] |
501 ifFalse: [testCase debug]. |
501 ifFalse: [testCase debug]. |
502 ]. |
502 ]. |
503 |
503 |
504 "Modified: / 21.6.2000 / 12:12:09 / Sames" |
504 "Modified: / 21.6.2000 / 12:12:09 / Sames" |
505 ! |
505 ! |
506 |
506 |
507 enableDebugButton |
507 enableDebugButton |
1130 ! ! |
1130 ! ! |
1131 |
1131 |
1132 !TestRunner class methodsFor:'documentation'! |
1132 !TestRunner class methodsFor:'documentation'! |
1133 |
1133 |
1134 version |
1134 version |
1135 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.50 2003-06-17 22:42:03 cg Exp $' |
1135 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.51 2003-08-18 12:15:30 cg Exp $' |
1136 ! ! |
1136 ! ! |