1BEGIN { 2 if( $ENV{PERL_CORE} ) { 3 chdir 't'; 4 @INC = '../lib'; 5 } 6} 7 8use Test::More tests => 5; 9 10require_ok('Test::Builder'); 11require_ok("Test::More"); 12require_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} 20