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
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest;
plan tests => 6, need 'mod_alias.c';
my $url = "/nph/nph-foo.pl";
my %expected = (
code => '250',
body => "non-parsed headers body",
headers => {
'content-type' => 'text/text',
'pragma' => 'no-cache',
'cache-control' => 'must-revalidate, no-cache, no-store',
'expires' => '-1',
},
);
my $res = GET $url;
my %received = (
code => $res->code,
body => $res->content,
headers => $res->headers, # LWP lc's the headers
);
for my $key (keys %expected) {
my $expected = $expected{$key};
my $received = $received{$key};
if ($key eq 'headers') {
for my $header (keys %$expected) {
ok t_cmp(
$received->{$header},
$expected->{$header},
"test header $header"
);
}
}
else {
ok t_cmp(
$received,
$expected,
"test key: $key"
);
}
}
|
