--- a/quickSelfTest/RunUnitTests.st	Wed Oct 11 14:51:18 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Wed Oct 11 16:54:09 2017 +0200
@@ -40,7 +40,8 @@
      cmdArgs
      unitTestSuite
      eachClassName eachClass
-     result index settingsFilePathName resultFilePathName|
+     result index 
+     settingsFilePathName resultFilePathName forceTestCase|
 
     doRunSpecificUnitTests := false.
     unitTestSuiteName := 'All Unit Tests'.
@@ -50,101 +51,111 @@
     cmdArgs := Smalltalk commandLineArguments.
     index := cmdArgs indexOf:'--settingsFile'.
     index > 0 ifTrue:[
-	settingsFilePathName := cmdArgs at:index + 1.
-	self logInfo:'load settings file: ', settingsFilePathName printString.
-	settingsFilePathName asFilename fileIn.
-	self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
+        settingsFilePathName := cmdArgs at:index + 1.
+        self logInfo:'load settings file: ', settingsFilePathName printString.
+        settingsFilePathName asFilename fileIn.
+        self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
+    ].
+
+    (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
+        self logInfo:'configured to run expecco unit tests only'.
+        doRunSpecificUnitTests := true.
+        unitTestSuiteName := 'expecco Unit Tests'.
+        excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
     ].
 
     index := cmdArgs indexOf:'--resultFile'.
     index > 0 ifTrue:[
-	resultFilePathName := cmdArgs at:index + 1.
-	self logInfo:'set custom result file: ', resultFilePathName printString.
+        resultFilePathName := cmdArgs at:index + 1.
+        self logInfo:'set custom result file: ', resultFilePathName printString.
     ].
 
-    (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
-	self logInfo:'configured to run expecco unit tests only'.
-	doRunSpecificUnitTests := true.
-	unitTestSuiteName := 'expecco Unit Tests'.
-	excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
-    ].
+    index := cmdArgs indexOf:'--forceTestCase'.
+    index > 0 ifTrue:[
+        forceTestCase := cmdArgs at:index + 1.
+        self logInfo:'set force test case: ', resultFilePathName printString.
+    ].        
 
     doRunSpecificUnitTests ifFalse:[
-	self logInfo:'configured to run all available unit tests'.
+        self logInfo:'configured to run all available unit tests'.
     ].
 
     self logInfo:'collecting unit test classes to run'.
     unitTestSuite := TestSuite named:unitTestSuiteName.
 
     (Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes do:[:eachClassNameAndAttributes |
-	eachClassNameAndAttributes isSymbol ifTrue:[
-	    eachClassName := eachClassNameAndAttributes.
-	] ifFalse:[
-	    eachClassName := eachClassNameAndAttributes
-		firstIfEmpty:nil.
-	].
+        eachClassNameAndAttributes isSymbol ifTrue:[
+            eachClassName := eachClassNameAndAttributes.
+        ] ifFalse:[
+            eachClassName := eachClassNameAndAttributes
+                firstIfEmpty:nil.
+        ].
 
-	(excludedUnitTestClassNames includes:eachClassName) ifFalse:[
-	    (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
-		self
-		    logWarning:('corrupted unit test class detected, please fix #%1'
-			bindWith:eachClassName).
-	    ] ifFalse:[
-		(eachClassName notNil
-		and:[
-		    "/ skip non test cases classes
-		    (#(
-			'stx_goodies_regression'
-		    ) includes:eachClassName) not
-		]) ifTrue:[
-		    eachClass := Smalltalk at:eachClassName.
+        (excludedUnitTestClassNames includes:eachClassName) ifFalse:[
+            (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
+                self
+                    logWarning:('corrupted unit test class detected, please fix #%1'
+                        bindWith:eachClassName).
+            ] ifFalse:[
+                (eachClassName notNil
+                and:[
+                    "/ skip non test case classes
+                    (#(
+                        'stx_goodies_regression'
+                    ) includes:eachClassName) not
+                and:[
+                    forceTestCase isNil 
+                    or:[forceTestCase = eachClassName   
+                    or:[forceTestCase = ((eachClassName subStrings:'::') lastIfEmpty:nil)]]
+                ]]) ifTrue:[
+                    eachClass := Smalltalk at:eachClassName.
 
-		    useCompiledUnitTestClasses ifFalse:[
-			"here we want test the jitter code
-			 therfor we file in, exit if the class is already present somwhow"
-			eachClass notNil ifTrue:[
-			    self
-				logWarning:('Unit test class "%1" was already present before file in.'
-				    bindWith:eachClassName).
+                    useCompiledUnitTestClasses ifFalse:[
+                        "here we want test the jitter code
+                         therfor we file in, exit if the class is already present somwhow"
+                        eachClass notNil ifTrue:[
+                            self
+                                logWarning:('Unit test class "%1" was already present before file in.'
+                                    bindWith:eachClassName).
 
-			    Smalltalk exit:1.
-			].
+                            Smalltalk exit:1.
+                        ].
 
-			eachClass := Smalltalk
-			    fileInClass:eachClassName
-			    package:'stx:goodies/regression'.
-		    ].
+                        eachClass := Smalltalk
+                            fileInClass:eachClassName
+                            package:'stx:goodies/regression'.
+                    ].
 
-		    eachClass notNil ifTrue:[
-			eachClass isTestCaseLike ifTrue:[
-			    unitTestSuite addTest:eachClass suite.
-			].
-		    ] ifFalse:[
-			self
-			    logWarning:('unit test class "%1" is not loaded.'
-				bindWith:eachClassName).
-		    ].
-		].
-	    ].
-	].
+                    eachClass notNil ifTrue:[
+                        eachClass isTestCaseLike ifTrue:[
+                            unitTestSuite addTest:eachClass suite.
+                        ].
+                    ] ifFalse:[
+                        self
+                            logWarning:('unit test class "%1" is not loaded.'
+                                bindWith:eachClassName).
+                    ].
+                ].
+            ].
+        ].
     ].
 
     self
-	logInfo:('%1 unit test classes collected'
-	    bindWith:unitTestSuite tests size).
+        logInfo:('%1 unit test classes collected'
+            bindWith:unitTestSuite tests size).
 
     self logInfo:'starting unit tests'.
     result := unitTestSuite
-	run:TestResultStX new
-	beforeEachDo:[:test | self logInfo:'performing unit test ', test printString]
-	afterEachDo:[:test| ]
-	debug:(cmdArgs includes:'--debug').
+        run:TestResultStX new
+        beforeEachDo:[:test | self logInfo:'performing unit test ', test printString]
+        afterEachDo:[:test| ]
+        debug:(cmdArgs includes:'--debug').
 
     self logInfo:'generating report'.
     TestResultReporter
-	report:result
-	format:#xml_jUnit
-	as:resultFilePathName ? 'testresult.xml'.
+        report:result
+        format:#xml_jUnit
+        as:resultFilePathName ? 'testresult.xml'.
 
     self logInfo:'summary:'.
     self logInfo:('%1 tests' bindWith:result runCount).
@@ -224,3 +235,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+