--- a/quickSelfTest/SelfTest.st Fri Aug 05 11:31:19 2011 +0200
+++ b/quickSelfTest/SelfTest.st Fri Aug 05 11:41:22 2011 +0200
@@ -33,10 +33,22 @@
Stdout showCR:'Loading regression tests...'.
Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
+(Smalltalk allClassesInPackage:'exept:regression') do:[:each |
+ (#(
+ 'RegressionTests::ExternalInterfaceTests'
+ 'RegressionTests::ContextTest2'
+ ) includes:each name) ifTrue:[
+ Stdout showCR:('Skipped ',each name,'...').
+ ] ifFalse:[
+ Stdout showCR:('Loading ',each name,'...').
+ each autoload
+ ].
+].
!
|suite result|
+Stdout showCR:'Creating suite...'.
suite := TestSuite named:'SelfTest'.
"/ suite addTest:(RegressionTests::QuickTest suite).
suite addTest:(RegressionTests::AssociationTests suite).
@@ -53,7 +65,7 @@
suite addTest:(RegressionTests::DictionaryTest suite).
suite addTest:(RegressionTests::EnumerationTests suite).
suite addTest:(RegressionTests::ExceptionTest suite).
-suite addTest:(RegressionTests::ExternalInterfaceTests suite).
+"/ suite addTest:(RegressionTests::ExternalInterfaceTests suite).
suite addTest:(RegressionTests::FileOpenTest suite).
suite addTest:(RegressionTests::FileStreamTest suite).
suite addTest:(RegressionTests::FloatTest suite).
@@ -81,9 +93,10 @@
suite addTest:(RegressionTests::XMLCoderTests suite).
suite addTest:(RegressionTests::ZipArchiveTests suite).
+Stdout showCR:'Running suite...'.
result := suite
runBeforeEachDo:[:test |
- Stdout showCR:('running ',test printString).
+ Stdout showCR:('- running ',test printString).
].
TestResultReporter
report:result