8 # ======================================================================
9 # $set1->Compare($set2);
10 # $set1->Lexicompare($set2);
11 # ======================================================================
15 $set0 = new Bit::Vector(65536);
16 $set1 = new Bit::Vector(65536);
17 $set2 = new Bit::Vector(65536);
18 $set3 = new Bit::Vector(65536);
19 $set4 = new Bit::Vector(65536);
28 if ($set0->Compare($set0) == 0)
29 {print "ok $n\n";} else {print "not ok $n\n";}
31 if ($set0->Compare($set1) == -1)
32 {print "ok $n\n";} else {print "not ok $n\n";}
34 if ($set0->Compare($set2) == -1)
35 {print "ok $n\n";} else {print "not ok $n\n";}
37 if ($set0->Compare($set3) == 1)
38 {print "ok $n\n";} else {print "not ok $n\n";}
40 if ($set0->Compare($set4) == 1)
41 {print "ok $n\n";} else {print "not ok $n\n";}
43 if ($set1->Compare($set0) == 1)
44 {print "ok $n\n";} else {print "not ok $n\n";}
46 if ($set1->Compare($set1) == 0)
47 {print "ok $n\n";} else {print "not ok $n\n";}
49 if ($set1->Compare($set2) == -1)
50 {print "ok $n\n";} else {print "not ok $n\n";}
52 if ($set1->Compare($set3) == 1)
53 {print "ok $n\n";} else {print "not ok $n\n";}
55 if ($set1->Compare($set4) == 1)
56 {print "ok $n\n";} else {print "not ok $n\n";}
58 if ($set2->Compare($set0) == 1)
59 {print "ok $n\n";} else {print "not ok $n\n";}
61 if ($set2->Compare($set1) == 1)
62 {print "ok $n\n";} else {print "not ok $n\n";}
64 if ($set2->Compare($set2) == 0)
65 {print "ok $n\n";} else {print "not ok $n\n";}
67 if ($set2->Compare($set3) == 1)
68 {print "ok $n\n";} else {print "not ok $n\n";}
70 if ($set2->Compare($set4) == 1)
71 {print "ok $n\n";} else {print "not ok $n\n";}
73 if ($set3->Compare($set0) == -1)
74 {print "ok $n\n";} else {print "not ok $n\n";}
76 if ($set3->Compare($set1) == -1)
77 {print "ok $n\n";} else {print "not ok $n\n";}
79 if ($set3->Compare($set2) == -1)
80 {print "ok $n\n";} else {print "not ok $n\n";}
82 if ($set3->Compare($set3) == 0)
83 {print "ok $n\n";} else {print "not ok $n\n";}
85 if ($set3->Compare($set4) == -1)
86 {print "ok $n\n";} else {print "not ok $n\n";}
88 if ($set4->Compare($set0) == -1)
89 {print "ok $n\n";} else {print "not ok $n\n";}
91 if ($set4->Compare($set1) == -1)
92 {print "ok $n\n";} else {print "not ok $n\n";}
94 if ($set4->Compare($set2) == -1)
95 {print "ok $n\n";} else {print "not ok $n\n";}
97 if ($set4->Compare($set3) == 1)
98 {print "ok $n\n";} else {print "not ok $n\n";}
100 if ($set4->Compare($set4) == 0)
101 {print "ok $n\n";} else {print "not ok $n\n";}
104 if ($set0->Lexicompare($set0) == 0)
105 {print "ok $n\n";} else {print "not ok $n\n";}
107 if ($set0->Lexicompare($set1) == -1)
108 {print "ok $n\n";} else {print "not ok $n\n";}
110 if ($set0->Lexicompare($set2) == -1)
111 {print "ok $n\n";} else {print "not ok $n\n";}
113 if ($set0->Lexicompare($set3) == -1)
114 {print "ok $n\n";} else {print "not ok $n\n";}
116 if ($set0->Lexicompare($set4) == -1)
117 {print "ok $n\n";} else {print "not ok $n\n";}
119 if ($set1->Lexicompare($set0) == 1)
120 {print "ok $n\n";} else {print "not ok $n\n";}
122 if ($set1->Lexicompare($set1) == 0)
123 {print "ok $n\n";} else {print "not ok $n\n";}
125 if ($set1->Lexicompare($set2) == -1)
126 {print "ok $n\n";} else {print "not ok $n\n";}
128 if ($set1->Lexicompare($set3) == -1)
129 {print "ok $n\n";} else {print "not ok $n\n";}
131 if ($set1->Lexicompare($set4) == -1)
132 {print "ok $n\n";} else {print "not ok $n\n";}
134 if ($set2->Lexicompare($set0) == 1)
135 {print "ok $n\n";} else {print "not ok $n\n";}
137 if ($set2->Lexicompare($set1) == 1)
138 {print "ok $n\n";} else {print "not ok $n\n";}
140 if ($set2->Lexicompare($set2) == 0)
141 {print "ok $n\n";} else {print "not ok $n\n";}
143 if ($set2->Lexicompare($set3) == -1)
144 {print "ok $n\n";} else {print "not ok $n\n";}
146 if ($set2->Lexicompare($set4) == -1)
147 {print "ok $n\n";} else {print "not ok $n\n";}
149 if ($set3->Lexicompare($set0) == 1)
150 {print "ok $n\n";} else {print "not ok $n\n";}
152 if ($set3->Lexicompare($set1) == 1)
153 {print "ok $n\n";} else {print "not ok $n\n";}
155 if ($set3->Lexicompare($set2) == 1)
156 {print "ok $n\n";} else {print "not ok $n\n";}
158 if ($set3->Lexicompare($set3) == 0)
159 {print "ok $n\n";} else {print "not ok $n\n";}
161 if ($set3->Lexicompare($set4) == -1)
162 {print "ok $n\n";} else {print "not ok $n\n";}
164 if ($set4->Lexicompare($set0) == 1)
165 {print "ok $n\n";} else {print "not ok $n\n";}
167 if ($set4->Lexicompare($set1) == 1)
168 {print "ok $n\n";} else {print "not ok $n\n";}
170 if ($set4->Lexicompare($set2) == 1)
171 {print "ok $n\n";} else {print "not ok $n\n";}
173 if ($set4->Lexicompare($set3) == 1)
174 {print "ok $n\n";} else {print "not ok $n\n";}
176 if ($set4->Lexicompare($set4) == 0)
177 {print "ok $n\n";} else {print "not ok $n\n";}