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 -*-
package TestVhost::log;
# testing that the warn and other logging functions are writing into
# the vhost error_log and not the main one.
use strict;
use warnings;
# don't use:
# use warnings FATAL => 'all';
# here as it breaks the $SIG{__WARN__} sub test for perl 5.6, though
# it works fine with perl 5.8+
use Apache2::RequestUtil ();
use Apache2::Log ();
use Apache2::ServerRec qw(warn); # override warn locally
use File::Spec::Functions qw(catfile);
use Apache::Test;
use Apache::TestUtil;
use TestCommon::LogDiff;
use Apache2::Const -compile => 'OK';
my @methods1 = (
'$r->log->warn',
'$r->log_error',
'$r->warn',
'$s->log->warn',
'$s->log_error',
'$s->warn',
);
my @methods2 = (
'Apache2::ServerRec::warn',
'warn',
);
my $path = catfile Apache::Test::vars('documentroot'),
qw(vhost error_log);
sub handler {
my $r = shift;
plan $r, tests => 1 + @methods1 + @methods2;
my $s = $r->server;
my $logdiff = TestCommon::LogDiff->new($path);
### $r|$s logging
for my $m (@methods1) {
eval "$m(q[$m])";
ok t_cmp $logdiff->diff, qr/\Q$m/, $m;
}
### object-less logging
# set Apache2::RequestUtil->request($r) instead of using
# PerlOptions +GlobalRequest
# in order to make sure that the above tests work fine,
# w/o having the global request set
Apache2::RequestUtil->request($r);
for my $m (@methods2) {
eval "$m(q[$m])";
ok t_cmp $logdiff->diff, qr/\Q$m/, $m;
}
# internal warnings (also needs +GlobalRequest)
{
no warnings; # avoid FATAL warnings
use warnings;
local $SIG{__WARN__} = \&Apache2::ServerRec::warn;
eval q[my $x = "aaa" + 1;];
ok t_cmp
$logdiff->diff,
qr/Argument "aaa" isn't numeric in addition/,
"internal warning";
}
# die logs into the vhost log just fine
#die "horrible death!";
Apache2::Const::OK;
}
1;
__END__
<NoAutoConfig>
<VirtualHost TestVhost::log>
DocumentRoot @documentroot@/vhost
ErrorLog @documentroot@/vhost/error_log
<Location /TestVhost__log>
SetHandler modperl
PerlResponseHandler TestVhost::log
</Location>
</VirtualHost>
</NoAutoConfig>
|
