equal
deleted
inserted
replaced
123 s cr. |
123 s cr. |
124 ]. |
124 ]. |
125 home := context methodHome. |
125 home := context methodHome. |
126 mthd := home method. |
126 mthd := home method. |
127 |
127 |
128 s nextPutAll:'bytecode: '; cr. |
128 report keepBytecode ifTrue:[ |
129 mthd notNil ifTrue:[ |
129 s nextPutAll:'bytecode: '; cr. |
130 (mthd isJavaMethod and:[mthd class ~~ JavaNativeMethod]) ifFalse:[ |
130 mthd notNil ifTrue:[ |
131 Decompiler decompile: mthd to: s. |
131 (mthd isJavaMethod and:[mthd class ~~ JavaNativeMethod]) ifFalse:[ |
132 ] ifTrue:[ |
132 Decompiler decompile: mthd to: s. |
133 (Smalltalk at: #JavaByteCodeDisassembler) notNil ifTrue:[ |
133 ] ifTrue:[ |
134 (Smalltalk at: #JavaByteCodeDisassembler) diassemble: mthd to: s. |
134 (Smalltalk at: #JavaByteCodeDisassembler) notNil ifTrue:[ |
135 ] ifFalse:[ |
135 (Smalltalk at: #JavaByteCodeDisassembler) diassemble: mthd to: s. |
136 s nextPutAll: ' ** no JavaByteCodeDisassembler **' |
136 ] ifFalse:[ |
|
137 s nextPutAll: ' ** no JavaByteCodeDisassembler **' |
|
138 ]. |
137 ]. |
139 ]. |
138 ]. |
140 ]. |
139 ]. |
141 ]. |
140 |
142 |
141 s cr. |
143 s cr. |
177 " |
179 " |
178 String streamContents:[ :s | Builder::TestReportFormat basicNew writeContext: thisContext on: s ] |
180 String streamContents:[ :s | Builder::TestReportFormat basicNew writeContext: thisContext on: s ] |
179 " |
181 " |
180 |
182 |
181 "Created: / 03-08-2011 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183 "Created: / 03-08-2011 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
182 "Modified: / 18-01-2016 / 08:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
184 "Modified: / 15-03-2016 / 14:34:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
183 ! |
185 ! |
184 |
186 |
185 writeStackTrace:err of:aTestCase on: str |
187 writeStackTrace:err of:aTestCase on: str |
186 |
188 |
187 | context stop | |
189 | context | |
188 |
190 |
189 context := err signalerContext. |
191 context := err signalerContext. |
190 stop := false. |
|
191 |
192 |
192 [ context notNil ] whileTrue:[ |
193 [ context notNil ] whileTrue:[ |
193 self writeContext: context on: str. |
194 self writeContext: context on: str. |
194 str cr; cr. |
195 str cr; cr. |
195 |
196 |
200 context := context sender. |
201 context := context sender. |
201 |
202 |
202 ]. |
203 ]. |
203 |
204 |
204 "Created: / 03-08-2011 / 14:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
205 "Created: / 03-08-2011 / 14:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
206 "Modified: / 15-03-2016 / 14:33:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
205 ! ! |
207 ! ! |
206 |
208 |
207 !TestReportFormat::JUnit class methodsFor:'accessing'! |
209 !TestReportFormat::JUnit class methodsFor:'accessing'! |
208 |
210 |
209 symbolicNames |
211 symbolicNames |