--- a/quickSelfTest/SelfTest.st Thu Mar 24 00:15:05 2016 +0100
+++ b/quickSelfTest/SelfTest.st Thu Mar 24 00:17:28 2016 +0100
@@ -82,11 +82,11 @@
"/
"/ run the suite
"/
-(Smalltalk commandLineArgumentNamed:'--skipTests') notNil ifTrue:[
+(Smalltalk commandLineArguments includes:'--skipTests') ifTrue:[
Stdout showCR:'Skipping suite.'.
] ifFalse:[
Stdout showCR:'Running suite...'.
- debugging := (Smalltalk commandLineArgumentNamed:'--debug') notNil.
+ debugging := (Smalltalk commandLineArguments includes:'--debug').
result := suite
run:TestResultStX new
beforeEachDo:[:test |
@@ -137,7 +137,7 @@
'stx:goodies/soap'
) do:[:p | Smalltalk loadPackage:p].
-(Smalltalk commandLineArgumentNamed:'--skipMetrics') notNil ifTrue:[
+(Smalltalk commandLineArguments includes:'--skipMetrics') ifTrue:[
Stdout showCR:'Skipping metrics.'.
] ifFalse:[
'metrics.xml' asFilename writingFileDo:[:stream |