add new comparison method rgb_difference that resembles arithmetical difference per...

[imager.git] / imcover.perl

diff --git a/imcover.perl b/imcover.perl
index 0e8d44ce83e2980923646236121897be7bf8b43c..ed8658936293b1321dbe7fc49a512a868ad6c8dd 100644 (file)
--- a/imcover.perl
+++ b/imcover.perl
@@ -3,22 +3,45 @@ use strict;
 use Config;
 use ExtUtils::Manifest 'maniread';
 use Cwd;
+use Getopt::Long;
 
-my $make = $Config{make};
-# if there's a way to make with profiling for a recursive build like
-# Imager I don't see how
-if (-f 'Makefile') {
-    system "$make clean";
-}
-system "cover -delete";
-system "perl Makefile.PL --coverage"
-  and die;
-system "$make 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'"
-  and die;
-
-{
-  local $ENV{DEVEL_COVER_OPTIONS} = "-db," . getcwd() . "/cover_db";
-  system "$make test TEST_VERBOSE=1 HARNESS_PERL_SWITCHES=-MDevel::Cover";
+my @tests;
+my $verbose;
+my $nodc;
+my $make_opts = "";
+my $regen_only;
+GetOptions("t|test=s" => \@tests,
+          "m=s" => \$make_opts,
+          "n" => \$nodc,
+          "v" => \$verbose,
+          "r" => \$regen_only)
+  or die;
+
+my $do_build = !$regen_only;
+if ($do_build) {
+  my $make = $Config{make};
+  # if there's a way to make with profiling for a recursive build like
+  # Imager I don't see how
+  if (-f 'Makefile') {
+    run("$make clean");
+  }
+  run("cover -delete");
+  run("$^X Makefile.PL --coverage @ARGV")
+    and die "Makefile.PL failed\n";
+  run("$make $make_opts 'OTHERLDFLAGS=-ftest-coverage -fprofile-arcs'")
+    and die "build failed\n";
+
+  {
+    local $ENV{DEVEL_COVER_OPTIONS} = "-db," . getcwd() . "/cover_db,-coverage,statement,branch,condition,subroutine";
+    my $makecmd = "$make test";
+    $makecmd .= " TEST_VERBOSE=1" if $verbose;
+    $makecmd .= " HARNESS_PERL_SWITCHES=-MDevel::Cover" unless $nodc;
+    if (@tests) {
+      $makecmd .= " TEST_FILES='@tests'";
+    }
+    run($makecmd)
+      and die "Test failed\n";
+  }
 }
 
 # build gcov files
@@ -27,27 +50,61 @@ my $mani = maniread();
 my %paths;
 for my $filename (keys %$mani) {
   next unless $filename =~ /\.(xs|c|im)$/;
+  (my $gcda = $filename) =~ s/\.\w+$/.gcda/;
+  next unless -f $gcda;
   if ($filename =~ m!^(\w+)/(\w+\.\w+)$!) {
     push @{$paths{$1}}, $2;
   }
   else {
     push @{$paths{''}}, $filename;
   }
+  if ($filename =~ s/\.(xs|im)$/.c/) {
+    if ($filename =~ m!^(\w+)/(\w+\.\w+)$!) {
+      push @{$paths{$1}}, $2;
+    }
+    else {
+      push @{$paths{''}}, $filename;
+    }
+  }
 }
 
+my $gcov2perl = $Config{sitebin} . "/gcov2perl";
+
 for my $path (keys %paths) {
   if ($path) {
-    system "cd $path ; gcov @{$paths{$path}} ; cd ..";
+    run("cd $path ; gcov -abc @{$paths{$path}} ; cd ..");
   }
   else {
-    system "gcov @{$paths{$path}}";
+    run("gcov -abc @{$paths{$path}}");
   }
   my $dir = $path ? $path : '.';
   for my $file (@{$paths{$path}}) {
-    system "gcov2perl $dir/$file.gcov";
+    run("$gcov2perl $dir/$file.gcov");
   }
 }
 
 my @dbs = "cover_db", map "$_/cover_db", grep $_, keys %paths;
-system "cover -ignore_re '^t/'";
+# we already ran gcov
+run("cover -nogcov -ignore_re '^t/'");
+
+sub run {
+  my $cmd = shift;
+
+  print "Running: $cmd\n" if $verbose;
+  return system $cmd;
+}
+
+=head1 NAME
+
+imcover.perl - perform C and perl coverage testing for Imager
+
+=head1 SYNOPSIS
+
+  perl imcover.perl [-m=...][-t=...][-n][-v][-r] -- ... Makefile.PL options
+
+=head1 DESCRIPTION
+
+Builds Imager with the C< -ftest-coverage -fprofile-arcs > gcc options
+and then runs perl's tests.
 
+=cut