t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More ();
   7
   8 BEGIN {
   9  delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE};
  10  *tm_is = \&Test::More::is;
  11 }
  12
  13 Test::More::plan(tests => 2 * 15);
  14
  15 require Test::Leaner;
  16
  17 my @syms = qw<
  18  plan
  19  skip
  20  done_testing
  21  pass
  22  fail
  23  ok
  24  is
  25  isnt
  26  like
  27  unlike
  28  cmp_ok
  29  is_deeply
  30  diag
  31  note
  32  BAIL_OUT
  33 >;
  34
  35 unless ($Test::More::VERSION > 0.51) {
  36  delete $main::{$_} for @syms;
  37 }
  38
  39 for (@syms) {
  40  eval { Test::Leaner->import(import => [ $_ ]) };
  41  tm_is $@, '', "import $_";
  42  my $proto = ($_ eq 'unlike' and $Test::More::VERSION < 0.4802)
  43              ? '$$;$'
  44              : prototype("Test::More::$_");
  45  tm_is prototype($_), $proto, "prototype $_";
  46 }