class: Builder::TestReport
changed: #runReport
Print failed/error testcases after run.
--- 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