8 die if $Log::Log4perl::VERSION < 1.29;
14 plan skip_all => 'Log::Log4perl 1.29 not installed'
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);
25 push @elines, __LINE__ and log_error { 'err FIRST' };
28 push @elines, __LINE__ and log_error { 'err SECOND' };
31 open my $log, '<', 'myerrs.log';
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';