8 # ======================================================================
12 # ======================================================================
18 $set = new Bit::Vector($lim);
26 {print "ok $n\n";} else {print "not ok $n\n";}
29 {print "ok $n\n";} else {print "not ok $n\n";}
32 {print "ok $n\n";} else {print "not ok $n\n";}
41 {print "ok $n\n";} else {print "not ok $n\n";}
44 {print "ok $n\n";} else {print "not ok $n\n";}
47 {print "ok $n\n";} else {print "not ok $n\n";}
58 {print "ok $n\n";} else {print "not ok $n\n";}
61 {print "ok $n\n";} else {print "not ok $n\n";}
64 {print "ok $n\n";} else {print "not ok $n\n";}
74 {print "ok $n\n";} else {print "not ok $n\n";}
77 {print "ok $n\n";} else {print "not ok $n\n";}
80 {print "ok $n\n";} else {print "not ok $n\n";}
90 {print "ok $n\n";} else {print "not ok $n\n";}
93 {print "ok $n\n";} else {print "not ok $n\n";}
96 {print "ok $n\n";} else {print "not ok $n\n";}
101 $set->Bit_On($lim-2);
102 $norm = $set->Norm();
107 {print "ok $n\n";} else {print "not ok $n\n";}
110 {print "ok $n\n";} else {print "not ok $n\n";}
113 {print "ok $n\n";} else {print "not ok $n\n";}
117 $set->Bit_On(int($lim/2));
118 $norm = $set->Norm();
123 {print "ok $n\n";} else {print "not ok $n\n";}
125 if ($min == int($lim/2))
126 {print "ok $n\n";} else {print "not ok $n\n";}
128 if ($max == int($lim/2))
129 {print "ok $n\n";} else {print "not ok $n\n";}