Initial version of code coverage report.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 25 Jun 2013 20:25:40 +0200
changeset 163 b8a6ee98534a
parent 162 1dbab63ebbd5
child 164 707c2a3ef492
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.
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