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