--- a/TestCase.st Thu Feb 07 18:19:00 2002 +0100
+++ b/TestCase.st Mon Feb 25 21:01:09 2002 +0100
@@ -13,11 +13,11 @@
initialize
"ensure, that the sunit extensions are loaded"
- (Class implements:#sunitName) ifFalse:[
- Smalltalk fileIn:'extensions.st' inPackage:(self package)
+ (Class includesSelector:#sunitName) ifFalse:[
+ Smalltalk fileIn:'extensions.st' inPackage:(self package)
].
TestFailure isLoaded ifFalse:[
- TestFailure autoload
+ TestFailure autoload
].
"
@@ -323,6 +323,6 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.18 2001-12-21 15:46:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.19 2002-02-25 20:00:53 cg Exp $'
! !
TestCase initialize!