6 $Bit::Vector::VERSION = 0;
7 $Bit::Vector::Overload::VERSION = 0;
8 $Bit::Vector::String::VERSION = 0;
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 # ======================================================================
25 if ($Bit::Vector::VERSION eq "0")
26 {print "ok $n\n";} else {print "not ok $n\n";}
31 if ($Bit::Vector::VERSION eq "6.4")
32 {print "ok $n\n";} else {print "not ok $n\n";}
35 if (Bit::Vector::Version() eq "6.4")
36 {print "ok $n\n";} else {print "not ok $n\n";}
38 if (Bit::Vector::Word_Bits() >= 32)
39 {print "ok $n\n";} else {print "not ok $n\n";}
41 if (Bit::Vector::Long_Bits() >= 32)
42 {print "ok $n\n";} else {print "not ok $n\n";}
45 if (Bit::Vector->Version() eq "6.4")
46 {print "ok $n\n";} else {print "not ok $n\n";}
48 if (Bit::Vector->Word_Bits() >= 32)
49 {print "ok $n\n";} else {print "not ok $n\n";}
51 if (Bit::Vector->Long_Bits() >= 32)
52 {print "ok $n\n";} else {print "not ok $n\n";}
55 eval { Bit::Vector->Version(0); };
56 if ($@ =~ /Usage: Bit::Vector->Version\(\)/)
57 {print "ok $n\n";} else {print "not ok $n\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";}
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";}
68 if ($Bit::Vector::Overload::VERSION eq "0")
69 {print "ok $n\n";} else {print "not ok $n\n";}
72 require Bit::Vector::Overload;
74 if ($Bit::Vector::Overload::VERSION eq "6.4")
75 {print "ok $n\n";} else {print "not ok $n\n";}
78 if ($Bit::Vector::String::VERSION eq "0")
79 {print "ok $n\n";} else {print "not ok $n\n";}
82 require Bit::Vector::String;
84 if ($Bit::Vector::String::VERSION eq "6.4")
85 {print "ok $n\n";} else {print "not ok $n\n";}