From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 10 Jul 2010 07:47:18 +0000 (-0500)
Subject: fix broken Log::Log4perl test
X-Git-Tag: v0.00304~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afe9b141e47fc1ebed529d418b2cb8ea141a2331;p=p5sagit%2FLog-Contextual.git

fix broken Log::Log4perl test
---

diff --git a/t/log4perl.t b/t/log4perl.t
index e55c125..d21d225 100644
--- a/t/log4perl.t
+++ b/t/log4perl.t
@@ -3,8 +3,10 @@ use warnings;
 
 use Test::More;
 
-if (!eval "use Log::Log4perl; 1") {
-   plan skip_all => 'Log::Log4perl not installed'
+if (!eval "use Log::Log4perl;
+   die if $Log::Log4perl::VERSION < 1.29;
+    1") {
+   plan skip_all => 'Log::Log4perl 1.29 not installed'
 } else {
    plan tests => 2;
 }
@@ -25,6 +27,6 @@ open my $log, '<', 'myerrs.log';
 my @datas = <$log>;
 close $log;
 
-is $datas[0], "file:t/log4perl.t line:18 method:main:: - err 14\n", 'file and line work with Log4perl';
-is $datas[1], "file:t/log4perl.t line:21 method:main::foo - err 17\n", 'file and line work with Log4perl in a sub';
+is $datas[0], "file:t/log4perl.t line:20 method:main:: - err 14\n", 'file and line work with Log4perl';
+is $datas[1], "file:t/log4perl.t line:23 method:main::foo - err 17\n", 'file and line work with Log4perl in a sub';