equal
deleted
inserted
replaced
62 allTestSelectors |
62 allTestSelectors |
63 ^self sunitAllSelectors select: [:each | 'test*' match: each] |
63 ^self sunitAllSelectors select: [:each | 'test*' match: each] |
64 ! |
64 ! |
65 |
65 |
66 forgetLastTestRunResult |
66 forgetLastTestRunResult |
67 lastTestrunResultOrNil := nil |
67 lastTestrunResultOrNil ~~ nil ifTrue:[ |
|
68 lastTestrunResultOrNil := nil. |
|
69 Smalltalk changed:#lastTestRunResult with:self. |
|
70 self changed:#lastTestRunResult. |
|
71 ] |
68 ! |
72 ! |
69 |
73 |
70 lastTestrunResultOrNil |
74 lastTestrunResultOrNil |
71 ^ lastTestrunResultOrNil |
75 ^ lastTestrunResultOrNil |
72 ! |
76 ! |
73 |
77 |
74 rememberFailedTestRun |
78 rememberFailedTestRun |
75 lastTestrunResultOrNil := false |
79 lastTestrunResultOrNil ~~ false ifTrue:[ |
|
80 lastTestrunResultOrNil := false. |
|
81 Smalltalk changed:#lastTestRunResult with:self. |
|
82 self changed:#lastTestRunResult. |
|
83 ] |
76 ! |
84 ! |
77 |
85 |
78 rememberPassedTestRun |
86 rememberPassedTestRun |
79 lastTestrunResultOrNil := true |
87 lastTestrunResultOrNil ~~ true ifTrue:[ |
|
88 lastTestrunResultOrNil := true. |
|
89 Smalltalk changed:#lastTestRunResult with:self. |
|
90 self changed:#lastTestRunResult. |
|
91 ] |
80 ! |
92 ! |
81 |
93 |
82 resources |
94 resources |
83 ^#() |
95 ^#() |
84 ! |
96 ! |
360 ! ! |
372 ! ! |
361 |
373 |
362 !TestCase class methodsFor:'documentation'! |
374 !TestCase class methodsFor:'documentation'! |
363 |
375 |
364 version |
376 version |
365 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.27 2002-11-04 11:52:10 cg Exp $' |
377 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.28 2002-11-04 21:29:56 cg Exp $' |
366 ! ! |
378 ! ! |
367 |
379 |
368 TestCase initialize! |
380 TestCase initialize! |