Attachment 38977 Details for Bug 13899 – [PASSED QA] Bug 13899: Adding misc/devel/coverage.pl

[patch] [PASSED QA] Bug 13899: Adding misc/devel/coverage.pl

PASSED-QA-Bug-13899-Adding-miscdevelcoveragepl.patch (text/plain), 2.18 KB, created by Kyle M Hall (khall) on 2015-05-08 13:51:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2015-05-08 13:51:27 UTC

Size: 2.18 KB

patch

obsolete

>From 7112ae7358294786d4faa1f604064ac938c25bca Mon Sep 17 00:00:00 2001
>From: Julian FIOL <julian.fiol@biblibre.com>
>Date: Tue, 24 Mar 2015 11:46:10 +0100
>Subject: [PATCH] [PASSED QA] Bug 13899: Adding misc/devel/coverage.pl
>
>It's a script making a cover on all modules to see
>which ones are not tested yet. It uses Devel::Cover
>
>Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
>
>Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
>---
> misc/devel/coverage.pl |   58 ++++++++++++++++++++++++++++++++++++++++++++++++
> 1 files changed, 58 insertions(+), 0 deletions(-)
> create mode 100755 misc/devel/coverage.pl
>
>diff --git a/misc/devel/coverage.pl b/misc/devel/coverage.pl
>new file mode 100755
>index 0000000..804fc8d
>--- /dev/null
>+++ b/misc/devel/coverage.pl
>@@ -0,0 +1,58 @@
>+#!/usr/bin/perl
>+
>+# Copyright 2015 BibLibre
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 2 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+=head1 NAME
>+
>+coverage.pl
>+
>+=head1 SYNOPSIS
>+
>+./misc/devel/coverage.pl
>+
>+=head1 DESCRIPTION
>+
>+This script make a cover on all files to see which modules are not tested yet
>+
>+=cut
>+
>+use Modern::Perl;
>+use C4::Context;
>+
>+my $KOHA_PATH = C4::Context->config("intranetdir");
>+
>+chdir $KOHA_PATH;
>+
>+eval{
>+	require Devel::Cover;
>+};
>+
>+if ($@) {
>+	say "Devel::Cover needs to be installed";
>+	exit 1;
>+}
>+
>+#Delete old coverage
>+system("cover -delete");
>+
>+#Start the cover
>+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
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 13899: 37176 | 37178 | 37905 | 38181 | 38529 | 38530 | 38888 | 38889 | 38890 | 38977 | 38978 | 38979 | 39531