From b4edb251c265d956b226cfdeccf68ba09c043924 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 24 Feb 2007 17:44:14 +0000
Subject: [PATCH] added an option for coverage tests

---
 sbin/testCodebase.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/sbin/testCodebase.pl b/sbin/testCodebase.pl
index ce2d89e80..926d2b609 100644
--- a/sbin/testCodebase.pl
+++ b/sbin/testCodebase.pl
@@ -25,9 +25,10 @@ my $noLongTests;
 GetOptions(
 	'verbose'=>\$verbose,
 	'configFile=s'=>\$configFile,
-	'perl-base=s'=>\$perlBase,
+	'perlBase=s'=>\$perlBase,
 	'noLongTests'=>\$noLongTests,
 	'help'=>\$help,
+	'coverage'=>\$coverage,
 	);
 
 my $helpmsg=<<STOP;
@@ -39,13 +40,16 @@ my $helpmsg=<<STOP;
 				use a production config file as some tests may
 				be destructive.
 
-	--verbose		Turns on additional output.
+	--coverage		Turns on additional coverage tests. Note that
+				this can take a long time to run.
 
-	--perl-base		The path of the perl installation you want to 
+	--noLongTests		Prevent long tests from being run
+
+	--perlBase		The path of the perl installation you want to 
 				use. Defaults to the perl installation in your
 				PATH.
 
-	--noLongTests		Prevent long tests from being run
+	--verbose		Turns on additional output.
 
 STOP
 
@@ -70,6 +74,9 @@ my $prefix = "WEBGUI_CONFIG=".$configFile;
 ##Run all tests unless explicitly forbidden
 $prefix .= " CODE_COP=1" unless $noLongTests;
 
+# Add coverage tests
+$prefix .= " PERL5OPT='-MDevel::Cover'" if $coverage;
+
 print(join ' ', $prefix, $perlBase."prove", $verboseFlag, '-r ../t'); print "\n";
 system(join ' ', $prefix, $perlBase."prove", $verboseFlag, '-r ../t');