*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 05 Aug 2011 15:12:36 +0200
changeset 26 2089c5b15adc
parent 25 3fecf533ca80
child 27 09411309837d
*** empty log message ***
quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Fri Aug 05 15:11:29 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Fri Aug 05 15:12:36 2011 +0200
@@ -25,7 +25,7 @@
 
 Stdout showCR:'Loading sunit...'.
 Smalltalk loadPackage:'stx:goodies/sunit'.
-self assert:(TestCase notNil).
+self assert:(TestCase notNil and:[TestCase isLoaded]).
 
 "/ Smalltalk loadPackage:'stx:goodies/xml/vw'.
 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.