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 (file)
--- 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 {