8 # ======================================================================
11 # ======================================================================
17 $vec = Bit::Vector->new(5000);
20 {print "ok $n\n";} else {print "not ok $n\n";}
23 {print "ok $n\n";} else {print "not ok $n\n";}
28 if (!$vec->is_empty())
29 {print "ok $n\n";} else {print "not ok $n\n";}
32 {print "ok $n\n";} else {print "not ok $n\n";}
35 $vec->Complement($vec);
38 {print "ok $n\n";} else {print "not ok $n\n";}
41 {print "ok $n\n";} else {print "not ok $n\n";}
51 if (!$vec->is_empty())
52 {print "ok $n\n";} else {print "not ok $n\n";}
55 {print "ok $n\n";} else {print "not ok $n\n";}
71 if (!$vec->is_empty())
72 {print "ok $n\n";} else {print "not ok $n\n";}
75 {print "ok $n\n";} else {print "not ok $n\n";}
81 {print "ok $n\n";} else {print "not ok $n\n";}
84 {print "ok $n\n";} else {print "not ok $n\n";}
94 if (!$vec->is_empty())
95 {print "ok $n\n";} else {print "not ok $n\n";}
98 {print "ok $n\n";} else {print "not ok $n\n";}
101 $vec->bit_flip($bit);
103 if (!$vec->is_empty())
104 {print "ok $n\n";} else {print "not ok $n\n";}
107 {print "ok $n\n";} else {print "not ok $n\n";}