blob: 869102a55fa34e0e905dab9cf13d961b41cafdbd (
plain)
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
|
BEGIN {
if($ENV{INTERNAL_DEBUG}) {
require Log::Log4perl::InternalDebug;
Log::Log4perl::InternalDebug->enable();
}
}
use Log::Log4perl;
use Test::More;
use File::Spec;
our $LOG_DISPATCH_PRESENT = 0;
BEGIN {
eval { require Log::Dispatch; };
if($@) {
plan skip_all => "only with Log::Dispatch";
} else {
$LOG_DISPATCH_PRESENT = 1;
plan tests => 1;
}
};
my $WORK_DIR = "tmp";
if(-d "t") {
$WORK_DIR = File::Spec->catfile(qw(t tmp));
}
unless (-e "$WORK_DIR"){
mkdir("$WORK_DIR", 0755) || die "can't create $WORK_DIR ($!)";
}
use vars qw(@outfiles $test_logfile);
$test_logfile = File::Spec->catfile($WORK_DIR, 'test2.log');
@outfiles = ($test_logfile);
foreach my $f (@outfiles){
unlink $f if (-e $f);
}
my $conf = <<CONF;
log4j.category.cat1 = INFO, myAppender
log4j.appender.myAppender=org.apache.log4j.FileAppender
log4j.appender.myAppender.File=$test_logfile
log4j.appender.myAppender.layout=org.apache.log4j.PatternLayout
log4j.appender.myAppender.layout.ConversionPattern=%-5p %c - %m%n
CONF
Log::Log4perl->init(\$conf);
my $logger = Log::Log4perl->get_logger('cat1');
$logger->debug("debugging message 1 ");
$logger->info("info message 1 ");
$logger->warn("warning message 1 ");
$logger->fatal("fatal message 1 ");
my ($result, $expected);
$expected = <<EOL;
INFO cat1 - info message 1
WARN cat1 - warning message 1
FATAL cat1 - fatal message 1
EOL
{local $/ = undef;
open (F, "$test_logfile") || die $!;
$result = <F>;
close F;
}
is ($result, $expected);
foreach my $f (@outfiles){
unlink $f if (-e $f);
}
|