changed: expecco_2_2_0 expecco_2_2_5
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 03 Feb 2012 14:21:05 +0100
changeset 8629a8a74674f5
parent 85 df826a8b762e
child 87 432ff6d3a032
changed:
#writeContext:on:
#writeStackTrace:of:on:
reports/Builder__TestReportFormat.st
     1.1 --- a/reports/Builder__TestReportFormat.st	Tue Jan 31 19:21:31 2012 +0100
     1.2 +++ b/reports/Builder__TestReportFormat.st	Fri Feb 03 14:21:05 2012 +0100
     1.3 @@ -100,16 +100,15 @@
     1.4      [
     1.5      context printOn: s.
     1.6      s cr.
     1.7 -"
     1.8 -    s nextPutAll:'receiver: '. self print: context receiver on: s. s cr.
     1.9 -    s nextPutAll:'selector: '. self print:context selector on: s. s cr.
    1.10 +    s nextPutAll:'receiver: '. context receiver printOn: s. s cr.
    1.11 +    s nextPutAll:'selector: '. context selector printOn: s. s cr.
    1.12      s nextPutAll:'args: '; cr.
    1.13      context args keysAndValuesDo:[:idx :eachArg |
    1.14 -        s nextPutAll:'  '. idx printOn: s. s nextPutAll:': '. self  print: eachArg on: s.s cr.
    1.15 +        s nextPutAll:'  '. idx printOn: s. s nextPutAll:': '. eachArg printOn: s.s cr.
    1.16      ].
    1.17      s nextPutAll:'vars: '; cr.
    1.18      context vars keysAndValuesDo:[:idx :eachVar |
    1.19 -        s nextPutAll:'  '. idx printOn: s. s nextPutAll:': '. self print: eachVar on: s.s cr.
    1.20 +        s nextPutAll:'  '. idx printOn: s. s nextPutAll:': '. eachVar printOn: s.s cr.
    1.21      ].
    1.22      s nextPutAll:'source: '; cr.    
    1.23  
    1.24 @@ -143,14 +142,12 @@
    1.25          s nextPutAll: line; cr.
    1.26      ].
    1.27      s cr.
    1.28 -"
    1.29      ] on: Error do:[:ex|
    1.30          s   cr;
    1.31              nextPutAll:'!!!!!!ERROR WHEN GETTING STACK TRACE!!!!!!'; cr;
    1.32              nextPutAll: ex description; cr
    1.33      ]
    1.34  
    1.35 -    "Modified: / 01-04-2011 / 12:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.36      "Created: / 03-08-2011 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.37  !
    1.38  
    1.39 @@ -164,6 +161,7 @@
    1.40          or:[ (context receiver == aTestCase and:[ context selector == #runCase ])
    1.41              or: [ context receiver == self and:[ context selector == #setUp ] ] ] ] whileFalse:
    1.42                  [ self writeContext: context on: str.
    1.43 +                str cr; cr.
    1.44                  context := context sender ]
    1.45  
    1.46      "Created: / 03-08-2011 / 14:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.47 @@ -271,9 +269,9 @@
    1.48              nextPutAll:(self encode:type);
    1.49              nextPutAll:'" message="';
    1.50              nextPutAll:(self encode: message);
    1.51 -            nextPutAll:'">';
    1.52 -            nextPutAll:(self encode:stacktrace ? 'stacktrace not available');
    1.53 -            nextPutAll:'</'; nextPutAll: outcome; nextPutAll:'>';
    1.54 +            nextPutAll:'"><!![CDATA['; cr;
    1.55 +            nextPutAll:(stacktrace ? 'stacktrace not available');
    1.56 +            nextPutAll:']]></'; nextPutAll: outcome; nextPutAll:'>';
    1.57              nextPut:Character lf
    1.58      ].
    1.59      stream tab;