equal
deleted
inserted
replaced
12 |
12 |
13 initialize |
13 initialize |
14 "ensure, that the sunit extensions are loaded" |
14 "ensure, that the sunit extensions are loaded" |
15 |
15 |
16 (Class implements:#sunitName) ifFalse:[ |
16 (Class implements:#sunitName) ifFalse:[ |
17 (Smalltalk fileIn:'extensions.st' inPackage:(self package)) |
17 Smalltalk fileIn:'extensions.st' inPackage:(self package) |
18 ifFalse:[ |
|
19 (Smalltalk fileIn:'source/extensions.st' inPackage:(self package)) |
|
20 ] |
|
21 ]. |
18 ]. |
22 TestFailure isLoaded ifFalse:[ |
19 TestFailure isLoaded ifFalse:[ |
23 TestFailure autoload |
20 TestFailure autoload |
24 ]. |
21 ]. |
25 |
22 |
211 ! ! |
208 ! ! |
212 |
209 |
213 !TestCase class methodsFor:'documentation'! |
210 !TestCase class methodsFor:'documentation'! |
214 |
211 |
215 version |
212 version |
216 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.13 2001-10-16 11:41:47 cg Exp $' |
213 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.14 2001-10-16 11:57:46 cg Exp $' |
217 ! ! |
214 ! ! |
218 TestCase initialize! |
215 TestCase initialize! |