[EMAIL PROTECTED] wrote:
theory 2004/10/05 12:45:08
Modified:perl-framework/Apache-Test/lib/Apache TestMB.pm
Log:
Added testcover action.
Revision ChangesPath
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 - 1.7
+++ TestMB.pm 5 Oct 2004 19:45:08 - 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', [EMAIL PROTECTED])) {
+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
Feels like a typo to me ^^^
$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,
Ft/TEST. It is executed by the Ctest action, so most of the time
it won't be executed directly.
+
+=item testcover
+
+CApache::TestMB overrides this action from CModule::Build in order to
+prevent the CApache::Test preference files from being included in the test
+coverage.
=back
--
Philippe M. Chiasson m/gozer\@(apache|cpan|ectoplasm)\.org/ GPG KeyID : 88C3A5A5
http://gozer.ectoplasm.org/ F9BF E0C2 480E 7680 1AE5 3631 CB32 A107 88C3A5A5