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 for (@syms) {
  36  eval { Test::Leaner->import(import => [ $_ ]) };
  37  tm_is $@,            '',                          "import $_";
  38  tm_is prototype($_), prototype("Test::More::$_"), "prototype $_";
  39 }