equal
deleted
inserted
replaced
189 |
189 |
190 format writeTestCase: testcase outcome: #pass time: time exception: nil. |
190 format writeTestCase: testcase outcome: #pass time: time exception: nil. |
191 Transcript show:'OK' |
191 Transcript show:'OK' |
192 |
192 |
193 "Created: / 03-08-2011 / 15:19:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
193 "Created: / 03-08-2011 / 15:19:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
194 ! |
|
195 |
|
196 addSkipped: testcase |
|
197 |
|
198 format writeTestCase: testcase outcome: #skip time: time exception: nil. |
|
199 Transcript show:'SKIPPED' |
|
200 |
|
201 "Created: / 21-11-2012 / 15:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
194 ! ! |
202 ! ! |
195 |
203 |
196 !TestReport::Result methodsFor:'running'! |
204 !TestReport::Result methodsFor:'running'! |
197 |
205 |
198 performCase:aTestCase |
206 performCase:aTestCase |
221 |
229 |
222 "Created: / 22-08-2011 / 14:38:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
230 "Created: / 22-08-2011 / 14:38:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
223 ! |
231 ! |
224 |
232 |
225 runCase:aTestCase debugged: debugged fork:doFork timeout: tout |
233 runCase:aTestCase debugged: debugged fork:doFork timeout: tout |
226 | nm sel | |
234 | method nm sel | |
|
235 |
|
236 "/Skip testcases marked as <ignore> or <skip> . Report them as skipped |
|
237 method := aTestCase class lookupMethodFor: aTestCase selector. |
|
238 method annotationsAt:#ignore orAt: #skip do:[:annotation| |
|
239 self addSkipped: aTestCase. |
|
240 ^self. |
|
241 ]. |
227 |
242 |
228 nm := aTestCase nameForHDTestReport. |
243 nm := aTestCase nameForHDTestReport. |
229 nm size > 20 ifTrue:[ |
244 nm size > 20 ifTrue:[ |
230 nm := (nm copyTo: 17) , '...' |
245 nm := (nm copyTo: 17) , '...' |
231 ]. |
246 ]. |
256 ]. |
271 ]. |
257 |
272 |
258 self error:'Unssuported platform' |
273 self error:'Unssuported platform' |
259 |
274 |
260 "Created: / 12-01-2012 / 17:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
275 "Created: / 12-01-2012 / 17:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
276 "Modified: / 21-11-2012 / 15:33:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
261 ! ! |
277 ! ! |
262 |
278 |
263 !TestReport::Result methodsFor:'running-private'! |
279 !TestReport::Result methodsFor:'running-private'! |
264 |
280 |
265 lightForkCase:aTestCase debugged: debugged timeout: timeout |
281 lightForkCase:aTestCase debugged: debugged timeout: timeout |