Commit | Line | Data |
---|---|---|
6e5079df | 1 | #!/usr/bin/perl -w |
2 | ||
3 | use Test::More; | |
4 | ||
5 | plan qw/no_plan/; | |
6 | ||
7 | use File::Spec; | |
8 | use Cwd; | |
9 | use File::Temp qw/ tempdir /; | |
10 | my $dir = tempdir( DIR => Cwd::abs_path('t'), CLEANUP => 1 ); | |
11 | my $base; | |
12 | ||
13 | sub CODE_in_INC() { | |
14 | return scalar grep { ref eq 'CODE' } @INC; | |
15 | } | |
16 | ||
17 | BEGIN { | |
18 | $base = CODE_in_INC; | |
19 | unshift @INC, sub { }; | |
20 | splice @INC, 3, 1, sub { }; | |
21 | push @INC, sub { }; | |
22 | } | |
23 | ||
24 | use local::lib( $dir ); | |
25 | ||
26 | is( CODE_in_INC, $base + 3 ); |