Commit | Line | Data |
a9489cb0 |
1 | use strict; |
2 | use warnings; |
7487778d |
3 | use Test::More tests => 2; |
4 | |
a9489cb0 |
5 | use File::Temp qw(tempdir); |
6 | use Cwd; |
7 | |
a9489cb0 |
8 | my $dir = tempdir('test_local_lib-XXXXX', DIR => Cwd::abs_path('t'), CLEANUP => 1); |
9 | |
10 | use local::lib (); |
11 | local::lib->import($dir); |
12 | local::lib->import($dir); |
13 | |
14 | { |
15 | my (%inc, %perl5lib); |
16 | map { $inc{$_}++ } @INC; |
17 | map { $perl5lib{$_} } split /:/, $ENV{PERL5LIB}; |
18 | ok ! grep({ $inc{$_} > 1 } keys %inc), '@INC entries not duplicated'; |
a9489cb0 |
19 | ok ! grep({ $perl5lib{$_} > 1 } keys %perl5lib), 'ENV{PERL5LIB} entries not duplicated'; |
20 | } |