]> git.vpit.fr Git - perl/modules/Test-Leaner.git/blob - t/01-import.t
Bump copyright year
[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 {
9  delete $ENV{PERL_TEST_LEANER_USES_TEST_MORE};
10  *tm_is = \&Test::More::is;
11 }
12
13 Test::More::plan(tests => 2 * 15);
14
15 require Test::Leaner;
16
17 my @syms = qw<
18  plan
19  skip
20  done_testing
21  pass
22  fail
23  ok
24  is
25  isnt
26  like
27  unlike
28  cmp_ok
29  is_deeply
30  diag
31  note
32  BAIL_OUT
33 >;
34
35 unless ($Test::More::VERSION > 0.51) {
36  delete $main::{$_} for @syms;
37 }
38
39 for (@syms) {
40  eval { Test::Leaner->import(import => [ $_ ]) };
41  tm_is $@, '', "import $_";
42  my $proto = ($_ eq 'unlike' and $Test::More::VERSION < 0.4802)
43              ? '$$;$'
44              : prototype("Test::More::$_");
45  tm_is prototype($_), $proto, "prototype $_";
46 }