# HG changeset patch
# User sr
# Date 1507902730 -7200
# Node ID ea961aaa07f818bf26549e150b15b9f53be1a431
# Parent  ef5631a384306b5bd0b58d51fbc8bb99b3521a40
#BUGFIX by sr
class: RunUnitTests class
changed: #runWithCompiledUnitTestClasses:arguments:debug:

diff -r ef5631a38430 -r ea961aaa07f8 quickSelfTest/RunUnitTests.st
--- a/quickSelfTest/RunUnitTests.st	Fri Oct 13 13:57:22 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Fri Oct 13 15:52:10 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/builder/quickSelfTest' }"
 
 "{ NameSpace: Smalltalk }"
@@ -49,7 +51,6 @@
     debug:debug
 
     |doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
-     cmdArgs
      unitTestSuite
      eachClass
      result index
@@ -60,41 +61,30 @@
     excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll.
     corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
 
-    cmdArgs := arguments.
-    (cmdArgs includesAny:#('--help' '/?')) ifTrue:[
-        Stdout showCR:'--help............................this infromation'.
-        Stdout showCR:'--settingsFile....................path to a stx settings file (may to set compiler options)'.
-        Stdout showCR:'--runOnlyExpeccoUnitTests.........run only expecco related test cases'.
-        Stdout showCR:'--resultFile......................path to a file for storing the result as xml'.
-        Stdout showCR:'--forceTestCase...................class name of a test case (only this test case will be executed)'.
-
-        Smalltalk exit.
-    ].
-
-    index := cmdArgs indexOf:'--settingsFile'.
+    index := arguments indexOf:'--settingsFile'.
     index > 0 ifTrue:[
-        settingsFilePathName := cmdArgs at:index + 1.
+        settingsFilePathName := arguments at:index + 1.
         self logInfo:'load settings file: ', settingsFilePathName printString.
         settingsFilePathName asFilename fileIn.
         self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
     ].
 
-    (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
+    (arguments 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 := arguments indexOf:'--resultFile'.
     index > 0 ifTrue:[
-        resultFilePathName := cmdArgs at:index + 1.
+        resultFilePathName := arguments at:index + 1.
         self logInfo:'set custom result file: ', resultFilePathName printString.
     ].
 
-    index := cmdArgs indexOf:'--forceTestCase'.
+    index := arguments indexOf:'--forceTestCase'.
     index > 0 ifTrue:[
-        forceTestCase := cmdArgs at:index + 1.
+        forceTestCase := arguments at:index + 1.
         self logInfo:'set force test case: ', forceTestCase printString.
     ].