X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F01-import.t;h=9027e9963135acad44277f60eceb8bfa5ef44d1a;hb=378088097e64037f79bdae71f517be8b4a443929;hp=155dc43faf77feb7b0b9a309de3f2865872e745e;hpb=41367a04c268486fb815420a103f80e28ffefd63;p=perl%2Fmodules%2FTest-Leaner.git diff --git a/t/01-import.t b/t/01-import.t index 155dc43..9027e99 100644 --- a/t/01-import.t +++ b/t/01-import.t @@ -5,15 +5,17 @@ use warnings; use Test::More (); -BEGIN { *tm_is = \&Test::More::is } +BEGIN { + delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE}; + *tm_is = \&Test::More::is; +} -Test::More::plan(tests => 2 * 14); +Test::More::plan(tests => 2 * 15); require Test::Leaner; my @syms = qw< plan - skip_all skip done_testing pass @@ -23,11 +25,17 @@ my @syms = qw< isnt like unlike + cmp_ok + is_deeply diag note BAIL_OUT >; +unless ($Test::More::VERSION > 0.51) { + delete $main::{$_} for @syms; +} + for (@syms) { eval { Test::Leaner->import(import => [ $_ ]) }; tm_is $@, '', "import $_";