*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 24 Mar 2016 00:17:28 +0100
changeset 31183f952e15a2c
parent 310 1fecaf68f3b4
child 312 2cc5a7dc36b6
*** empty log message ***
quickSelfTest/SelfTest.st
     1.1 --- a/quickSelfTest/SelfTest.st	Thu Mar 24 00:15:05 2016 +0100
     1.2 +++ b/quickSelfTest/SelfTest.st	Thu Mar 24 00:17:28 2016 +0100
     1.3 @@ -82,11 +82,11 @@
     1.4  "/
     1.5  "/ run the suite
     1.6  "/
     1.7 -(Smalltalk commandLineArgumentNamed:'--skipTests') notNil ifTrue:[
     1.8 +(Smalltalk commandLineArguments includes:'--skipTests') ifTrue:[
     1.9      Stdout showCR:'Skipping suite.'.
    1.10  ] ifFalse:[
    1.11      Stdout showCR:'Running suite...'.
    1.12 -    debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
    1.13 +    debugging := (Smalltalk commandLineArguments includes:'--debug').
    1.14      result := suite
    1.15  		run:TestResultStX new
    1.16  		beforeEachDo:[:test |
    1.17 @@ -137,7 +137,7 @@
    1.18  	    'stx:goodies/soap'
    1.19  ) do:[:p | Smalltalk loadPackage:p].
    1.20  
    1.21 -(Smalltalk commandLineArgumentNamed:'--skipMetrics') notNil ifTrue:[
    1.22 +(Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[
    1.23      Stdout showCR:'Skipping metrics.'.
    1.24  ] ifFalse:[
    1.25      'metrics.xml' asFilename writingFileDo:[:stream |