diff options
| author | Salvador Fandiño <sfandino@yahoo.com> | 2002-11-08 00:07:13 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-10 21:38:44 +0000 |
| commit | a07046312b1e745e6afd58111064e3a7a00b11b0 (patch) | |
| tree | 261d15d55772133dac06c34bf8dfc1b6d34f7f8c /t | |
| parent | 80fea0d2bcf08e174a74010b6dc3b53a2700dacd (diff) | |
| download | perl-a07046312b1e745e6afd58111064e3a7a00b11b0.tar.gz | |
t/run/runenv.t bug
Message-ID: <20021108160713.78109.qmail@web13409.mail.yahoo.com>
p4raw-id: //depot/perl@18136
Diffstat (limited to 't')
| -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 { |