quickSelfTest/RunUnitTestsStart.st
changeset 540 1ccf832eb9e7
parent 537 3dc87166e57d
child 548 54b9fecb0bc9
--- a/quickSelfTest/RunUnitTestsStart.st	Wed Mar 27 04:29:24 2019 +0000
+++ b/quickSelfTest/RunUnitTestsStart.st	Thu Mar 28 13:05:45 2019 +0100
@@ -18,7 +18,7 @@
     Only for standalone startup.
 
     [author:]
-        sr
+	sr
 
     [instance variables:]
 
@@ -35,11 +35,11 @@
     self verboseInfo:('starting application').
     self startStartBlockProcess.
 
-    "install a global handler, 
-     which suppresses the updating of the change file"       
+    "install a global handler,
+     which suppresses the updating of the change file"
     Processor activeProcess exceptionHandlerSet
-        on:(Class updateChangeFileQuerySignal)
-        do:[:ex | ex proceedWith:false].
+	on:(Class updateChangeFileQuerySignal)
+	do:[:ex | ex proceedWith:false].
 
     "run the unit tests"
     RunUnitTests runWithCompiledUnitTestClasses:true.
@@ -47,8 +47,8 @@
 
 setupSmalltalkFromArguments:argv
     (argv includes:'/?') ifTrue:[
-        self usage.
-        AbortOperationRequest raise.
+	self usage.
+	AbortOperationRequest raise.
     ].
 
     ^ super setupSmalltalkFromArguments:argv
@@ -62,6 +62,7 @@
     Stderr nextPutLine:'  --resultFile......................path to a file for storing the result as xml'.
     Stderr nextPutLine:'  --forceTestCase testName .........class name of a test case (only this test case will be executed)'.
     Stderr nextPutLine:'  --run testName ...................same, shorter'.
+    Stderr nextPutLine:'  --skip testName ..................skip a test class'.
 
     "Modified: / 26-03-2019 / 18:47:53 / Claus Gittinger"
 ! !
@@ -75,4 +76,3 @@
 version_CVS
     ^ '$Header$'
 ! !
-