From: Vincent Pit <vince@profvince.com>
Date: Fri, 8 Apr 2011 18:40:15 +0000 (+0200)
Subject: Stop failing on unlike() prototype with old Test::More
X-Git-Tag: v0.03~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=dee850ba2915663035bfd2b27b2d412e370f4a26;p=perl%2Fmodules%2FTest-Leaner.git

Stop failing on unlike() prototype with old Test::More
---

diff --git a/t/01-import.t b/t/01-import.t
index 9027e99..35c8d5c 100644
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -38,6 +38,9 @@ unless ($Test::More::VERSION > 0.51) {
 
 for (@syms) {
  eval { Test::Leaner->import(import => [ $_ ]) };
- tm_is $@,            '',                          "import $_";
- tm_is prototype($_), prototype("Test::More::$_"), "prototype $_";
+ tm_is $@, '', "import $_";
+ my $proto = ($_ eq 'unlike' and $Test::More::VERSION < 0.4802)
+             ? '$$;$'
+             : prototype("Test::More::$_");
+ tm_is prototype($_), $proto, "prototype $_";
 }