Commit | Line | Data |
39234879 |
1 | #!/usr/bin/perl -w |
7a5004db |
2 | |
3 | BEGIN { |
39234879 |
4 | if( $ENV{PERL_CORE} ) { |
5 | chdir 't' if -d 't'; |
6 | @INC = '../lib'; |
7 | } |
7a5004db |
8 | } |
39234879 |
9 | chdir 't'; |
7a5004db |
10 | |
11 | use Test::More tests => 3; |
12 | |
39234879 |
13 | BEGIN { |
14 | # non-core tests will have blib in their path. We remove it |
15 | # and just use the one in lib/. |
16 | unless( $ENV{PERL_CORE} ) { |
17 | @INC = grep !/blib/, @INC; |
18 | unshift @INC, '../lib'; |
19 | } |
20 | } |
21 | |
22 | my @blib_paths = grep /blib/, @INC; |
7a5004db |
23 | is( @blib_paths, 0, 'No blib dirs yet in @INC' ); |
24 | |
25 | use_ok( 'ExtUtils::testlib' ); |
26 | |
27 | @blib_paths = grep { /blib/ } @INC; |
28 | is( @blib_paths, 2, 'ExtUtils::testlib added two @INC dirs!' ); |