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
|
# 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;
my $module = "TestDirective::perlloadmodule3";
my $config = Apache::Test::config();
my $base_hostport = Apache::TestRequest::hostport($config);
my $path = Apache::TestRequest::module2path($module);
# XXX: probably a good idea to split into more sub-tests, that test
# smaller portions of information, but requires a more elaborate
# logic. Alternatively could use diff($expected, $received).
plan tests => 3;
t_debug("connecting to $base_hostport");
{
my $expected = <<EOI;
Processing by main server.
Section 1: Main Server
MyAppend : MainServer
MyList : ["MainServer"]
MyOverride : MainServer
MyPlus : 5
Section 2: Location
MyAppend : MainServer
MyList : ["MainServer"]
MyOverride : MainServer
MyPlus : 5
EOI
my $location = "http://$base_hostport/$path";
my $received = GET_BODY $location;
ok t_cmp($expected, $received, "server merge");
}
Apache::TestRequest::module($module);
my $hostport = Apache::TestRequest::hostport($config);
t_debug("connecting to $hostport");
{
my $expected = <<EOI;
Processing by virtual host.
Section 1: Main Server
MyAppend : MainServer
MyList : ["MainServer"]
MyOverride : MainServer
MyPlus : 5
Section 2: Virtual Host
MyAppend : MainServer VHost
MyList : ["MainServer", "VHost"]
MyOverride : VHost
MyPlus : 7
Section 3: Location
MyAppend : MainServer VHost Dir
MyList : ["MainServer", "VHost", "Dir"]
MyOverride : Dir
MyPlus : 10
EOI
my $location = "http://$hostport/$path";
my $received = GET_BODY $location;
ok t_cmp($received, $expected, "server/dir merge");
}
{
my $expected = <<EOI;
Processing by virtual host.
Section 1: Main Server
MyAppend : MainServer
MyList : ["MainServer"]
MyOverride : MainServer
MyPlus : 5
Section 2: Virtual Host
MyAppend : MainServer VHost
MyList : ["MainServer", "VHost"]
MyOverride : VHost
MyPlus : 7
Section 3: Location
MyAppend : MainServer VHost Dir SubDir
MyList : ["MainServer", "VHost", "Dir", "SubDir"]
MyOverride : SubDir
MyPlus : 11
EOI
my $location = "http://$hostport/$path/subdir";
my $received = GET_BODY $location;
ok t_cmp($received, $expected, "server/dir/subdir merge");
}
|
