--- 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$'
! !
-