f67ecd8ef97829d5b39b556304318470811f45ef
[perl.git] / lib / Test / Simple / t / useing.t
1 # $Id: /mirror/googlecode/test-more/t/useing.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $
2 BEGIN {
3     if( $ENV{PERL_CORE} ) {
4         chdir 't';
5         @INC = '../lib';
6     }
7 }
8
9 use Test::More tests => 5;
10
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 }