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 lib qw(blib/lib blib/arch);
  17 use Scalar::Util qw(tainted);
  18 use Config;
  19
  20 print "1..4\n";
  21
  22 print "not " if tainted(1);
  23 print "ok 1\n";
  24
  25 my $var = 2;
  26
  27 print "not " if tainted($var);
  28 print "ok 2\n";
  29
  30 my $key = (grep $_ ne 'PERL_CORE', keys %ENV)[0];
  31
  32 $var = $ENV{$key};
  33
  34 print "not " unless tainted($var);
  35 print "ok 3 - '$var'\n";
  36
  37 print "not " unless tainted($ENV{$key});
  38 print "ok 4 - key '$key', val '$ENV{$key}'\n";