174 coverage run. |
174 coverage run. |
175 ] ifFalse:[ |
175 ] ifFalse:[ |
176 suite run:result. |
176 suite run:result. |
177 ]. |
177 ]. |
178 Transcript cr; cr. |
178 Transcript cr; cr. |
|
179 |
|
180 result failureOutcomes do:[:failureOutcome | |
|
181 Transcript show: 'FAILED '. |
|
182 failureOutcome testCase printOn: Transcript. |
|
183 Transcript cr. |
|
184 ]. |
|
185 result errorOutcomes do:[:errorOutcome | |
|
186 Transcript show: 'ERROR '. |
|
187 errorOutcome testCase printOn: Transcript. |
|
188 Transcript cr. |
|
189 ]. |
|
190 Transcript cr; cr. |
179 Transcript show: 'SUMMARY: '. |
191 Transcript show: 'SUMMARY: '. |
180 result printOn: Transcript. |
192 result printOn: Transcript. |
181 Transcript cr. |
193 Transcript cr. |
182 |
194 |
183 "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
195 "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
184 "Modified: / 25-06-2013 / 16:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
196 "Modified: / 23-10-2013 / 11:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
185 ! ! |
197 ! ! |
186 |
198 |
187 !TestReport::Result methodsFor:'accessing'! |
199 !TestReport::Result methodsFor:'accessing'! |
188 |
200 |
189 errorCount |
201 errorCount |
233 |
245 |
234 addError: testcase detail: exception |
246 addError: testcase detail: exception |
235 |
247 |
236 format writeTestCase: testcase outcome: #error time: time exception: exception. |
248 format writeTestCase: testcase outcome: #error time: time exception: exception. |
237 Transcript show:'ERROR'. |
249 Transcript show:'ERROR'. |
|
250 self errorOutcomes add:outcome. |
238 nerror := nerror + 1. |
251 nerror := nerror + 1. |
239 |
252 |
240 "Created: / 03-08-2011 / 15:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
253 "Created: / 03-08-2011 / 15:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
241 "Modified: / 31-01-2013 / 13:52:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
254 "Modified: / 23-10-2013 / 11:46:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
242 ! |
255 ! |
243 |
256 |
244 addFailure: testcase detail: exception |
257 addFailure: testcase detail: exception |
245 |
258 |
246 format writeTestCase: testcase outcome: #failure time: time exception: exception. |
259 format writeTestCase: testcase outcome: #failure time: time exception: exception. |
247 Transcript show:'FAILED'. |
260 Transcript show:'FAILED'. |
|
261 self failureOutcomes add: outcome. |
248 nfailed := nfailed + 1. |
262 nfailed := nfailed + 1. |
249 |
263 |
250 "Created: / 03-08-2011 / 15:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
264 "Created: / 03-08-2011 / 15:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
251 "Modified: / 31-01-2013 / 13:53:01 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
265 "Modified: / 23-10-2013 / 11:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
252 ! |
266 ! |
253 |
267 |
254 addPass: testcase |
268 addPass: testcase |
255 |
269 |
256 format writeTestCase: testcase outcome: #pass time: time exception: nil. |
270 format writeTestCase: testcase outcome: #pass time: time exception: nil. |