equal
deleted
inserted
replaced
44 corruptedUnitTestClassNames := self corruptedUnitTestClassNames. |
44 corruptedUnitTestClassNames := self corruptedUnitTestClassNames. |
45 |
45 |
46 cmdArgs := Smalltalk commandLineArguments. |
46 cmdArgs := Smalltalk commandLineArguments. |
47 index := cmdArgs indexOf:'--settingsFile'. |
47 index := cmdArgs indexOf:'--settingsFile'. |
48 index > 0 ifTrue:[ |
48 index > 0 ifTrue:[ |
49 (cmdArgs at:index + 1) asFilename readIn. |
49 (cmdArgs at:index + 1) asFilename fileIn. |
50 ]. |
50 ]. |
51 |
51 |
52 (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[ |
52 (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[ |
53 self logInfo:'configured to run expecco unit tests only'. |
53 self logInfo:'configured to run expecco unit tests only'. |
54 doRunSpecificUnitTests := true. |
54 doRunSpecificUnitTests := true. |
74 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
74 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
75 self |
75 self |
76 logWarning:('corrupted unit test class detected, please fix #%1' |
76 logWarning:('corrupted unit test class detected, please fix #%1' |
77 bindWith:eachClassName). |
77 bindWith:eachClassName). |
78 ] ifFalse:[ |
78 ] ifFalse:[ |
79 Stdout nextPutLine:eachClassName printString. |
79 eachClassName notNil ifTrue:[ |
80 (eachClassName notNil |
|
81 and:[eachClassName = 'RegressionTests::ScaledDecimalTest']) ifTrue:[ |
|
82 eachClass := Smalltalk |
80 eachClass := Smalltalk |
83 fileInClass:eachClassName |
81 fileInClass:eachClassName |
84 package:'stx:goodies/regression'. |
82 package:'stx:goodies/regression'. |
85 |
83 |
86 eachClass notNil ifTrue:[ |
84 eachClass notNil ifTrue:[ |