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
  17  done_testing
  18  pass
  19  fail
  20  ok
  21  is
  22  isnt
  23  like
  24  unlike
  25  cmp_ok
  26  is_deeply
  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 }