]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blob - t/01-import.t
Document that tests functions return the value of the test
[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 * 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 }