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
|
#!/usr/bin/perl
$|=1;
use strict;
use lib 't/lib'; # Until my changes are merged into the main distro
use Apache::test qw(skip_test have_httpd test);
use Test;
BEGIN {
skip_test unless have_httpd;
plan tests => 16;
}
my %requests =
(
3 => '/docs/simple.u',
4 => '/docs/dir/', # A directory
5 => '/docs/determ.p',
6 => '/docs/perlfirst.pl',
7 => '/docs/own_handle.fh/docs.check/7',
8 => '/docs/change_headers.h',
9 => '/docs/send_headers.pl',
10 => '/docs/perlfirst.pl', # Make sure it can run twice.
11 => '/docs/perlfirst.pl', # Make sure it can run thrice.
12 => '/docs/perlfirst.pl', # Make sure it can run quice.
13 => '/docs/simple.r',
14 => '/docs/send_fd.pl',
15 => '/docs/send_headers.pl',
16 => '/docs/send_fd.plr',
);
my %special_tests =
(
4 => { 'test' => sub { $_[0] =~ /index of/i } },
8 => { 'test' => sub { $_[1]->header('X-Test') eq 'success' } },
15 => { 'test' => sub { $_[1]->header('Content-Type') eq 'ungulate/moose' } },
);
ok(1); # Loaded successfully
ok(1); # To make test number match the numbers above
foreach my $testnum (sort {$a<=>$b} keys %requests) {
&test_outcome(Apache::test->fetch($requests{$testnum}), $testnum);
}
#############################
sub test_outcome {
my ($response, $i) = @_;
my $content = $response->content;
$content = $special_tests{$i}{content}->($content, $response)
if $special_tests{$i}{content};
if ($special_tests{$i}{'test'}) {
ok $special_tests{$i}{'test'}->($content, $response);
} else {
ok $content, scalar `cat t/docs.check/$i`;
}
}
|
