blob: 80acec8fb130c0e723057200dfa8cbe951f36c99 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl -w
BEGIN {
if ( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ( '../lib', 'lib' );
}
else {
unshift @INC, 't/lib';
}
}
# Test that options in PERL5OPT are propogated to tainted tests
use strict;
use Test::More ( $^O eq 'VMS' ? ( skip_all => 'VMS' ) : ( tests => 1 ) );
use Config;
use TAP::Parser;
my $lib_path = join( ', ', map "'$_'", grep !ref, grep defined, @INC );
sub run_test_file {
my ( $test_template, @args ) = @_;
my $test_file = 'temp_test.tmp';
open TEST, ">$test_file" or die $!;
printf TEST $test_template, @args;
close TEST;
my $p = TAP::Parser->new(
{ source => $test_file,
# Test taint when there's spaces in a -I path
switches => [q["-Ifoo bar"]],
}
);
1 while $p->next;
ok !$p->has_problems;
unlink $test_file;
}
{
local $ENV{PERL5OPT} = $ENV{PERL_CORE} ? '-I../lib -Mstrict' : '-Mstrict';
run_test_file(<<'END');
#!/usr/bin/perl -T
print "1..1\n";
print $INC{'strict.pm'} ? "ok 1\n" : "not ok 1\n";
END
}
1;
|
