lib/bitvector/t/02____destroy.t

   1 #!perl -w
   2
   3 use strict;
   4 no strict "vars";
   5
   6 use Bit::Vector;
   7
   8 # ======================================================================
   9 #   $set->DESTROY();
  10 # ======================================================================
  11
  12 print "1..15\n";
  13
  14 $n = 1;
  15 $set = 1;
  16 if (ref($set) eq '')
  17 {print "ok $n\n";} else {print "not ok $n\n";}
  18 $n++;
  19 eval { $set->DESTROY(); };
  20 if ($@ =~ /Can't call method "DESTROY" without a package or object reference/)
  21 {print "ok $n\n";} else {print "not ok $n\n";}
  22 $n++;
  23 eval { Bit::Vector::DESTROY($set); };
  24 unless ($@)
  25 {print "ok $n\n";} else {print "not ok $n\n";}
  26 $n++;
  27 $obj = 0x00088850;
  28 $set = \$obj;
  29 if (ref($set) eq 'SCALAR')
  30 {print "ok $n\n";} else {print "not ok $n\n";}
  31 $n++;
  32 eval { $set->DESTROY(); };
  33 if ($@ =~ /Can't call method "DESTROY" on unblessed reference/)
  34 {print "ok $n\n";} else {print "not ok $n\n";}
  35 $n++;
  36 eval { Bit::Vector::DESTROY($set); };
  37 unless ($@)
  38 {print "ok $n\n";} else {print "not ok $n\n";}
  39 $n++;
  40 $obj = 0x000E9CE0;
  41 $set = \$obj;
  42 bless($set, 'Bit::Vector');
  43 if (ref($set) eq 'Bit::Vector')
  44 {print "ok $n\n";} else {print "not ok $n\n";}
  45 $n++;
  46 eval { $set->DESTROY(); };
  47 unless ($@)
  48 {print "ok $n\n";} else {print "not ok $n\n";}
  49 $n++;
  50 eval { Bit::Vector::DESTROY($set); };
  51 unless ($@)
  52 {print "ok $n\n";} else {print "not ok $n\n";}
  53 $n++;
  54 $set = new Bit::Vector(1);
  55 if (ref($set) eq 'Bit::Vector')
  56 {print "ok $n\n";} else {print "not ok $n\n";}
  57 $n++;
  58 eval { $set->DESTROY(); };
  59 unless ($@)
  60 {print "ok $n\n";} else {print "not ok $n\n";}
  61 $n++;
  62 if (ref($set) eq 'Bit::Vector')
  63 {print "ok $n\n";} else {print "not ok $n\n";}
  64 $n++;
  65 if (defined(${$set}) && (${$set} == 0))
  66 {print "ok $n\n";} else {print "not ok $n\n";}
  67 $n++;
  68 eval { $set->DESTROY(); };
  69 unless ($@)
  70 {print "ok $n\n";} else {print "not ok $n\n";}
  71 $n++;
  72 eval { $set = 0; };
  73 unless ($@)
  74 {print "ok $n\n";} else {print "not ok $n\n";}
  75 $n++;
  76
  77 __END__
  78