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