Commit | Line | Data |
70a05830 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
f929c548 |
6 | if (eval <<'EOE' |
7 | require Log::Log4perl; |
8 | die if $Log::Log4perl::VERSION < 1.29; |
9 | 1 |
10 | EOE |
11 | ) { |
70a05830 |
12 | plan tests => 2; |
f929c548 |
13 | } else { |
14 | plan skip_all => 'Log::Log4perl 1.29 not installed' |
70a05830 |
15 | } |
16 | |
17 | use FindBin; |
18 | unlink 'myerrs.log' if -e 'myerrs.log'; |
19 | Log::Log4perl->init("$FindBin::Bin/log4perl.conf"); |
20 | use Log::Contextual qw( :log set_logger ); |
21 | set_logger(Log::Log4perl->get_logger); |
22 | |
f929c548 |
23 | my @elines; |
24 | |
25 | push @elines, __LINE__ and log_error { 'err FIRST' }; |
70a05830 |
26 | |
27 | sub foo { |
f929c548 |
28 | push @elines, __LINE__ and log_error { 'err SECOND' }; |
70a05830 |
29 | } |
30 | foo(); |
31 | open my $log, '<', 'myerrs.log'; |
32 | my @datas = <$log>; |
33 | close $log; |
34 | |
f929c548 |
35 | is $datas[0], "file:t/log4perl.t line:$elines[0] method:main:: - err FIRST\n", 'file and line work with Log4perl'; |
36 | is $datas[1], "file:t/log4perl.t line:$elines[1] method:main::foo - err SECOND\n", 'file and line work with Log4perl in a sub'; |
70a05830 |
37 | |
308f4c2a |
38 | unlink 'myerrs.log'; |