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
|
# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
package TestDirective::perlloadmodule6;
# in this test we test an early mod_perl startup caused by an
# EXEC_ON_READ directive in vhost.
use strict;
use warnings FATAL => 'all';
use Apache2::CmdParms ();
use Apache2::Module ();
use Apache2::ServerUtil ();
use Apache2::Const -compile => qw(OK);
use constant KEY => "MyTest6";
my @directives = ({ name => +KEY },);
Apache2::Module::add(__PACKAGE__, \@directives);
sub MyTest6 {
my ($self, $parms, $arg) = @_;
$self->{+KEY} = $arg;
unless ($parms->path) {
my $srv_cfg = Apache2::Module::get_config($self, $parms->server);
$srv_cfg->{+KEY} = $arg;
}
}
### response handler ###
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
use Apache2::Module ();
use Apache::Test;
use Apache::TestUtil;
use Apache2::Const -compile => qw(OK);
sub get_config {
Apache2::Module::get_config(__PACKAGE__, @_);
}
sub handler {
my ($r) = @_;
my %secs = ();
$r->content_type('text/plain');
my $s = $r->server;
my $dir_cfg = get_config($s, $r->per_dir_config);
my $srv_cfg = get_config($s);
plan $r, tests => 3;
ok $s->is_virtual;
ok t_cmp($dir_cfg->{+KEY}, "Dir", "Section");
ok t_cmp($srv_cfg->{+KEY}, "Vhost", "Section");
return Apache2::Const::OK;
}
1;
__END__
# XXX: we want to have this configuration section to come first
# amongst other perlloadmodule tests (<950), so we can test how
# mod_perl starts from vhost. but currently we can't because
# PerlSwitches from other tests are ignored, so the test suite fails
# to startup.
#
# tmp solution: ensure that it's configured *after* all other
# perlloadmodule tests
#
# APACHE_TEST_CONFIG_ORDER 951
<VirtualHost TestDirective::perlloadmodule6>
PerlLoadModule TestDirective::perlloadmodule6
MyTest6 "Vhost"
<Location /TestDirective__perlloadmodule6>
MyTest6 "Dir"
SetHandler modperl
PerlResponseHandler TestDirective::perlloadmodule6
</Location>
</VirtualHost>
|
