| 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" }, |
| ); |