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 keepStdout' |
6 instanceVariableNames:'suite coverage instrument keepStdout keepBytecode' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Builder-Reports' |
9 category:'Builder-Reports' |
10 ! |
10 ! |
11 |
11 |
16 privateIn:TestReport |
16 privateIn:TestReport |
17 ! |
17 ! |
18 |
18 |
19 |
19 |
20 !TestReport methodsFor:'accessing'! |
20 !TestReport methodsFor:'accessing'! |
|
21 |
|
22 keepBytecode |
|
23 ^ keepBytecode |
|
24 ! |
|
25 |
|
26 keepBytecode:aBoolean |
|
27 keepBytecode := aBoolean. |
|
28 ! |
21 |
29 |
22 keepStdout |
30 keepStdout |
23 ^ keepStdout |
31 ^ keepStdout |
24 ! |
32 ! |
25 |
33 |
107 ]. |
115 ]. |
108 |
116 |
109 ] |
117 ] |
110 |
118 |
111 "Created: / 27-05-2014 / 16:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
119 "Created: / 27-05-2014 / 16:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
120 ! |
|
121 |
|
122 cmdlineOptionKeepBytecode |
|
123 |
|
124 ^CmdLineOption new |
|
125 long: 'keep-bytecode'; |
|
126 description: 'Keep and include method''s bytecode in reported stacktraces. May generate huge report!!'; |
|
127 action:[ |
|
128 keepBytecode := true |
|
129 ] |
|
130 |
|
131 "Created: / 15-03-2016 / 14:32:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
112 ! |
132 ! |
113 |
133 |
114 cmdlineOptionKeepStdout |
134 cmdlineOptionKeepStdout |
115 |
135 |
116 ^CmdLineOption new |
136 ^CmdLineOption new |