1 #!./perl -IFoo::Bar -IBla
5 unshift @INC, '../lib';
6 require './test.pl'; # for which_perl() etc
13 ok(grep { $_ eq 'Bla' } @INC);
14 ok(grep { $_ eq 'Foo::Bar' } @INC);
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');