blob: fa74b9435ea1db674c48ab6e5c6ae13284021d52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!./perl -IFoo::Bar -IBla
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib';
require './test.pl'; # for which_perl() etc
}
BEGIN {
plan(4);
}
ok(grep { $_ eq 'Bla' } @INC);
ok(grep { $_ eq 'Foo::Bar' } @INC);
fresh_perl_is('print grep { $_ eq "Bla2" } @INC', 'Bla2',
{ switches => ['-IBla2'] }, '-I');
fresh_perl_is('print grep { $_ eq "Foo::Bar2" } @INC', 'Foo::Bar2',
{ switches => ['-IFoo::Bar2'] }, '-I with colons');
|
