equal
deleted
inserted
replaced
115 #window: |
115 #window: |
116 #(#WindowSpec |
116 #(#WindowSpec |
117 #label: 'SUnit Camp Smalltalk 2.7d TestRunner' |
117 #label: 'SUnit Camp Smalltalk 2.7d TestRunner' |
118 #name: 'SUnit Camp Smalltalk 2.7d TestRunner' |
118 #name: 'SUnit Camp Smalltalk 2.7d TestRunner' |
119 #min: #(#Point 362 122) |
119 #min: #(#Point 362 122) |
120 #bounds: #(#Rectangle 13 23 506 198) |
120 #bounds: #(#Rectangle 16 42 509 217) |
121 #icon: #defaultIcon |
121 #icon: #defaultIcon |
122 ) |
122 ) |
123 #component: |
123 #component: |
124 #(#SpecCollection |
124 #(#SpecCollection |
125 #collection: #( |
125 #collection: #( |
132 ) |
132 ) |
133 #(#MenuButtonSpec |
133 #(#MenuButtonSpec |
134 #name: 'category' |
134 #name: 'category' |
135 #layout: #(#LayoutFrame 76 0 0 0 -216 1 24 0) |
135 #layout: #(#LayoutFrame 76 0 0 0 -216 1 24 0) |
136 #activeHelpKey: #suitesCategoryList |
136 #activeHelpKey: #suitesCategoryList |
|
137 #tabable: true |
137 #model: #category |
138 #model: #category |
138 #menu: #categoryList |
139 #menu: #categoryList |
139 ) |
140 ) |
140 #(#MenuButtonSpec |
141 #(#MenuButtonSpec |
141 #name: #tests |
142 #name: #tests |
142 #layout: #(#LayoutFrame 76 0 24 0 -216 1 48 0) |
143 #layout: #(#LayoutFrame 76 0 24 0 -216 1 48 0) |
143 #activeHelpKey: #suiteSelection |
144 #activeHelpKey: #suiteSelection |
|
145 #tabable: true |
144 #model: #script |
146 #model: #script |
145 #menu: #scriptModel |
147 #menu: #scriptModel |
146 #useIndex: true |
148 #useIndex: true |
147 ) |
149 ) |
148 #(#ActionButtonSpec |
150 #(#ActionButtonSpec |
194 #name: #defects |
196 #name: #defects |
195 #layout: #(#LayoutFrame 0 0 -24 1 -152 1 0 1) |
197 #layout: #(#LayoutFrame 0 0 -24 1 -152 1 0 1) |
196 #isOpaque: true |
198 #isOpaque: true |
197 #flags: 40 |
199 #flags: 40 |
198 #activeHelpKey: #defectsList |
200 #activeHelpKey: #defectsList |
|
201 #tabable: true |
199 #model: #selectionHolder |
202 #model: #selectionHolder |
200 #initiallyDisabled: true |
203 #initiallyDisabled: true |
201 #enableChannel: #enableDefectsList |
204 #enableChannel: #enableDefectsList |
202 #menu: #defectMenu |
205 #menu: #defectMenu |
|
206 #ignoreReselect: false |
203 ) |
207 ) |
204 #(#ActionButtonSpec |
208 #(#ActionButtonSpec |
205 #label: 'Browse' |
209 #label: 'Browse' |
206 #name: 'BrowseButton' |
210 #name: 'BrowseButton' |
207 #layout: #(#LayoutFrame -151 1 -24 1 -76 1 0 1) |
211 #layout: #(#LayoutFrame -151 1 -24 1 -76 1 0 1) |
231 |
235 |
232 ^super open |
236 ^super open |
233 ! |
237 ! |
234 |
238 |
235 openOnTestCase:aTestCaseSubclass |
239 openOnTestCase:aTestCaseSubclass |
|
240 "open the testrunner,let it switch to and execute a testcase" |
|
241 |
236 |runner idx| |
242 |runner idx| |
237 |
243 |
238 runner := self new. |
244 runner := self new. |
239 runner open. |
245 runner openAndWaitUntilVisible. |
240 runner window waitUntilVisible. |
246 |
241 |
247 "/ idx := runner scriptModel value indexOf:aTestCaseSubclass name. |
242 idx := runner scriptModel value indexOf:aTestCaseSubclass name. |
|
243 runner selectScriptNamed:aTestCaseSubclass name. |
248 runner selectScriptNamed:aTestCaseSubclass name. |
|
249 |
|
250 "/ the test should be executed by the TestRunner process (not the caller) |
|
251 "/ in oder for CTRL-C and busyCursor to work correctly. |
|
252 "/ Therefore, push event instead of executing the test here. |
|
253 |
|
254 "/runner runTests |
|
255 runner enqueueMessage:#runTests for:runner arguments:nil. |
244 |
256 |
245 " |
257 " |
246 self openOnTestCase:CompilerTest |
258 self openOnTestCase:CompilerTest |
|
259 self openOnTestCase:ConstraintTests |
247 " |
260 " |
248 ! ! |
261 ! ! |
249 |
262 |
250 !TestRunner class methodsFor:'plugIn spec'! |
263 !TestRunner class methodsFor:'plugIn spec'! |
251 |
264 |
1076 ! ! |
1089 ! ! |
1077 |
1090 |
1078 !TestRunner class methodsFor:'documentation'! |
1091 !TestRunner class methodsFor:'documentation'! |
1079 |
1092 |
1080 version |
1093 version |
1081 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.35 2002-08-09 13:22:10 cg Exp $' |
1094 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunner.st,v 1.36 2002-08-12 11:07:37 cg Exp $' |
1082 ! ! |
1095 ! ! |