Change 18136 by rgs@rgs-home on 2002/11/10 21:38:44
Subject: t/run/runenv.t bug
From: Salvador "Fandiņo" <[EMAIL PROTECTED]>
Date: Fri, 8 Nov 2002 08:07:13 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/run/runenv.t#7 edit
Differences ...
==== //depot/perl/t/run/runenv.t#7 (text) ====
Index: perl/t/run/runenv.t
--- perl/t/run/runenv.t#6~18102~ Mon Nov 4 13:43:53 2002
+++ perl/t/run/runenv.t Sun Nov 10 13:38:44 2002
@@ -16,13 +16,17 @@
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.
@@ -163,6 +167,18 @@
try({PERL5LIB => "foobar:42"},
['-e', 'print grep { $_ eq "42" } @INC'],
'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 of Patch.
