ext/List-Util/t/tainted.t

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