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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
use strict;
use lib qw(../../lib ../lib ./lib);
use strict;
use warnings FATAL => 'all';
use Test::Harness;
use FindBin;
use File::Spec::Functions qw(catdir);
use Apache::TestTrace;
use Cwd qw(cwd);
use Getopt::Long qw(GetOptions);
my %usage = (
'base-dir' => 'which dir to run the tests in (default: Apache-TestMe)',
'config-file' => 'which config file to use',
'help' => 'display this message',
'trace=T' => 'change tracing default to: warning, notice, ' .
'info, debug, ...',
'verbose[=1]' => 'verbose output',
);
my @flag_opts = qw(verbose help);
my @string_opts = qw(config-file base-dir trace);
my %opts;
# grab from @ARGV only the options that we expect
GetOptions(\%opts, @flag_opts, (map "$_=s", @string_opts));
# t/TEST -v -base /home/$ENV{USER}/apache.org/Apache-Test \
# -config /home/$ENV{USER}/.apache-test/apache_test_config.pm
#
$Test::Harness::verbose = 1 if $opts{verbose};
opt_help() if $opts{help};
opt_help() unless $opts{'config-file'};
if ($opts{'base-dir'}) {
unless (-d $opts{'base-dir'}) {
error "can't find $opts{'base-dir'}";
opt_help();
}
}
else {
my $dir = catdir $FindBin::Bin, qw(.. Apache-TestMe);
# get rid of relative paths
die "can't find the default dir $dir" unless -d $dir;
my $from = cwd();
chdir $dir or die "can't chdir to $dir: $!";
$dir = cwd();
chdir $from or die "can't chdir to $from: $!";
$opts{'base-dir'} = $dir;
}
unless (-r $opts{'config-file'}) {
error "can't read $opts{'config-file'}";
opt_help();
}
if ($opts{trace}) {
my %levels = map {$_ => 1} @Apache::TestTrace::Levels;
if (exists $levels{ $opts{trace} }) {
$Apache::TestTrace::Level = $opts{trace};
# propogate the override for the server-side.
# -trace overrides any previous APACHE_TEST_TRACE_LEVEL settings
$ENV{APACHE_TEST_TRACE_LEVEL} = $opts{trace};
}
else {
error "unknown trace level: $opts{trace}",
"valid levels are: @Apache::TestTrace::Levels";
opt_help();
}
}
# forward the data to the sub-processes run by Test::Harness
$ENV{APACHE_TESTITSELF_CONFIG_FILE} = $opts{'config-file'};
$ENV{APACHE_TESTITSELF_BASE_DIR} = $opts{'base-dir'};
run_my_tests();
sub run_my_tests {
my $base = "t";
unless (-d $base) {
# try to move into the top-level directory
chdir ".." or die "Can't chdir: $!";
}
my @tests;
if (@ARGV) {
for (@ARGV) {
if (-d $_) {
push @tests, <$_/*.t>;
} else {
$_ .= ".t" unless /\.t$/;
push @tests, $_;
}
}
} else {
chdir $base;
@tests = sort (<*.t>);
chdir "..";
@tests = map { "$base/$_" } @tests;
}
runtests @tests;
}
sub opt_help {
print <<EOM;
usage: TEST [options ...]
where options include:
EOM
for (sort keys %usage){
printf " -%-13s %s\n", $_, $usage{$_};
}
exit;
}
|
