Commit | Line | Data |
---|---|---|
f4a2945e | 1 | #!./perl -T |
2 | ||
3 | BEGIN { | |
1bfb5477 | 4 | unless (-d 'blib') { |
f4a2945e | 5 | chdir 't' if -d 't'; |
6 | @INC = '../lib'; | |
6b05f64e | 7 | require Config; import Config; |
1bfb5477 | 8 | keys %Config; # Silence warning |
6b05f64e | 9 | if ($Config{extensions} !~ /\bList\/Util\b/) { |
10 | print "1..0 # Skip: List::Util was not built\n"; | |
11 | exit 0; | |
12 | } | |
1bfb5477 | 13 | } |
f4a2945e | 14 | } |
15 | ||
cf083cf9 | 16 | use Test::More tests => 4; |
f4a2945e | 17 | |
cf083cf9 | 18 | use Scalar::Util qw(tainted); |
f4a2945e | 19 | |
cf083cf9 | 20 | ok( !tainted(1), 'constant number'); |
f4a2945e | 21 | |
22 | my $var = 2; | |
23 | ||
cf083cf9 | 24 | ok( !tainted($var), 'known variable'); |
f4a2945e | 25 | |
4b12b7f5 | 26 | my $key = (keys %ENV)[0]; |
f4a2945e | 27 | |
cf083cf9 | 28 | ok( tainted($ENV{$key}), 'environment variable'); |
f4a2945e | 29 | |
cf083cf9 | 30 | $var = $ENV{$key}; |
31 | ok( tainted($var), 'copy of environment variable'); |