Commit | Line | Data |
574c798a |
1 | #!./perl -IFoo::Bar -IBla |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | unshift @INC, '../lib'; |
6 | require './test.pl'; # for which_perl() etc |
7 | } |
8 | |
9 | BEGIN { |
10 | plan(4); |
11 | } |
12 | |
63c6dcc1 |
13 | my $Is_MacOS = $^O eq 'MacOS'; |
14 | my $Is_VMS = $^O eq 'VMS'; |
15 | my $lib; |
16 | |
17 | $lib = $Is_MacOS ? ':Bla:' : 'Bla'; |
18 | ok(grep { $_ eq $lib } @INC); |
143a3e5e |
19 | SKIP: { |
63c6dcc1 |
20 | skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; |
21 | $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar'; |
22 | ok(grep { $_ eq $lib } @INC); |
143a3e5e |
23 | } |
574c798a |
24 | |
63c6dcc1 |
25 | $lib = $Is_MacOS ? ':Bla2:' : 'Bla2'; |
26 | fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib, |
574c798a |
27 | { switches => ['-IBla2'] }, '-I'); |
143a3e5e |
28 | SKIP: { |
63c6dcc1 |
29 | skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; |
30 | $lib = $Is_MacOS ? 'Foo::Bar2:' : 'Foo::Bar2'; |
31 | fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib, |
143a3e5e |
32 | { switches => ['-IFoo::Bar2'] }, '-I with colons'); |
33 | } |