--- a/RegressionTests__QuickTestRunner.st	Wed Mar 20 12:11:16 2013 +0100
+++ b/RegressionTests__QuickTestRunner.st	Wed Mar 20 12:24:53 2013 +0100
@@ -114,58 +114,16 @@
 !
 
 listOfTestClasses
-    ^ #(
-
-        "/ 'SunitXMLOutputTest'
-        'CoverageInstrumentationTest'
-        'AssociationTests'
-        'BinaryIOTests'
-        'BinaryTreeTester'
-        "/ 'BlockTest'
-        'CharacterTests'
-        'CollectionTests'
-        'CompilerTest'
-        'ComplexTest'
-        'CryptTests'
-        'STCCompilerTests'
-        "/ 'DebuggerTest'
-        "/ 'DeepCopyTests'
-        'DelayTest'
-        'DictionaryTest'
-        'EnumerationTests'
-        'ExceptionTest'
-        "/ 'ExternalInterfaceTests'
-        "/ 'FileOpenTest'
-        'FileStreamTest'
-        'FloatTest'
-        'FractionTest'
-        "/ 'GCTest'
-        "/ 'GraphicDrawingTest'
-        "/ 'HTMLParserTests'
-        "/ 'ImageReaderTest'
-        'IntegerTest'
-        'JavaScriptTests'
-        "/ 'MeasurementValueTests'
-        "/ 'MemoryTest'
-        'NumberTest'
-        "/ 'ParserTest'
-        'ScaledDecimalTest'
-        "/ 'SemaphoreTest'
-        "/ 'SharedQueueTest'
-        'SmallIntegerTest'
-        "/ 'SortTests'
-        'StringTests'
-        'StreamTests'
-        'TimeAndDateTest'
-        'TimeDurationTest'
-        "/ 'URLTest'
-        "/ 'XMLCoderTests'
-        "/ 'ZipArchiveTests'
-        'ClassBuilderTests'
-        'CompilerTests2'
-        'ChangeSetTests'
-        'FilenameTests'
-    )
+    "*** IMPORTANT *** "
+    "* To add a new test please edit exept_regression>>testCaseNamesWithoutNamespace"
+    "*** ********* *** "
+    Smalltalk fileInClass:#'exept_regression' package:'exept:regression'.
+    (Smalltalk at: #'exept_regression') isNil ifTrue:[
+        Stdout showCR:('ERROR: Ouch - missing class: "exept_regression"').
+        Stdout showCR:('EXIT').
+        Smalltalk exit: 1.
+    ].
+    ^(Smalltalk at: #'exept_regression') testCaseNamesWithoutNamespace
 
     "Modified: / 21-02-2013 / 18:05:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !

--- a/exept_regression.st	Wed Mar 20 12:11:16 2013 +0100
+++ b/exept_regression.st	Wed Mar 20 12:24:53 2013 +0100
@@ -10,54 +10,65 @@
 
 !exept_regression class methodsFor:'accessing - tests'!
 
+testCaseNamesWithoutNamespace
+    ^#(
+     "/ 'SunitXMLOutputTest'
+    'CoverageInstrumentationTest'
+    'AssociationTests'
+    'BinaryIOTests'
+    'BinaryTreeTester'
+    "/ 'BlockTest'
+    'CharacterTests'
+    'CollectionTests'
+    'CompilerTest'
+    'ComplexTest'
+    'STCCompilerTests'
+    "/ 'DebuggerTest'
+    "/ 'DeepCopyTests'
+    'DelayTest'
+    'DictionaryTest'
+    'EnumerationTests'
+    'ExceptionTest'
+    "/ 'ExternalInterfaceTests'
+    "/ 'FileOpenTest'
+    'FileStreamTest'
+    'FloatTest'
+    'FractionTest'
+    "/ 'GCTest'
+    "/ 'GraphicDrawingTest'
+    "/ 'HTMLParserTests'
+    "/ 'ImageReaderTest'
+    'IntegerTest'
+    'JavaScriptTests'
+    "/ 'MeasurementValueTests'
+    "/ 'MemoryTest'
+    'NumberTest'
+    "/ 'ParserTest'
+    'ScaledDecimalTest'
+    "/ 'SemaphoreTest'
+    "/ 'SharedQueueTest'
+    'SmallIntegerTest'
+    "/ 'SortTests'
+    'StringTests'
+    'StreamTests'
+    'TimeAndDateTest'
+    'TimeDurationTest'
+    "/ 'URLTest'
+    "/ 'XMLCoderTests'
+    "/ 'ZipArchiveTests'
+    'ClassBuilderTests'
+    'CompilerTests2'
+    'ChangeSetTests'
+    'FilenameTests'
+    )
+!
+
 testSuite
 
     | suite |
 
-    suite := TestSuite named: self package.
-    #(
-        '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 |
+    suite := TestSuite named: self package.    
+    self testCaseNamesWithoutNamespace do:[:className |
         |fullName|
         fullName := ('RegressionTests::',className).
         Smalltalk fileInClass:fullName package:'exept:regression'.