vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-simple-perl/libtest-simple-perl-0.80/t/import.t

   1 BEGIN {
   2     if( $ENV{PERL_CORE} ) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8
   9 use Test::More tests => 2, import => [qw(!fail)];
  10
  11 can_ok(__PACKAGE__, qw(ok pass like isa_ok));
  12 ok( !__PACKAGE__->can('fail'),  'fail() not exported' );