git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-simple-perl/libtest-simple-perl-0.80/t/useing.t

   1 BEGIN {
   2     if( $ENV{PERL_CORE} ) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8 use Test::More tests => 5;
   9
  10 require_ok('Test::Builder');
  11 require_ok("Test::More");
  12 require_ok("Test::Simple");
  13
  14 {
  15     package Foo;
  16     use Test::More import => [qw(ok is can_ok)];
  17     can_ok('Foo', qw(ok is can_ok));
  18     ok( !Foo->can('like'),  'import working properly' );
  19 }