class: Builder::ReportRunner expecco_2_5_0 expecco_2_5_1 stable
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 15 May 2013 20:07:49 +0200
changeset 1493f9e255e7d47
parent 148 50cf14e8d665
child 150 6bee92d1dd05
class: Builder::ReportRunner
class definition
added:
#cmdlineOptionSetup
#cmdlineOptionTeardown
changed: #main:
reports/Builder__Report.st
     1.1 --- a/reports/Builder__Report.st	Wed May 15 20:07:36 2013 +0200
     1.2 +++ b/reports/Builder__Report.st	Wed May 15 20:07:49 2013 +0200
     1.3 @@ -3,7 +3,7 @@
     1.4  "{ NameSpace: Builder }"
     1.5  
     1.6  Object subclass:#Report
     1.7 -	instanceVariableNames:'name format'
     1.8 +	instanceVariableNames:'name packages format'
     1.9  	classVariableNames:'Verbose OutputDir'
    1.10  	poolDictionaries:''
    1.11  	category:'Builder-Reports'
    1.12 @@ -213,11 +213,12 @@
    1.13          long: '--package';
    1.14          description: 'Package in which to run the report';
    1.15          action:[:option | 
    1.16 -            self loadPackageIfNotAlready: option.
    1.17 -            self setupForPackages: { option } 
    1.18 +            packages isNil ifTrue:[ packages := Set new ].
    1.19 +            packages add: option.
    1.20          ]
    1.21  
    1.22      "Created: / 06-11-2011 / 21:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.23 +    "Modified: / 15-05-2013 / 19:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.24  ! !
    1.25  
    1.26  !Report methodsFor:'accessing-defaults'!
    1.27 @@ -348,11 +349,18 @@
    1.28  setUp
    1.29  
    1.30      | stream | 
    1.31 +
    1.32 +    packages notNil ifTrue:[
    1.33 +        packages do:[:pkg| self loadPackageIfNotAlready: pkg].
    1.34 +        self setupForPackages: packages.
    1.35 +        packages := nil.
    1.36 +    ].
    1.37      format isNil ifTrue:[format := self defaultFormat].
    1.38      stream := (OutputDir / (self encodeFilename: ('%1-%2.%3' bindWith: self name with: self defaultFileSuffix with: format defaultFileSuffix))) writeStream.
    1.39      format report: self stream: stream
    1.40  
    1.41      "Created: / 04-08-2011 / 12:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.42 +    "Modified: / 15-05-2013 / 19:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    1.43  !
    1.44  
    1.45  tearDown
    1.46 @@ -373,7 +381,7 @@
    1.47  !
    1.48  
    1.49  version_SVN
    1.50 -    ^ 'žId: Builder__Report.st 294 2011-11-27 11:08:02Z vranyj1 ž'
    1.51 +    ^ '$Id$'
    1.52  ! !
    1.53  
    1.54