t/lib/u-dualvar.t

   1 BEGIN {
   2         chdir 't' if -d 't';
   3         @INC = '../lib';
   4         require Config; import Config;
   5         if ($Config{extensions} !~ /\bList\/Util\b/) {
   6             print "1..0 # Skip: List::Util was not built\n";
   7             exit 0;
   8         }
   9 }
  10
  11 BEGIN {
  12   require Scalar::Util;
  13
  14   if (grep { /dualvar/ } @Scalar::Util::EXPORT_FAIL) {
  15     print "1..0\n";
  16     exit;
  17   }
  18 }
  19
  20 use Scalar::Util qw(dualvar);
  21
  22 print "1..6\n";
  23
  24 $var = dualvar 2.2,"string";
  25
  26 print "not " unless $var == 2.2;
  27 print "ok 1\n";
  28
  29 print "not " unless $var eq "string";
  30 print "ok 2\n";
  31
  32 $var2 = $var;
  33
  34 $var++;
  35
  36 print "not " unless $var == 3.2;
  37 print "ok 3\n";
  38
  39 print "not " unless $var ne "string";
  40 print "ok 4\n";
  41
  42 print "not " unless $var2 == 2.2;
  43 print "ok 5\n";
  44
  45 print "not " unless $var2 eq "string";
  46 print "ok 6\n";