This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/run/runenv.t bug
authorSalvador Fandiño <sfandino@yahoo.com>
Fri, 8 Nov 2002 08:07:13 +0000 (00:07 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 10 Nov 2002 21:38:44 +0000 (21:38 +0000)
Message-ID: <20021108160713.78109.qmail@web13409.mail.yahoo.com>

p4raw-id: //depot/perl@18136

t/run/runenv.t

index 317784a..f3a5a06 100644 (file)
@@ -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 {