From cee05ed04efd8c4f273de395906d6d17c72dc768 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 26 May 2015 11:42:48 -0300 Subject: [PATCH] Bug 13899: (QA followup) POD and usage message fixes Signed-off-by: Tomas Cohen Arazi asd --- misc/devel/coverage.pl | 33 ++++++++++++++++++++++++++++++--- 1 file changed, 30 insertions(+), 3 deletions(-) diff --git a/misc/devel/coverage.pl b/misc/devel/coverage.pl index 0b43d8c259..3dabae72bc 100755 --- a/misc/devel/coverage.pl +++ b/misc/devel/coverage.pl @@ -22,18 +22,43 @@ coverage.pl =head1 SYNOPSIS -You have to be in yout Koha/src directory -./misc/devel/coverage.pl + misc/devel/coverage.pl [-h|--help] + +This script must be run from your Koha source tree. =head1 DESCRIPTION -This script make a cover on all files to see which modules are not tested yet +This script runs all Koha tests and generates a coverage report on the +cover_db directory. + +=cut + +=head1 OPTIONS + +=over 8 + +=item B<-h|--help> + +prints this help text + +=back =cut use Modern::Perl; + use C4::Context; use Cwd; +use Getopt::Long; +use Pod::Usage; + +my $help; + +GetOptions( + "h|help" => \$help +); + +pod2usage(1) if defined $help; #Die if you are not in your Koha src directory my $KOHA_PATH = C4::Context->config("intranetdir"); @@ -50,3 +75,5 @@ system("PERL5OPT=-MDevel::Cover /usr/bin/prove -r t/"); system("cover"); say("file://$KOHA_PATH/cover_db/coverage.html") unless !-e "$KOHA_PATH/cover_db/coverage.html"; + +1; \ No newline at end of file -- 2.39.5