# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1312549718 -7200
# Node ID 7dcd34b06222075d52e52ca88d89875983702dec
# Parent  1d4731483660e08125375e82c3265d89442356f0
*** empty log message ***

diff -r 1d4731483660 -r 7dcd34b06222 quickSelfTest/SelfTest.st
--- a/quickSelfTest/SelfTest.st	Fri Aug 05 14:58:15 2011 +0200
+++ b/quickSelfTest/SelfTest.st	Fri Aug 05 15:08:38 2011 +0200
@@ -31,75 +31,69 @@
 "/ Smalltalk loadPackage:'stx:goodies/xml/stx'.
 !
 
-Stdout showCR:'Loading regression tests...'.
-Smalltalk installAutoloadedClassesFromAbbrevFile:((Smalltalk projectDirectoryForPackage:'exept:regression') asFilename / 'abbrev.stc').
-(Smalltalk allClassesInPackage:'exept:regression') do:[:each |
-    (#(
-	'RegressionTests::ExternalInterfaceTests'
-	'RegressionTests::ContextTest2'
-	'RegressionTests::StackFrameTest'
-	'RegressionTests::BlockTest'
-    ) includes:each name) ifTrue:[
-	Stdout showCR:('Skipped ',each name,'...').
-    ] ifFalse:[
-	Stdout showCR:('Loading ',each name,'...').
-	each autoload
-    ].
-].
-!
-
-|suite result|
+!suite result|
 
 Stdout showCR:'Creating suite...'.
 suite := TestSuite named:'SelfTest'.
-"/ suite addTest:(RegressionTests::QuickTest suite).
-suite addTest:(RegressionTests::AssociationTests suite).
-suite addTest:(RegressionTests::BinaryIOTests suite).
-suite addTest:(RegressionTests::BinaryTreeTester suite).
-suite addTest:(RegressionTests::BlockTest suite).
-suite addTest:(RegressionTests::CharacterTests suite).
-suite addTest:(RegressionTests::CollectionTests suite).
-suite addTest:(RegressionTests::CompilerTest suite).
-suite addTest:(RegressionTests::ComplexTest suite).
-"/ suite addTest:(RegressionTests::DebuggerTest suite).
-suite addTest:(RegressionTests::DeepCopyTests suite).
-suite addTest:(RegressionTests::DelayTest suite).
-suite addTest:(RegressionTests::DictionaryTest suite).
-suite addTest:(RegressionTests::EnumerationTests suite).
-suite addTest:(RegressionTests::ExceptionTest suite).
-"/ suite addTest:(RegressionTests::ExternalInterfaceTests suite).
-suite addTest:(RegressionTests::FileOpenTest suite).
-suite addTest:(RegressionTests::FileStreamTest suite).
-suite addTest:(RegressionTests::FloatTest suite).
-suite addTest:(RegressionTests::FractionTest suite).
-suite addTest:(RegressionTests::FractionTest suite).
-suite addTest:(RegressionTests::GCTest suite).
-suite addTest:(RegressionTests::GraphicDrawingTest suite).
-suite addTest:(RegressionTests::HTMLParserTests suite).
-suite addTest:(RegressionTests::ImageReaderTest suite).
-suite addTest:(RegressionTests::IntegerTest suite).
-suite addTest:(RegressionTests::JavaScriptTests suite).
-"/ suite addTest:(RegressionTests::MeasurementValueTests suite).
-"/ suite addTest:(RegressionTests::MemoryTest suite).
-suite addTest:(RegressionTests::NumberTest suite).
-suite addTest:(RegressionTests::ParserTest suite).
-suite addTest:(RegressionTests::ScaledDecimalTest suite).
-suite addTest:(RegressionTests::SemaphoreTest suite).
-suite addTest:(RegressionTests::SharedQueueTest suite).
-suite addTest:(RegressionTests::SmallIntegerTest suite).
-suite addTest:(RegressionTests::SortTests suite).
-suite addTest:(RegressionTests::StringTests suite).
-suite addTest:(RegressionTests::TimeAndDateTest suite).
-suite addTest:(RegressionTests::TimeDurationTest suite).
-suite addTest:(RegressionTests::URLTest suite).
-"/ suite addTest:(RegressionTests::XMLCoderTests suite).
-suite addTest:(RegressionTests::ZipArchiveTests suite).
+
+Stdout showCR:'Loading regression tests...'.
+#(
+    'AssociationTests'
+    "/ 'BinaryIOTests'
+    'BinaryTreeTester'
+    "/ 'BlockTest'
+    'CharacterTests'
+    'CollectionTests'
+    "/ 'CompilerTest'
+    'ComplexTest'
+    "/ 'DebuggerTest'
+    "/ 'DeepCopyTests'
+    "/ 'DelayTest'
+    "/ 'DictionaryTest'
+    "/ 'EnumerationTests'
+    "/ 'ExceptionTest'
+    "/ 'ExternalInterfaceTests'
+    "/ 'FileOpenTest'
+    "/ 'FileStreamTest'
+    "/ 'FloatTest'
+    "/ 'FractionTest'
+    "/ 'FractionTest'
+    "/ 'GCTest'
+    "/ 'GraphicDrawingTest'
+    "/ 'HTMLParserTests'
+    "/ 'ImageReaderTest'
+    "/ 'IntegerTest'
+    "/ 'JavaScriptTests'
+    "/ 'MeasurementValueTests'
+    "/ 'MemoryTest'
+    'NumberTest'
+    "/ 'ParserTest'
+    "/ 'ScaledDecimalTest'
+    "/ 'SemaphoreTest'
+    "/ 'SharedQueueTest'
+    'SmallIntegerTest'
+    "/ 'SortTests'
+    "/ 'StringTests'
+    "/ 'TimeAndDateTest'
+    "/ 'TimeDurationTest'
+    "/ 'URLTest'
+    "/ 'XMLCoderTests'
+    "/ 'ZipArchiveTests'
+) do:[:className |
+    |fullName|
+
+    fullName := ('RegressionTests::',className).
+    Stdout showCR:('Loading ',className,'...').
+    Smalltalk fileInClass:fullName package:'exept:regression'.
+    suite addTest:(Smalltalk classNamed:fullName) suite.
+].
 
 Stdout showCR:'Running suite...'.
 result := suite
 	    runBeforeEachDo:[:test |
 		Stdout showCR:('- running ',test printString).
 	    ].
+
 TestResultReporter
     report:result
     format:#xml_perfPublisher