equal
deleted
inserted
replaced
237 |
237 |
238 !TestReport methodsFor:'running'! |
238 !TestReport methodsFor:'running'! |
239 |
239 |
240 runReport |
240 runReport |
241 |
241 |
242 | result | |
242 | result t0 t1 | |
243 result := Result new format:format. |
243 result := Result new format:format. |
|
244 t0 := Timestamp now. |
244 coverage notNil ifTrue:[ |
245 coverage notNil ifTrue:[ |
245 InstrumentationContext run:[ |
246 InstrumentationContext run:[ |
246 suite run:result. |
247 suite run:result. |
247 ]. |
248 ]. |
248 Transcript cr; cr. |
249 Transcript cr; cr. |
251 coverage ident: self ident. |
252 coverage ident: self ident. |
252 coverage run. |
253 coverage run. |
253 ] ifFalse:[ |
254 ] ifFalse:[ |
254 suite run:result. |
255 suite run:result. |
255 ]. |
256 ]. |
|
257 t1 := Timestamp now. |
|
258 |
256 Transcript cr; cr. |
259 Transcript cr; cr. |
257 |
260 |
258 result failureOutcomes do:[:failureOutcome | |
261 result failureOutcomes do:[:failureOutcome | |
259 Transcript show: 'FAILED '. |
262 Transcript show: 'FAILED '. |
260 failureOutcome testCase printOn: Transcript. |
263 failureOutcome testCase printOn: Transcript. |
266 Transcript cr. |
269 Transcript cr. |
267 ]. |
270 ]. |
268 Transcript cr; cr. |
271 Transcript cr; cr. |
269 Transcript show: 'SUMMARY: '. |
272 Transcript show: 'SUMMARY: '. |
270 result printOn: Transcript. |
273 result printOn: Transcript. |
|
274 Transcript show: ', test execution time '. |
|
275 (t1 - t0) printOn: Transcript. |
271 Transcript cr. |
276 Transcript cr. |
272 |
277 |
273 "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
278 "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
274 "Modified: / 28-05-2016 / 10:33:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
279 "Modified: / 23-02-2017 / 12:47:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
275 ! ! |
280 ! ! |
276 |
281 |
277 !TestReport::Result methodsFor:'accessing'! |
282 !TestReport::Result methodsFor:'accessing'! |
278 |
283 |
279 errorCount |
284 errorCount |