Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

try to generate all coverage into the one cover_db

  • Loading branch information...
commit 86c50c46b13eb07f84a907b798e62b0f2fc94600 1 parent c1d16c8
@tonycoz authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 imcover.perl
View
8 imcover.perl
@@ -2,6 +2,7 @@
use strict;
use Config;
use ExtUtils::Manifest 'maniread';
+use Cwd;
my $make = $Config{make};
# if there's a way to make with profiling for a recursive build like
@@ -15,7 +16,10 @@
system "$make 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'"
and die;
-system "$make test HARNESS_PERL_SWITCHES=-MDevel::Cover";
+{
+ local $ENV{DEVEL_COVER_OPTIONS} = "-db," . getcwd() . "/cover_db";
+ system "$make test TEST_VERBOSE=1 HARNESS_PERL_SWITCHES=-MDevel::Cover";
+}
# build gcov files
my $mani = maniread();
@@ -45,5 +49,5 @@
}
my @dbs = "cover_db", map "$_/cover_db", grep $_, keys %paths;
-system "cover @dbs";
+system "cover -ignore_re '^t/'";
Please sign in to comment.
Something went wrong with that request. Please try again.