# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1382525375 -7200
# Node ID b6e13772ac08deb97444c035765dc823e65b0ff2
# Parent  99e04c6e23fb4c178384ef27b919a2286c68a97d
class: Builder::TestReport
changed: #runReport

Print failed/error testcases after run.

diff -r 99e04c6e23fb -r b6e13772ac08 reports/Builder__TestReport.st
--- a/reports/Builder__TestReport.st	Tue Jul 30 10:19:51 2013 +0200
+++ b/reports/Builder__TestReport.st	Wed Oct 23 12:49:35 2013 +0200
@@ -176,12 +176,24 @@
         suite run:result.
     ].
     Transcript cr; cr.
+
+    result failureOutcomes do:[:failureOutcome |
+        Transcript show: 'FAILED '.
+        failureOutcome testCase printOn: Transcript.
+        Transcript cr.
+    ].
+    result errorOutcomes do:[:errorOutcome |
+        Transcript show: 'ERROR  '.
+        errorOutcome testCase printOn: Transcript.
+        Transcript cr.
+    ].
+    Transcript cr; cr.
     Transcript show: 'SUMMARY: '.
     result printOn: Transcript.
     Transcript cr.
 
     "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 25-06-2013 / 16:21:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-10-2013 / 11:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'accessing'!
@@ -235,20 +247,22 @@
 
     format writeTestCase: testcase outcome: #error time: time exception: exception.
     Transcript show:'ERROR'.
+    self errorOutcomes add:outcome.      
     nerror := nerror + 1.
 
     "Created: / 03-08-2011 / 15:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-01-2013 / 13:52:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-10-2013 / 11:46:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addFailure: testcase detail: exception
 
     format writeTestCase: testcase outcome: #failure time: time exception: exception.
     Transcript show:'FAILED'.
+    self failureOutcomes add: outcome.
     nfailed := nfailed + 1.
 
     "Created: / 03-08-2011 / 15:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-01-2013 / 13:53:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-10-2013 / 11:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addPass: testcase