# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1312537282 -7200
# Node ID cc7adbd216be1ef07c8f4f64ce07289d860ac34a
# Parent  2b598cdd4afd69c235cb2b78e43f09f88e22c50e
*** empty log message ***

diff -r 2b598cdd4afd -r cc7adbd216be quickSelfTest/SelfTest.st
--- 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