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