stas 01/12/31 01:09:43
Modified: perl-framework Makefile.PL
perl-framework/Apache-Test/lib/Apache TestRun.pm
perl-framework/t .cvsignore
Removed: perl-framework/build bugreport.pl
perl-framework/t SMOKE.PL TEST.PL
Log:
- start using autogenerated SMOKE TEST and REPORT utils
Revision Changes Path
1.9 +10 -2 httpd-test/perl-framework/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Makefile.PL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Makefile.PL 11 Dec 2001 05:18:49 -0000 1.8
+++ Makefile.PL 31 Dec 2001 09:09:43 -0000 1.9
@@ -7,10 +7,13 @@
use Apache::Test5005compat;
use Apache::TestMM qw(test clean);
+use Apache::TestReport ();
+use Apache::TestSmoke ();
+use Apache::TestRun ();
use File::Find qw(finddepth);
-my @scripts = qw(t/TEST t/SMOKE);
+my @scripts = ();
finddepth(sub {
return unless /(.*?\.pl)\.PL$/;
@@ -23,8 +26,13 @@
Apache::TestMM::generate_script($script);
}
+for my $util (qw(Report Smoke Run)) {
+ my $class = "Apache::Test${util}";
+ $class->generate_script;
+}
+
WriteMakefile(
NAME => 'httpd-test',
VERSION => '0.01',
- clean => { FILES => "@scripts t/TEST" },
+ clean => { FILES => "@scripts" },
);
1.80 +7 -1
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
Index: TestRun.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- TestRun.pm 31 Dec 2001 08:39:48 -0000 1.79
+++ TestRun.pm 31 Dec 2001 09:09:43 -0000 1.80
@@ -4,6 +4,7 @@
use warnings FATAL => 'all';
use Apache::Test ();
+use Apache::TestMM ();
use Apache::TestConfig ();
use Apache::TestConfigC ();
use Apache::TestRequest ();
@@ -748,7 +749,12 @@
$file ||= catfile 't', 'TEST';
- my $content = <<'EOM';
+ my $content = '';
+ if (@Apache::TestMM::Argv) {
+ $content = "\%Apache::TestConfig::Argv =
qw(@Apache::TestMM::Argv);\n";
+ }
+
+ $content .= <<'EOM';
use strict;
use warnings FATAL => 'all';
1.4 +1 -0 httpd-test/perl-framework/t/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/.cvsignore,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- .cvsignore 24 Dec 2001 06:04:09 -0000 1.3
+++ .cvsignore 31 Dec 2001 09:09:43 -0000 1.4
@@ -1,4 +1,5 @@
TEST
SMOKE
+REPORT
logs
SKIP
