author | Claus Gittinger <cg@exept.de> |
Fri, 05 Aug 2011 15:12:36 +0200 | |
changeset 26 | 2089c5b15adc |
parent 25 | 3fecf533ca80 |
child 27 | 09411309837d |
--- 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'.