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