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
|
use strict;
use warnings;
use Test::More tests => 26;
use Log::Handler;
my @LINES;
sub save_lines {
my $foo = shift;
next unless $foo eq 'foo';
push @LINES, $_[0]->{message};
}
my $log = Log::Handler->new();
$log->add(forward => {
forward_to => \&save_lines,
arguments => [ 'foo' ],
maxlevel => 'debug',
minlevel => 'emergency',
message_layout => 'prefix [%L] %m postfix',
});
ok(1, 'new');
ok($log->is_debug, 'checking is_debug');
ok($log->is_info, 'checking is_info');
ok($log->is_notice, 'checking is_notice');
ok($log->is_warning, 'checking is_warning');
ok($log->is_error, 'checking is_error');
ok($log->is_err, 'checking is_err');
ok($log->is_critical, 'checking is_critical');
ok($log->is_crit, 'checking is_crit');
ok($log->is_alert, 'checking is_alert');
ok($log->is_emergency, 'checking is_emergency');
ok($log->is_emerg, 'checking is_emerg');
ok($log->is_fatal, 'checking is_fatal');
ok($log->debug('DEBUG'), 'checking debug');
ok($log->info('INFO'), 'checking info');
ok($log->notice('NOTICE'), 'checking notice');
ok($log->warning('WARNING'), 'checking warning');
ok($log->error('ERROR'), 'checking error');
ok($log->err('ERROR'), 'checking err');
ok($log->critical('CRITICAL'), 'checking critical');
ok($log->crit('CRITICAL'), 'checking crit');
ok($log->alert('ALERT'), 'checking alert');
ok($log->emergency('EMERGENCY'), 'checking emergency');
ok($log->emerg('EMERGENCY'), 'checking emerg');
ok($log->fatal('FATAL'), 'checking fatal');
# checking all lines that should be forwarded
my $match_lines = 0;
my $all_lines = 0;
foreach my $line ( @LINES ) {
++$all_lines;
next unless $line =~ /^prefix \[([A-Z]+)\] ([A-Z]+) postfix/;
next unless $1 eq $2;
++$match_lines;
}
if ($match_lines == 12) {
ok(1, "checking buffer ($all_lines:$match_lines)");
} else {
ok(0, "checking buffer ($all_lines:$match_lines)");
}
|
