class: Builder::TestReport expecco_2_6_0 expecco_2_6_0_45_windows_final expecco_2_6_0_49_windows_final expecco_2_6_0rc1 expecco_2_6_1 expecco_2_6_2
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 23 Oct 2013 12:49:35 +0200
changeset 215b6e13772ac08
parent 214 99e04c6e23fb
child 216 f784d9decd5a
class: Builder::TestReport
changed: #runReport

Print failed/error testcases after run.
reports/Builder__TestReport.st
     1.1 --- a/reports/Builder__TestReport.st	Tue Jul 30 10:19:51 2013 +0200
     1.2 +++ b/reports/Builder__TestReport.st	Wed Oct 23 12:49:35 2013 +0200
     1.3 @@ -176,12 +176,24 @@
     1.4          suite run:result.
     1.5      ].
     1.6      Transcript cr; cr.
     1.7 +
     1.8 +    result failureOutcomes do:[:failureOutcome |
     1.9 +        Transcript show: 'FAILED '.
    1.10 +        failureOutcome testCase printOn: Transcript.
    1.11 +        Transcript cr.
    1.12 +    ].
    1.13 +    result errorOutcomes do:[:errorOutcome |
    1.14 +        Transcript show: 'ERROR  '.
    1.15 +        errorOutcome testCase printOn: Transcript.
    1.16 +        Transcript cr.
    1.17 +    ].
    1.18 +    Transcript cr; cr.
    1.19      Transcript show: 'SUMMARY: '.
    1.20      result printOn: Transcript.
    1.21      Transcript cr.
    1.22  
    1.23      "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.24 -    "Modified: / 25-06-2013 / 16:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.25 +    "Modified: / 23-10-2013 / 11:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.26  ! !
    1.27  
    1.28  !TestReport::Result methodsFor:'accessing'!
    1.29 @@ -235,20 +247,22 @@
    1.30  
    1.31      format writeTestCase: testcase outcome: #error time: time exception: exception.
    1.32      Transcript show:'ERROR'.
    1.33 +    self errorOutcomes add:outcome.      
    1.34      nerror := nerror + 1.
    1.35  
    1.36      "Created: / 03-08-2011 / 15:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.37 -    "Modified: / 31-01-2013 / 13:52:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.38 +    "Modified: / 23-10-2013 / 11:46:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.39  !
    1.40  
    1.41  addFailure: testcase detail: exception
    1.42  
    1.43      format writeTestCase: testcase outcome: #failure time: time exception: exception.
    1.44      Transcript show:'FAILED'.
    1.45 +    self failureOutcomes add: outcome.
    1.46      nfailed := nfailed + 1.
    1.47  
    1.48      "Created: / 03-08-2011 / 15:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.49 -    "Modified: / 31-01-2013 / 13:53:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.50 +    "Modified: / 23-10-2013 / 11:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.51  !
    1.52  
    1.53  addPass: testcase