t/lib/u-dualvar.t

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