equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/builder/reports' }" |
1 "{ Package: 'stx:goodies/builder/reports' }" |
2 |
2 |
3 "{ NameSpace: Builder }" |
3 "{ NameSpace: Builder }" |
4 |
4 |
5 Report subclass:#TestReport |
5 Report subclass:#TestReport |
6 instanceVariableNames:'suite coverage instrument' |
6 instanceVariableNames:'suite coverage instrument' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Builder-Reports' |
9 category:'Builder-Reports' |
10 ! |
10 ! |
11 |
11 |
12 TestResult subclass:#Result |
12 TestResult subclass:#Result |
13 instanceVariableNames:'format time npassed nfailed nerror nskipped' |
13 instanceVariableNames:'format time npassed nfailed nerror nskipped' |
14 classVariableNames:'' |
14 classVariableNames:'' |
15 poolDictionaries:'' |
15 poolDictionaries:'' |
16 privateIn:TestReport |
16 privateIn:TestReport |
17 ! |
17 ! |
18 |
18 |
19 |
19 |
20 !TestReport methodsFor:'accessing'! |
20 !TestReport methodsFor:'accessing'! |
21 |
21 |
302 "Modified: / 06-06-2014 / 09:34:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
302 "Modified: / 06-06-2014 / 09:34:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
303 ! |
303 ! |
304 |
304 |
305 addSkipped: testcase |
305 addSkipped: testcase |
306 |
306 |
|
307 outcome := self createOutcome. |
|
308 outcome testCase: testcase. |
307 outcome result: TestResult stateSkip. |
309 outcome result: TestResult stateSkip. |
308 format writeTestCase: testcase outcome: outcome time: time exception: nil. |
310 format writeTestCase: testcase outcome: outcome time: time exception: nil. |
309 Transcript show:'...SKIPPED'. |
311 Transcript show:'...SKIPPED'. |
310 nskipped := nskipped + 1. |
312 nskipped := nskipped + 1. |
311 |
313 |
312 "Created: / 21-11-2012 / 15:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
314 "Created: / 21-11-2012 / 15:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
313 "Modified: / 06-06-2014 / 09:34:06 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
315 "Modified: / 06-06-2014 / 11:20:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
314 ! ! |
316 ! ! |
315 |
317 |
316 !TestReport::Result methodsFor:'initialization'! |
318 !TestReport::Result methodsFor:'initialization'! |
317 |
319 |
318 initialize |
320 initialize |