lib/bitvector/t/00____version.t

   1 #!perl -w
   2
   3 use strict;
   4 no strict "vars";
   5
   6 $Bit::Vector::VERSION           = 0;
   7 $Bit::Vector::Overload::VERSION = 0;
   8 $Bit::Vector::String::VERSION   = 0;
   9
  10 # ======================================================================
  11 #   $ver = $Bit::Vector::VERSION;
  12 #   $ver = Bit::Vector::Version();
  13 #   $ver = Bit::Vector->Version();
  14 #   $bits = Bit::Vector::Word_Bits();
  15 #   $bits = Bit::Vector->Word_Bits();
  16 #   $bits = Bit::Vector::Long_Bits();
  17 #   $bits = Bit::Vector->Long_Bits();
  18 #   $ver = $Bit::Vector::String::VERSION;
  19 #   $ver = $Bit::Vector::Overload::VERSION;
  20 # ======================================================================
  21
  22 print "1..15\n";
  23
  24 $n = 1;
  25 if ($Bit::Vector::VERSION eq "0")
  26 {print "ok $n\n";} else {print "not ok $n\n";}
  27 $n++;
  28
  29 require Bit::Vector;
  30
  31 if ($Bit::Vector::VERSION eq "6.4")
  32 {print "ok $n\n";} else {print "not ok $n\n";}
  33 $n++;
  34
  35 if (Bit::Vector::Version() eq "6.4")
  36 {print "ok $n\n";} else {print "not ok $n\n";}
  37 $n++;
  38 if (Bit::Vector::Word_Bits() >= 32)
  39 {print "ok $n\n";} else {print "not ok $n\n";}
  40 $n++;
  41 if (Bit::Vector::Long_Bits() >= 32)
  42 {print "ok $n\n";} else {print "not ok $n\n";}
  43 $n++;
  44
  45 if (Bit::Vector->Version() eq "6.4")
  46 {print "ok $n\n";} else {print "not ok $n\n";}
  47 $n++;
  48 if (Bit::Vector->Word_Bits() >= 32)
  49 {print "ok $n\n";} else {print "not ok $n\n";}
  50 $n++;
  51 if (Bit::Vector->Long_Bits() >= 32)
  52 {print "ok $n\n";} else {print "not ok $n\n";}
  53 $n++;
  54
  55 eval { Bit::Vector->Version(0); };
  56 if ($@ =~ /Usage: Bit::Vector->Version\(\)/)
  57 {print "ok $n\n";} else {print "not ok $n\n";}
  58 $n++;
  59 eval { Bit::Vector->Word_Bits(0); };
  60 if ($@ =~ /Usage: Bit::Vector->Word_Bits\(\)/)
  61 {print "ok $n\n";} else {print "not ok $n\n";}
  62 $n++;
  63 eval { Bit::Vector->Long_Bits(0); };
  64 if ($@ =~ /Usage: Bit::Vector->Long_Bits\(\)/)
  65 {print "ok $n\n";} else {print "not ok $n\n";}
  66 $n++;
  67
  68 if ($Bit::Vector::Overload::VERSION eq "0")
  69 {print "ok $n\n";} else {print "not ok $n\n";}
  70 $n++;
  71
  72 require Bit::Vector::Overload;
  73
  74 if ($Bit::Vector::Overload::VERSION eq "6.4")
  75 {print "ok $n\n";} else {print "not ok $n\n";}
  76 $n++;
  77
  78 if ($Bit::Vector::String::VERSION eq "0")
  79 {print "ok $n\n";} else {print "not ok $n\n";}
  80 $n++;
  81
  82 require Bit::Vector::String;
  83
  84 if ($Bit::Vector::String::VERSION eq "6.4")
  85 {print "ok $n\n";} else {print "not ok $n\n";}
  86 $n++;
  87
  88 __END__
  89