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