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
|
###########################################
# 020Easy2.t - more Easy tests
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################
BEGIN {
if($ENV{INTERNAL_DEBUG}) {
require Log::Log4perl::InternalDebug;
Log::Log4perl::InternalDebug->enable();
}
}
use warnings;
use strict;
use Log::Log4perl::Appender::TestBuffer;
my $stderr = "";
$SIG{__WARN__} = sub {
#print "warn: <$_[0]>\n";
$stderr .= $_[0];
};
use Test::More tests => 3;
use Log::Log4perl qw(:easy);
Log::Log4perl->init(\ q{
log4perl.category.Bar.Twix = WARN, Term
log4perl.appender.Term = Log::Log4perl::Appender::Screen
log4perl.appender.Term.layout = Log::Log4perl::Layout::SimpleLayout
});
# This case caused a warning L4p 0.47
INFO "Boo!";
is($stderr, "", "no warning");
# Test new level TRACE
Log::Log4perl->init(\ q{
log4perl.category = TRACE, Buf
log4perl.appender.Buf = Log::Log4perl::Appender::TestBuffer
log4perl.appender.Buf.layout = Log::Log4perl::Layout::SimpleLayout
});
my $appenders = Log::Log4perl->appenders();
my $bufapp = Log::Log4perl::Appender::TestBuffer->by_name("Buf");
TRACE("foobar");
is($bufapp->buffer(), "TRACE - foobar\n", "TRACE check");
Log::Log4perl->init(\ q{
log4perl.category = DEBUG, Buf
log4perl.appender.Buf = Log::Log4perl::Appender::TestBuffer
log4perl.appender.Buf.layout = Log::Log4perl::Layout::SimpleLayout
});
$bufapp = Log::Log4perl::Appender::TestBuffer->by_name("Buf");
my $log = Log::Log4perl::get_logger("");
$log->trace("We don't want to see this");
is($bufapp->buffer(), "", "Suppressed trace() check");
|
