]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blob - t/01-import.t
55f581decb0eef5e953fb0d829c691d0634ad55f
[perl/modules/Test-Leaner.git] / 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
17  done_testing
18  pass
19  fail
20  ok
21  is
22  isnt
23  cmp_ok
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 }