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 }
  15
  16 use Test::More tests => 4;
  17
  18 use Scalar::Util qw(tainted);
  19
  20 ok( !tainted(1), 'constant number');
  21
  22 my $var = 2;
  23
  24 ok( !tainted($var), 'known variable');
  25
  26 my $key = (keys %ENV)[0];
  27
  28 ok( tainted($ENV{$key}),        'environment variable');
  29
  30 $var = $ENV{$key};
  31 ok( tainted($var),      'copy of environment variable');