equal
deleted
inserted
replaced
63 ] ifFalse:[ |
63 ] ifFalse:[ |
64 eachClassName := eachClassNameAndAttributes |
64 eachClassName := eachClassNameAndAttributes |
65 firstIfEmpty:nil. |
65 firstIfEmpty:nil. |
66 ]. |
66 ]. |
67 |
67 |
68 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
68 (excludedUnitTestClassNames includes:eachClassName) ifFalse:[ |
69 self |
69 (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[ |
70 logWarning:('corrupted unit test class detected, please fix #%1' |
70 self |
71 bindWith:eachClassName). |
71 logWarning:('corrupted unit test class detected, please fix #%1' |
72 ] ifFalse:[ |
72 bindWith:eachClassName). |
73 (excludedUnitTestClassNames includes:eachClassName) ifFalse:[ |
73 ] ifFalse:[ |
74 eachClassName notNil ifTrue:[ |
74 eachClassName notNil ifTrue:[ |
75 eachClass := Smalltalk |
75 eachClass := Smalltalk |
76 fileInClass:eachClassName |
76 fileInClass:eachClassName |
77 package:'stx:goodies/regression'. |
77 package:'stx:goodies/regression'. |
78 |
78 |
79 eachClass notNil ifTrue:[ |
79 eachClass notNil ifTrue:[ |
80 eachClass isTestCaseLike ifTrue:[ |
80 eachClass isTestCaseLike ifTrue:[ |
81 unitTestSuite addTest:eachClass suite. |
81 unitTestSuite addTest:eachClass suite. |
82 ]. |
82 ]. |
83 ]. |
83 ]. |
84 ]. |
84 ]. |
85 ]. |
85 ]. |
86 ]. |
86 ]. |
87 ]. |
87 ]. |
115 corruptedUnitTestClassNames |
115 corruptedUnitTestClassNames |
116 ^ #( |
116 ^ #( |
117 #'RegressionTests::ExternalInterfaceTests' |
117 #'RegressionTests::ExternalInterfaceTests' |
118 #'RegressionTests::HTTPServerTests' |
118 #'RegressionTests::HTTPServerTests' |
119 #'RegressionTests::DebuggerTest' |
119 #'RegressionTests::DebuggerTest' |
|
120 #'RegressionTests::ContextTest2' |
120 ) |
121 ) |
121 ! |
122 ! |
122 |
123 |
123 excludedUnitTestClassNamesForAll |
124 excludedUnitTestClassNamesForAll |
124 ^ #() |
125 ^ #() |
137 #'RegressionTests::STCCompilerTests' |
138 #'RegressionTests::STCCompilerTests' |
138 #'RegressionTests::VMCrashTests' |
139 #'RegressionTests::VMCrashTests' |
139 #'RegressionTests::SnapshotRestartTests' |
140 #'RegressionTests::SnapshotRestartTests' |
140 #'RegressionTests::GraphicDrawingTest' |
141 #'RegressionTests::GraphicDrawingTest' |
141 #'RegressionTests::OS_OLE_Tests' |
142 #'RegressionTests::OS_OLE_Tests' |
|
143 #'RegressionTests::ExternalInterfaceTests' |
|
144 #'RegressionTests::HTTPServerTests' |
|
145 #'RegressionTests::DebuggerTest' |
|
146 #'RegressionTests::ContextTest2' |
142 ) |
147 ) |
143 ! ! |
148 ! ! |
144 |
149 |
145 !RunUnitTests class methodsFor:'logging'! |
150 !RunUnitTests class methodsFor:'logging'! |
146 |
151 |