--- a/reports/Builder__TestReport.st	Fri Jun 06 12:32:12 2014 +0200
+++ b/reports/Builder__TestReport.st	Mon Jun 16 12:24:42 2014 +0200
@@ -3,22 +3,30 @@
 "{ NameSpace: Builder }"
 
 Report subclass:#TestReport
-        instanceVariableNames:'suite coverage instrument'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Builder-Reports'
+	instanceVariableNames:'suite coverage instrument keepStdout'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Builder-Reports'
 !
 
 TestResult subclass:#Result
-        instanceVariableNames:'format time npassed nfailed nerror nskipped'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:TestReport
+	instanceVariableNames:'format time npassed nfailed nerror nskipped'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:TestReport
 !
 
 
 !TestReport methodsFor:'accessing'!
 
+keepStdout
+    ^ keepStdout
+!
+
+keepStdout:aBoolean
+    keepStdout := aBoolean.
+!
+
 suite
     ^ suite
 
@@ -89,6 +97,18 @@
         ]
 
     "Created: / 27-05-2014 / 16:34:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+cmdlineOptionKeepStdout
+
+    ^CmdLineOption new
+        long: 'keep-stdout';
+        description: 'Keep stdout and include it in report (may generate huge report!!)';
+        action:[
+            keepStdout := true
+        ]
+
+    "Created: / 16-06-2014 / 10:42:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport methodsFor:'initialization'!
@@ -97,8 +117,9 @@
 
     suite := TestSuite new.
     coverage := nil.
+    keepStdout := false.
 
-    "Modified: / 25-06-2013 / 15:37:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-06-2014 / 10:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setupForClasses:classes