Commit | Line | Data |
---|---|---|
33459055 | 1 | BEGIN { |
a9153838 | 2 | if( $ENV{PERL_CORE} ) { |
3 | chdir 't'; | |
4 | @INC = '../lib'; | |
5 | } | |
33459055 | 6 | } |
d020a79a | 7 | |
33459055 | 8 | use Test::More tests => 5; |
d020a79a | 9 | |
33459055 | 10 | require_ok('Test::Builder'); |
11 | require_ok("Test::More"); | |
12 | require_ok("Test::Simple"); | |
13 | ||
14 | { | |
15 | package Foo; | |
16 | use Test::More import => [qw(ok is can_ok)]; | |
17 | can_ok('Foo', qw(ok is can_ok)); | |
18 | ok( !Foo->can('like'), 'import working properly' ); | |
19 | } |