Commit | Line | Data |
---|---|---|
ccbd73a4 | 1 | # $Id: /mirror/googlecode/test-more/t/import.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $ |
33459055 | 2 | BEGIN { |
a9153838 | 3 | if( $ENV{PERL_CORE} ) { |
4 | chdir 't'; | |
5 | @INC = '../lib'; | |
6 | } | |
33459055 | 7 | } |
8 | ||
a9153838 | 9 | |
33459055 | 10 | use Test::More tests => 2, import => [qw(!fail)]; |
11 | ||
12 | can_ok(__PACKAGE__, qw(ok pass like isa_ok)); | |
13 | ok( !__PACKAGE__->can('fail'), 'fail() not exported' ); |