From: Salvador Fandiño <sfandino@yahoo.com>
Date: Fri, 8 Nov 2002 08:07:13 +0000 (-0800)
Subject: t/run/runenv.t bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a07046312b1e745e6afd58111064e3a7a00b11b0;p=p5sagit%2Fp5-mst-13.2.git

t/run/runenv.t bug
Message-ID: <20021108160713.78109.qmail@web13409.mail.yahoo.com>

p4raw-id: //depot/perl@18136
---

diff --git a/t/run/runenv.t b/t/run/runenv.t
index 317784a..f3a5a06 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 {