Commit | Line | Data |
ccbd73a4 |
1 | # $Id: /mirror/googlecode/test-more/t/useing.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 | } |
d020a79a |
8 | |
33459055 |
9 | use Test::More tests => 5; |
d020a79a |
10 | |
33459055 |
11 | require_ok('Test::Builder'); |
12 | require_ok("Test::More"); |
13 | require_ok("Test::Simple"); |
14 | |
15 | { |
16 | package Foo; |
17 | use Test::More import => [qw(ok is can_ok)]; |
18 | can_ok('Foo', qw(ok is can_ok)); |
19 | ok( !Foo->can('like'), 'import working properly' ); |
20 | } |