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 | |
13 | ok(grep { $_ eq 'Bla' } @INC); |
143a3e5e |
14 | SKIP: { |
15 | skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS'; |
16 | ok(grep { $_ eq 'Foo::Bar' } @INC); |
17 | } |
574c798a |
18 | |
19 | fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2', |
20 | { switches => ['-IBla2'] }, '-I'); |
143a3e5e |
21 | SKIP: { |
22 | skip 'Double colons not allowed in dir spec', 1 if $^O eq 'VMS'; |
23 | fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2', |
24 | { switches => ['-IFoo::Bar2'] }, '-I with colons'); |
25 | } |