This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use test.pl, not Test.pm, in t/run/*.t
[perl5.git] / t / run / runenv.t
CommitLineData
4ea8f8fb
MS
1#!./perl
2#
3# Tests for Perl run-time environment variable settings
4#
5# $PERL5OPT, $PERL5LIB, etc.
6
7BEGIN {
8 chdir 't' if -d 't';
9 @INC = '../lib';
e069d1ca 10 require Config; import Config;
27dd2420
JH
11 unless ($Config{'d_fork'}) {
12 print "1..0 # Skip: no fork\n";
13 exit 0;
14 }
16570ae7 15 require './test.pl'
4ea8f8fb
MS
16}
17
a0704631 18plan tests => 17;
659ca9ea 19
4ea8f8fb
MS
20my $STDOUT = './results-0';
21my $STDERR = './results-1';
c8d62b71 22my $PERL = $ENV{PERL} || './perl';
4ea8f8fb
MS
23my $FAILURE_CODE = 119;
24
a0704631
SF
25delete $ENV{PERLLIB};
26delete $ENV{PERL5LIB};
27delete $ENV{PERL5OPT};
28
4ea8f8fb 29# Run perl with specified environment and arguments returns a list.
1c4db469 30# First element is true if Perl's stdout and stderr match the
4ea8f8fb
MS
31# supplied $stdout and $stderr argument strings exactly.
32# second element is an explanation of the failure
33sub runperl {
34 local *F;
35 my ($env, $args, $stdout, $stderr) = @_;
36
37 unshift @$args, '-I../lib';
38
39 $stdout = '' unless defined $stdout;
40 $stderr = '' unless defined $stderr;
cd4e750a
IZ
41 local %ENV = %ENV;
42 delete $ENV{PERLLIB};
43 delete $ENV{PERL5LIB};
44 delete $ENV{PERL5OPT};
4ea8f8fb
MS
45 my $pid = fork;
46 return (0, "Couldn't fork: $!") unless defined $pid; # failure
47 if ($pid) { # parent
48 my ($actual_stdout, $actual_stderr);
49 wait;
50 return (0, "Failure in child.\n") if ($?>>8) == $FAILURE_CODE;
51
52 open F, "< $STDOUT" or return (0, "Couldn't read $STDOUT file");
53 { local $/; $actual_stdout = <F> }
54 open F, "< $STDERR" or return (0, "Couldn't read $STDERR file");
55 { local $/; $actual_stderr = <F> }
56
57 if ($actual_stdout ne $stdout) {
58 return (0, "Stdout mismatch: expected [$stdout], saw [$actual_stdout]");
59 } elsif ($actual_stderr ne $stderr) {
60 return (0, "Stderr mismatch: expected [$stderr], saw [$actual_stderr]");
61 } else {
62 return 1; # success
63 }
64 } else { # child
65 for my $k (keys %$env) {
66 $ENV{$k} = $env->{$k};
67 }
68 open STDOUT, "> $STDOUT" or exit $FAILURE_CODE;
69 open STDERR, "> $STDERR" or it_didnt_work();
70 { exec $PERL, @$args }
71 it_didnt_work();
72 }
73}
74
75
76sub it_didnt_work {
77 print STDOUT "IWHCWJIHCI\cNHJWCJQWKJQJWCQW\n";
78 exit $FAILURE_CODE;
79}
80
81sub try {
4ea8f8fb 82 my ($success, $reason) = runperl(@_);
659ca9ea 83 $reason =~ s/\n/\\n/g if defined $reason;
16570ae7
NC
84 local $::Level = $::Level + 1;
85 ok( $success, $reason );
4ea8f8fb
MS
86}
87
88# PERL5OPT Command-line options (switches). Switches in
89# this variable are taken as if they were on
1c4db469 90# every Perl command line. Only the -[DIMUdmtw]
4ea8f8fb
MS
91# switches are allowed. When running taint
92# checks (because the program was running setuid
93# or setgid, or the -T switch was used), this
94# variable is ignored. If PERL5OPT begins with
95# -T, tainting will be enabled, and any
96# subsequent options ignored.
97
659ca9ea 98try({PERL5OPT => '-w'}, ['-e', 'print $::x'],
4ea8f8fb 99 "",
29489e7c 100 qq{Name "main::x" used only once: possible typo at -e line 1.\nUse of uninitialized value \$x in print at -e line 1.\n});
4ea8f8fb 101
659ca9ea 102try({PERL5OPT => '-Mstrict'}, ['-e', 'print $::x'],
4ea8f8fb
MS
103 "", "");
104
659ca9ea 105try({PERL5OPT => '-Mstrict'}, ['-e', 'print $x'],
4ea8f8fb
MS
106 "",
107 qq{Global symbol "\$x" requires explicit package name at -e line 1.\nExecution of -e aborted due to compilation errors.\n});
108
109# Fails in 5.6.0
659ca9ea 110try({PERL5OPT => '-Mstrict -w'}, ['-e', 'print $x'],
4ea8f8fb
MS
111 "",
112 qq{Global symbol "\$x" requires explicit package name at -e line 1.\nExecution of -e aborted due to compilation errors.\n});
113
114# Fails in 5.6.0
659ca9ea 115try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'],
4ea8f8fb
MS
116 "",
117 <<ERROR
118Name "main::x" used only once: possible typo at -e line 1.
29489e7c 119Use of uninitialized value \$x in print at -e line 1.
4ea8f8fb
MS
120ERROR
121 );
122
123# Fails in 5.6.0
659ca9ea 124try({PERL5OPT => '-w -Mstrict'}, ['-e', 'print $::x'],
4ea8f8fb
MS
125 "",
126 <<ERROR
127Name "main::x" used only once: possible typo at -e line 1.
29489e7c 128Use of uninitialized value \$x in print at -e line 1.
4ea8f8fb
MS
129ERROR
130 );
131
659ca9ea 132try({PERL5OPT => '-MExporter'}, ['-e0'],
4ea8f8fb
MS
133 "",
134 "");
135
136# Fails in 5.6.0
659ca9ea 137try({PERL5OPT => '-MExporter -MExporter'}, ['-e0'],
4ea8f8fb
MS
138 "",
139 "");
140
659ca9ea 141try({PERL5OPT => '-Mstrict -Mwarnings'},
4ea8f8fb
MS
142 ['-e', 'print "ok" if $INC{"strict.pm"} and $INC{"warnings.pm"}'],
143 "ok",
144 "");
145
659ca9ea
JH
146try({PERL5OPT => '-w -w'},
147 ['-e', 'print $ENV{PERL5OPT}'],
148 '-w -w',
149 '');
27dd2420 150
1c4db469
RGS
151try({PERL5OPT => '-t'},
152 ['-e', 'print ${^TAINT}'],
9aa05f58 153 '-1',
1c4db469
RGS
154 '');
155
cd4e750a 156try({PERLLIB => "foobar$Config{path_sep}42"},
574c798a
SR
157 ['-e', 'print grep { $_ eq "foobar" } @INC'],
158 'foobar',
159 '');
160
cd4e750a 161try({PERLLIB => "foobar$Config{path_sep}42"},
574c798a
SR
162 ['-e', 'print grep { $_ eq "42" } @INC'],
163 '42',
164 '');
165
cd4e750a 166try({PERL5LIB => "foobar$Config{path_sep}42"},
574c798a
SR
167 ['-e', 'print grep { $_ eq "foobar" } @INC'],
168 'foobar',
169 '');
170
cd4e750a 171try({PERL5LIB => "foobar$Config{path_sep}42"},
574c798a
SR
172 ['-e', 'print grep { $_ eq "42" } @INC'],
173 '42',
174 '');
175
a0704631
SF
176try({PERL5LIB => "foo",
177 PERLLIB => "bar"},
178 ['-e', 'print grep { $_ eq "foo" } @INC'],
179 'foo',
180 '');
181
182try({PERL5LIB => "foo",
183 PERLLIB => "bar"},
184 ['-e', 'print grep { $_ eq "bar" } @INC'],
185 '',
186 '');
187
574c798a
SR
188# PERL5LIB tests with included arch directories still missing
189
27dd2420
JH
190END {
191 1 while unlink $STDOUT;
192 1 while unlink $STDERR;
193}