X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F01-import.t;h=9027e9963135acad44277f60eceb8bfa5ef44d1a;hb=378088097e64037f79bdae71f517be8b4a443929;hp=d612ed4ff607030258275327f90d2615b35186dc;hpb=c966261ac55fcb079dfc1bf42b1152b4bb71bd0b;p=perl%2Fmodules%2FTest-Leaner.git diff --git a/t/01-import.t b/t/01-import.t index d612ed4..9027e99 100644 --- a/t/01-import.t +++ b/t/01-import.t @@ -5,7 +5,10 @@ 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 * 15); @@ -13,7 +16,6 @@ require Test::Leaner; my @syms = qw< plan - skip_all skip done_testing pass @@ -21,14 +23,19 @@ my @syms = qw< ok is isnt - cmp_ok 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 $_";