1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
use ExtUtils::MakeMaker;
use 5.005;
use lib qw(Apache-Test/lib);
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 = ();
finddepth(sub {
return unless /^(?!.#)(.*?\.pl)\.PL$/;
push @scripts, "$File::Find::dir/$1";
}, '.');
Apache::TestMM::filter_args();
# Temporary workaround to allow passing
# arguments to "perl Makefile.PL"
# that should go to t/TEST but are not yet
# supported in an Apache::Test release.
# Code borrowed from Apache::TestMM::filter_args().
my %local_args = (
limitrequestline => 'Value for LimitRequestLine',
limitrequestlinex2 => 'Twice the value for LimitRequestLine',
);
my($argv, $args_vars) = Apache::TestConfig::filter_args(\@ARGV, \%local_args);
@ARGV = @$argv;
# Merge given vars with default values
my %local_vars = (
limitrequestline => '128',
limitrequestlinex2 => '256',
);
map {$local_vars{$_} = $args_vars->{$_}} keys %$args_vars;
push(@Apache::TestMM::Argv, %local_vars);
for my $script (@scripts) {
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" },
);
|
