34 run |
34 run |
35 |doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames |
35 |doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames |
36 cmdArgs |
36 cmdArgs |
37 unitTestSuite |
37 unitTestSuite |
38 eachClassName eachClass |
38 eachClassName eachClass |
39 result index| |
39 result index settingsFilePathName| |
40 |
40 |
41 doRunSpecificUnitTests := false. |
41 doRunSpecificUnitTests := false. |
42 unitTestSuiteName := 'All Unit Tests'. |
42 unitTestSuiteName := 'All Unit Tests'. |
43 excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll. |
43 excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll. |
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 fileIn. |
49 settingsFilePathName := cmdArgs at:index + 1. |
|
50 self logInfo:'load settings file: ', settingsFilePathName printString. |
|
51 settingsFilePathName asFilename fileIn. |
|
52 self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString. |
50 ]. |
53 ]. |
51 |
54 |
52 (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[ |
55 (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[ |
53 self logInfo:'configured to run expecco unit tests only'. |
56 self logInfo:'configured to run expecco unit tests only'. |
54 doRunSpecificUnitTests := true. |
57 doRunSpecificUnitTests := true. |
74 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
77 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
75 self |
78 self |
76 logWarning:('corrupted unit test class detected, please fix #%1' |
79 logWarning:('corrupted unit test class detected, please fix #%1' |
77 bindWith:eachClassName). |
80 bindWith:eachClassName). |
78 ] ifFalse:[ |
81 ] ifFalse:[ |
79 eachClassName notNil ifTrue:[ |
82 eachClassName notNil ifTrue:[ |
80 eachClass := Smalltalk |
83 eachClass := Smalltalk |
81 fileInClass:eachClassName |
84 fileInClass:eachClassName |
82 package:'stx:goodies/regression'. |
85 package:'stx:goodies/regression'. |
83 |
86 |
84 eachClass notNil ifTrue:[ |
87 eachClass notNil ifTrue:[ |