--- a/reports/Builder__TestReport.st	Mon Feb 13 12:00:51 2017 +0100
+++ b/reports/Builder__TestReport.st	Thu Feb 23 13:36:24 2017 +0000
@@ -239,8 +239,9 @@
 
 runReport
 
-    | result |
+    | result t0 t1 |
     result := Result new format:format.
+    t0 := Timestamp now.
     coverage notNil ifTrue:[
         InstrumentationContext  run:[
             suite run:result.
@@ -253,6 +254,8 @@
     ] ifFalse:[
         suite run:result.
     ].
+    t1 := Timestamp now.
+
     Transcript cr; cr.
 
     result failureOutcomes do:[:failureOutcome |
@@ -268,10 +271,12 @@
     Transcript cr; cr.
     Transcript show: 'SUMMARY: '.
     result printOn: Transcript.
+    Transcript show: ', test execution time '.
+    (t1 - t0) printOn: Transcript.
     Transcript cr.
 
     "Created: / 04-08-2011 / 12:39:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-05-2016 / 10:33:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-02-2017 / 12:47:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'accessing'!