From: Vincent Pit 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 $_"; }