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