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
|
#!perl
use File::Temp 0.20 qw(tempdir);
use Log::Any::Adapter 1.03;
use Log::Any::Adapter::Util qw(read_file);
use Log::Log4perl;
use Test::More;
use strict;
use warnings;
my $has_structured_logging = Log::Any::Adapter->VERSION ge '1.5';
my $dir = tempdir( 'log-any-log4perl-XXXX', TMPDIR => 1, CLEANUP => 1 );
my $conf = "
log4perl.rootLogger = WARN, Logfile
log4perl.appender.Logfile = Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename = $dir/test.log
log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %C:%F:%L; %c; %p; %m %X{mdc_key}%n
";
Log::Log4perl::init( \$conf );
Log::Any::Adapter->set('Log::Log4perl');
my @methods = ( Log::Any->logging_methods, Log::Any->logging_aliases );
push( @methods, ( map { $_ . "f" } @methods ) );
my $test_count =
scalar(@methods) +
($has_structured_logging ? scalar(@methods) : 0) +
scalar( Log::Any->detection_methods ) +
scalar( Log::Any->detection_aliases );
plan tests => $test_count;
my $next_line;
foreach my $method (@methods) {
my $log = Log::Any->get_logger( category => "category_$method" );
$log->$method("logging with $method");
$log->$method("structured with $method",{mdc_key=>"mdc $method"})
if $has_structured_logging;
$next_line = __LINE__;
}
my $log_line = $next_line - 3;
my $structured_log_line = $next_line - 2;
my $contents = read_file("$dir/test.log");
foreach my $method (@methods) {
( my $level = $method ) =~ s/f$//;
for ($level) {
s/^(notice|inform)$/info/;
s/^(warning)$/warn/;
s/^(err)$/error/;
s/^(crit|critical|alert|emergency)$/fatal/;
}
if ( $level !~ /trace|debug|info|notice/ ) {
$level = uc($level);
like(
$contents,
qr/main:.*log4perl.t:$log_line; category_$method; $level; logging with $method \[undef\]\n/,
"found $method"
);
if ($has_structured_logging) {
if ($method =~ /f$/) {
like(
$contents,
qr/main:.*log4perl.t:$structured_log_line; category_$method; $level; structured with $method \[undef\]\n/,
"found $method structured"
);
}
else {
like(
$contents,
qr/main:.*log4perl.t:$structured_log_line; category_$method; $level; structured with $method mdc $method\n/,
"found $method structured"
);
}
}
}
else {
unlike( $contents, qr/logging with $method/, "did not find $method" );
unlike( $contents, qr/structured with $method/, "did not find $method structured" )
if $has_structured_logging;
}
}
my $log = Log::Any->get_logger();
foreach my $method ( Log::Any->detection_methods, Log::Any->detection_aliases )
{
if ( $method !~ /trace|debug|info|notice/ ) {
ok( $log->$method, "$method" );
}
else {
ok( !$log->$method, "!$method" );
}
}
|
