Commit | Line | Data |
---|---|---|
574c798a SR |
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); | |
14 | ok(grep { $_ eq 'Foo::Bar' } @INC); | |
15 | ||
16 | fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2', | |
17 | { switches => ['-IBla2'] }, '-I'); | |
18 | fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2', | |
19 | { switches => ['-IFoo::Bar2'] }, '-I with colons'); |