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 * 15);
  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  cmp_ok
  25  like
  26  unlike
  27  diag
  28  note
  29  BAIL_OUT
  30 >;
  31
  32 for (@syms) {
  33  eval { Test::Leaner->import(import => [ $_ ]) };
  34  tm_is $@,            '',                          "import $_";
  35  tm_is prototype($_), prototype("Test::More::$_"), "prototype $_";
  36 }