diff options
Diffstat (limited to 't/run/runenv.t')
| -rw-r--r-- | t/run/runenv.t | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/t/run/runenv.t b/t/run/runenv.t index 55c48f03b3..236f84eabb 100644 --- a/t/run/runenv.t +++ b/t/run/runenv.t @@ -16,7 +16,7 @@ BEGIN { use Test; -plan tests => 10; +plan tests => 11; my $STDOUT = './results-0'; my $STDERR = './results-1'; @@ -24,7 +24,7 @@ my $PERL = './perl'; my $FAILURE_CODE = 119; # Run perl with specified environment and arguments returns a list. -# First element is true iff Perl's stdout and stderr match the +# First element is true if Perl's stdout and stderr match the # supplied $stdout and $stderr argument strings exactly. # second element is an explanation of the failure sub runperl { @@ -79,7 +79,7 @@ sub try { # PERL5OPT Command-line options (switches). Switches in # this variable are taken as if they were on -# every Perl command line. Only the -[DIMUdmw] +# every Perl command line. Only the -[DIMUdmtw] # switches are allowed. When running taint # checks (because the program was running setuid # or setgid, or the -T switch was used), this @@ -140,6 +140,11 @@ try({PERL5OPT => '-w -w'}, '-w -w', ''); +try({PERL5OPT => '-t'}, + ['-e', 'print ${^TAINT}'], + '1', + ''); + END { 1 while unlink $STDOUT; 1 while unlink $STDERR; |