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