reports/Builder__TestReport.st
changeset 246 f0957ea6444a
parent 241 9879c8960574
child 247 7387f32855da
equal deleted inserted replaced
245:da6af4889b3a 246:f0957ea6444a
    75             coverage := CoverageReport new.
    75             coverage := CoverageReport new.
    76         ]
    76         ]
    77 
    77 
    78     "Created: / 25-06-2013 / 15:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    78     "Created: / 25-06-2013 / 15:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    79     "Modified: / 27-05-2014 / 16:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    79     "Modified: / 27-05-2014 / 16:54:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    80 !
       
    81 
       
    82 cmdlineOptionDropStdout
       
    83 
       
    84     ^CmdLineOption new
       
    85         long: 'drop-stdout';
       
    86         description: 'Do not include stdout in report';
       
    87         action:[
       
    88             keepStdout := false
       
    89         ]
       
    90 
       
    91     "Created: / 08-08-2014 / 11:48:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    80 !
    92 !
    81 
    93 
    82 cmdlineOptionInstrument
    94 cmdlineOptionInstrument
    83 
    95 
    84     ^CmdLineOption new
    96     ^CmdLineOption new
   115 
   127 
   116 initialize
   128 initialize
   117 
   129 
   118     suite := TestSuite new.
   130     suite := TestSuite new.
   119     coverage := nil.
   131     coverage := nil.
   120     keepStdout := false.
   132     keepStdout := true.
   121 
   133 
   122     "Modified: / 16-06-2014 / 10:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   134     "Modified: / 08-08-2014 / 11:45:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   123 !
   135 !
   124 
   136 
   125 setupForClasses:classes
   137 setupForClasses:classes
   126     "Setup the report to run given classes"
   138     "Setup the report to run given classes"
   127 
   139