--- a/quickSelfTest/SelfTest.st Sun Jul 31 13:43:57 2011 +0200
+++ b/quickSelfTest/SelfTest.st Sun Jul 31 14:00:49 2011 +0200
@@ -33,9 +33,13 @@
Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
!
-|result|
+|suite result|
-result := RegressionTests::IntegerTest runTests.
+suite := TestSuite named:'SelfTest'.
+suite addTest:(RegressionTests::IntegerTest suite).
+suite addTest:(RegressionTests::CollectionTests suite).
+
+result := suite run.
TestResultReporter report:result format:#xml_perfPublisher as:'testresult.xml'.
"/Autoload allSubclassesDo:[:cls |