# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1372184740 -7200
# Node ID b8a6ee98534ac2aa4fc0b863209883e2a1ef93ad
# Parent  1dbab63ebbd5c946d892d3f0b7cae76d30462839
Initial version of code coverage report.

It mimics Cobertura report so it can be used in Jenkins with
proper plugin. However, it's very basic with limited functionality.

diff -r 1dbab63ebbd5 -r b8a6ee98534a reports/Builder__Report.st
--- a/reports/Builder__Report.st	Tue Jun 25 20:25:30 2013 +0200
+++ b/reports/Builder__Report.st	Tue Jun 25 20:25:40 2013 +0200
@@ -199,18 +199,19 @@
 
     ^CmdLineOption new
         short: $F;
-        long: '--format';
+        long: 'format';
         description: 'Report format to use';
         action:[:option | self format: option ]
 
     "Created: / 06-11-2011 / 21:49:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-06-2013 / 16:02:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 cmdlineOptionPackage
 
     ^CmdLineOption new
         short: $p;
-        long: '--package';
+        long: 'package';
         description: 'Package in which to run the report';
         action:[:option | 
             packages isNil ifTrue:[ packages := Set new ].
@@ -218,7 +219,7 @@
         ]
 
     "Created: / 06-11-2011 / 21:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-05-2013 / 19:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-06-2013 / 16:02:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Report methodsFor:'accessing-defaults'!
@@ -256,7 +257,7 @@
     "Created: / 04-08-2011 / 14:34:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-setupForPackages:arg
+setupForPackages:pkgs
     "raise an error: must be redefined in concrete subclass(es)"
 
     ^ self subclassResponsibility
@@ -324,17 +325,19 @@
     "Created: / 04-08-2011 / 12:53:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-runPackages:packages 
-    packages size == 1 
-        ifTrue:[ name := packages anyOne. ]
-        ifFalse:[ name := ('%1 packages' bindWith:packages size). ].
-    self setupForPackages:packages.
+runPackages:pkgs 
+    pkgs size == 1 
+        ifTrue:[ name := pkgs anyOne. ]
+        ifFalse:[ name := ('%1 packages' bindWith:pkgs size). ].
+    packages := pkgs.
     ^ self run
 
     "
         HDTestReport runPackage:'stx:goodies/monticello'
         HDTestReport runPackage:'stx:libjava'"
+
     "Created: / 04-08-2011 / 12:35:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-06-2013 / 01:03:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 runReport