220 ]. |
220 ]. |
221 |
221 |
222 self logInfo:'%1 unit test(s) collected' with:(unitTestSuite tests size). |
222 self logInfo:'%1 unit test(s) collected' with:(unitTestSuite tests size). |
223 |
223 |
224 self logInfo:'start tests...'. |
224 self logInfo:'start tests...'. |
225 result := unitTestSuite |
225 [ |
226 run:TestResultStX new |
226 result := |
227 beforeEachDo:[:test | |
227 unitTestSuite |
228 self logInfo:'Run "%1"' with:test printString |
228 run:TestResultStX new |
229 ] |
229 beforeEachDo:[:test | |
230 afterEachDo:[:test :result| |
230 self logInfo:'Run "%1"' with:test printString |
231 |execTime status| |
231 ] |
232 |
232 afterEachDo:[:test :result| |
233 execTime := result lastOutcome executionTimeDuration. |
233 |execTime status| |
234 status := result lastOutcome result. |
234 |
235 self logInfo:' %1 (%2)' with:status with:execTime. |
235 execTime := result lastOutcome executionTimeDuration. |
236 (status == TestResult stateFail or:[status == TestResult stateError]) ifTrue:[ |
236 status := result lastOutcome result. |
237 self logInfo:' ==================='. |
237 self logInfo:' %1 (%2)' with:status with:execTime. |
238 ] |
238 (status == TestResult stateFail or:[status == TestResult stateError]) ifTrue:[ |
239 ] |
239 self logInfo:' ==================='. |
240 debug:debug. |
240 ] |
|
241 ] |
|
242 debug:debug. |
|
243 ] ifCurtailed:[ |
|
244 self logWarning:'aborted in:.'. |
|
245 thisContext fullPrintAllOn:Stderr. |
|
246 ]. |
241 |
247 |
242 self logInfo:'tests finished.'. |
248 self logInfo:'tests finished.'. |
243 |
249 |
244 self logInfo:'generating xml report...'. |
250 self logInfo:'generating xml report...'. |
245 [ |
251 [ |