--- 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