t/01-import.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More ();
   7
   8 BEGIN { *tm_is = \&Test::More::is }
   9
  10 Test::More::plan(tests => 2 * 14);
  11
  12 require Test::Leaner;
  13
  14 my @syms = qw<
  15  plan
  16  skip_all
  17  skip
  18  done_testing
  19  pass
  20  fail
  21  ok
  22  is
  23  isnt
  24  like
  25  unlike
  26  diag
  27  note
  28  BAIL_OUT
  29 >;
  30
  31 for (@syms) {
  32  eval { Test::Leaner->import(import => [ $_ ]) };
  33  tm_is $@,            '',                          "import $_";
  34  tm_is prototype($_), prototype("Test::More::$_"), "prototype $_";
  35 }