117 lines
3.1 KiB
Perl
117 lines
3.1 KiB
Perl
#
|
|
# basic testing with -httpd argument passed explicitly (to
|
|
# Makefile.PL, to t/TEST, etc.)
|
|
#
|
|
|
|
# XXX: -apxs should be really the same test but passing -apxs instead
|
|
# of -httpd, so consider to just run both in this test
|
|
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Test::More;
|
|
use MyTest::Util qw(myrun3 go_in go_out test_configs);
|
|
use Apache::TestConfig ();
|
|
|
|
my @configs = test_configs();
|
|
my $tests_per_config = 18;
|
|
plan tests => $tests_per_config * @configs;
|
|
|
|
my $orig_dir = go_in();
|
|
|
|
for my $c (@configs) {
|
|
Apache::TestConfig::custom_config_nuke();
|
|
$ENV{APACHE_TEST_NO_STICKY_PREFERENCES} = 1;
|
|
makefile_pl_plus_httpd_arg($c);
|
|
|
|
# this one will have custom config, but it shouldn't interrupt
|
|
# with the explicit one
|
|
# XXX: useless at the moment, since the previously stored custom
|
|
# config and the explicit config both point to the same config
|
|
$ENV{APACHE_TEST_NO_STICKY_PREFERENCES} = 0;
|
|
makefile_pl_plus_httpd_arg($c);
|
|
|
|
Apache::TestConfig::custom_config_nuke();
|
|
t_TEST_plus_httpd_arg($c);
|
|
}
|
|
|
|
go_out($orig_dir);
|
|
|
|
# 6 tests
|
|
# explicit Makefile.PL -httpd argument
|
|
sub makefile_pl_plus_httpd_arg {
|
|
my $c = shift;
|
|
|
|
my($cmd, $out, $err);
|
|
|
|
# clean and ignore the results
|
|
$cmd = "make clean";
|
|
($out, $err) = myrun3($cmd);
|
|
|
|
my $makepl_arg = $c->{makepl_arg} || '';
|
|
$cmd = "$c->{perl_exec} Makefile.PL $makepl_arg " .
|
|
"-httpd $c->{httpd_exec} -httpd_conf $c->{httpd_conf}";
|
|
($out, $err) = myrun3($cmd);
|
|
unlike $err, qr/\[ error\]/, $cmd;
|
|
|
|
$cmd = "make";
|
|
($out, $err) = myrun3($cmd);
|
|
is $err, "", $cmd;
|
|
|
|
my $test_verbose = $c->{test_verbose} ? "TEST_VERBOSE=1" : "";
|
|
$cmd = "make test $test_verbose";
|
|
($out, $err) = myrun3($cmd);
|
|
like $out, qr/using $c->{httpd_version} \($c->{httpd_mpm} MPM\)/, $cmd;
|
|
like $out, qr/All tests successful/, $cmd;
|
|
unlike $err, qr/\[ error\]/, $cmd;
|
|
|
|
# test that httpd is found in t/REPORT (if exists)
|
|
SKIP: {
|
|
$cmd = "t/REPORT";
|
|
skip "$cmd doesn't exist", 1 unless -e $cmd;
|
|
|
|
($out, $err) = myrun3($cmd);
|
|
like $out, qr/Server version: $c->{httpd_version}/, $cmd;
|
|
}
|
|
}
|
|
|
|
# explicit t/TEST -httpd argument
|
|
sub t_TEST_plus_httpd_arg {
|
|
my $c = shift;
|
|
|
|
my($cmd, $out, $err);
|
|
|
|
# clean and ignore the results
|
|
$cmd = "make clean";
|
|
($out, $err) = myrun3($cmd);
|
|
|
|
my $makepl_arg = $c->{makepl_arg} || '';
|
|
$cmd = "$c->{perl_exec} Makefile.PL $makepl_arg";
|
|
($out, $err) = myrun3($cmd);
|
|
unlike $err, qr/\[ error\]/, $cmd;
|
|
|
|
$cmd = "make";
|
|
($out, $err) = myrun3($cmd);
|
|
is $err, "", $cmd;
|
|
|
|
my $test_verbose = $c->{test_verbose} ? "-v " : "";
|
|
$cmd = "t/TEST -httpd $c->{httpd_exec} $test_verbose";
|
|
($out, $err) = myrun3($cmd);
|
|
like $out,
|
|
qr/using $c->{httpd_version} \($c->{httpd_mpm} MPM\)/,
|
|
$cmd;
|
|
like $out, qr/All tests successful/, $cmd;
|
|
unlike $err, qr/\[ error\]/, $cmd;
|
|
|
|
# test that httpd is found in t/REPORT (if exists)
|
|
SKIP: {
|
|
$cmd = "t/REPORT";
|
|
skip "$cmd doesn't exist", 1 unless -e $cmd;
|
|
|
|
($out, $err) = myrun3($cmd);
|
|
like $out, qr/Server version: $c->{httpd_version}/, $cmd;
|
|
}
|
|
}
|
|
|
|
__END__
|
|
|