equal
deleted
inserted
replaced
118 "answer true to inherit selectors from superclasses" |
118 "answer true to inherit selectors from superclasses" |
119 |
119 |
120 ^true |
120 ^true |
121 ! ! |
121 ! ! |
122 |
122 |
|
123 !TestCase methodsFor:'Accessing'! |
|
124 |
|
125 unfinished |
|
126 |
|
127 "indicates an unfinished test" |
|
128 ! ! |
|
129 |
123 !TestCase methodsFor:'accessing'! |
130 !TestCase methodsFor:'accessing'! |
124 |
131 |
125 assert: aBoolean |
132 assert: aBoolean |
126 "fail, if the argument is not true" |
133 "fail, if the argument is not true" |
127 |
134 |
296 block2 value:self value:aResult. |
303 block2 value:self value:aResult. |
297 ! |
304 ! |
298 |
305 |
299 run: aResult beforeEachDo:block1 afterEachDo:block2 |
306 run: aResult beforeEachDo:block1 afterEachDo:block2 |
300 block1 value:self value:aResult. |
307 block1 value:self value:aResult. |
|
308 "/testSelector == #testReadStatement ifTrue:[self halt]. |
301 aResult runCase: self. |
309 aResult runCase: self. |
302 block2 value:self value:aResult. |
310 block2 value:self value:aResult. |
303 ! |
311 ! |
304 |
312 |
305 runCase |
313 runCase |
331 ! ! |
339 ! ! |
332 |
340 |
333 !TestCase class methodsFor:'documentation'! |
341 !TestCase class methodsFor:'documentation'! |
334 |
342 |
335 version |
343 version |
336 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.23 2002-05-16 12:28:04 james Exp $' |
344 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.24 2002-06-19 12:20:53 cg Exp $' |
337 ! ! |
345 ! ! |
338 TestCase initialize! |
346 TestCase initialize! |