From 99f74da95196efd5fd6d3eb668b01a7604346a07 Mon Sep 17 00:00:00 2001 From: Julian FIOL Date: Wed, 15 Apr 2015 10:51:16 +0200 Subject: [PATCH] Bug 13899: Add changes as asked in Comment 5 Signed-off-by: Bernardo Gonzalez Kriegel Fixed a small conflict on PerlDependencies.pm Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi --- C4/Installer/PerlDependencies.pm | 5 +++++ misc/devel/coverage.pl | 22 ++++++++-------------- 2 files changed, 13 insertions(+), 14 deletions(-) diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm index 4b2067eeab..7e382bd214 100644 --- a/C4/Installer/PerlDependencies.pm +++ b/C4/Installer/PerlDependencies.pm @@ -732,6 +732,11 @@ our $PERL_DEPS = { 'required' => '0', 'min_ver' => '0.31', }, + 'Devel::Cover' => { + 'usage' => 'Test code coverage', + 'required' => '0', + 'min_ver' => '1.17', + }, }; 1; diff --git a/misc/devel/coverage.pl b/misc/devel/coverage.pl index 804fc8d2ed..f41c921de0 100755 --- a/misc/devel/coverage.pl +++ b/misc/devel/coverage.pl @@ -22,6 +22,7 @@ coverage.pl =head1 SYNOPSIS +You have to be in yout Koha/src directory ./misc/devel/coverage.pl =head1 DESCRIPTION @@ -32,21 +33,14 @@ This script make a cover on all files to see which modules are not tested yet use Modern::Perl; use C4::Context; +use Cwd; +#Die if you are not in your Koha src directory my $KOHA_PATH = C4::Context->config("intranetdir"); +die "ERROR : You are not in Koha src/ directory" + unless $KOHA_PATH eq getcwd; -chdir $KOHA_PATH; - -eval{ - require Devel::Cover; -}; - -if ($@) { - say "Devel::Cover needs to be installed"; - exit 1; -} - -#Delete old coverage +# Delete old coverage system("cover -delete"); #Start the cover @@ -54,5 +48,5 @@ system("PERL5OPT=-MDevel::Cover /usr/bin/prove -r t/"); #Create the HTML output system("cover"); - -say("file://$KOHA_PATH/cover_db/coverage.html"); \ No newline at end of file +say("file://$KOHA_PATH/cover_db/coverage.html") + unless !-e "$KOHA_PATH/cover_db/coverage.html"; -- 2.39.5