httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From the...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestMB.pm
Date Tue, 05 Oct 2004 19:45:08 GMT
theory      2004/10/05 12:45:08

  Modified:    perl-framework/Apache-Test/lib/Apache TestMB.pm
  Log:
  Added testcover action.
  
  Revision  Changes    Path
  1.8       +28 -1     httpd-test/perl-framework/Apache-Test/lib/Apache/TestMB.pm
  
  Index: TestMB.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestMB.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- TestMB.pm	5 Sep 2004 00:11:30 -0000	1.7
  +++ TestMB.pm	5 Oct 2004 19:45:08 -0000	1.8
  @@ -60,6 +60,27 @@
                        '-bugreport', '-verbose=' . ($self->verbose || 0));
   }
   
  +sub ACTION_testcover {
  +    my $self = shift;
  +
  +    unless ($self->find_module_by_name('Devel::Cover', \@INC)) {
  +        warn("Cannot run testcover action unless Devel::Cover "
  +             . "is installed.\n");
  +        return;
  +    }
  +
  +    $self->add_to_cleanup('coverage', 'cover_db');
  +
  +    my $atdir = $self->localize_file_path("$ENV{HOME}/.apache-test");
  +    local $Test::Harness::switches    =
  +    local $Test::Harness::Switches    =
  +    local $ENV{HARNESS_PERL_SWITCHES} = "-MDevel::Cover=+inc,'$atdir'";
  +    local $ENV{APACHE_TEST_EXTRA_ARGS} = "-one-process";
  +
  +    $self->depends_on('test');
  +    $self->do_system('cover');
  +}
  +
   sub _bliblib {
       my $self = shift;
       return (
  @@ -69,7 +90,7 @@
   }
   
   sub ACTION_test {
  -    my $self = shift;
  +    my $self = shift
       $self->depends_on('code');
       $self->depends_on('run_tests');
       $self->depends_on('test_clean');
  @@ -233,6 +254,12 @@
   This action actually the tests by executing the test script,
   F<t/TEST>. It is executed by the C<test> action, so most of the time
   it won't be executed directly.
  +
  +=item testcover
  +
  +C<Apache::TestMB> overrides this action from C<Module::Build> in order to
  +prevent the C<Apache::Test> preference files from being included in the test
  +coverage.
   
   =back
   
  
  
  

Mime
View raw message