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
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 $_";
- 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 $_";
}