diff options
| -rw-r--r-- | t/run/runenv.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/t/run/runenv.t b/t/run/runenv.t index 317784ae31..f3a5a06cab 100644 --- a/t/run/runenv.t +++ b/t/run/runenv.t @@ -16,13 +16,17 @@ BEGIN { use Test; -plan tests => 15; +plan tests => 17; my $STDOUT = './results-0'; my $STDERR = './results-1'; my $PERL = './perl'; my $FAILURE_CODE = 119; +delete $ENV{PERLLIB}; +delete $ENV{PERL5LIB}; +delete $ENV{PERL5OPT}; + # Run perl with specified environment and arguments returns a list. # First element is true if Perl's stdout and stderr match the # supplied $stdout and $stderr argument strings exactly. @@ -165,6 +169,18 @@ try({PERL5LIB => "foobar:42"}, '42', ''); +try({PERL5LIB => "foo", + PERLLIB => "bar"}, + ['-e', 'print grep { $_ eq "foo" } @INC'], + 'foo', + ''); + +try({PERL5LIB => "foo", + PERLLIB => "bar"}, + ['-e', 'print grep { $_ eq "bar" } @INC'], + '', + ''); + # PERL5LIB tests with included arch directories still missing END { |