ext/List/Util/t/isvstring.t

   1 #!./perl
   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     $|=1;
  15     require Scalar::Util;
  16     if (grep { /isvstring/ } @Scalar::Util::EXPORT_FAIL) {
  17         print("1..0\n");
  18         exit 0;
  19     }
  20 }
  21
  22 use Scalar::Util qw(isvstring);
  23
  24 print "1..4\n";
  25
  26 print "ok 1\n";
  27
  28 $vs = 49.46.48;
  29
  30 print "not " unless $vs == "1.0";
  31 print "ok 2\n";
  32
  33 print "not " unless isvstring($vs);
  34 print "ok 3\n";
  35
  36 $sv = "1.0";
  37 print "not " if isvstring($sv);
  38 print "ok 4\n";
  39
  40
  41