07____compare.t

来自「SinFP是一种新的识别对方计算机操作系统类型的工具」· T 代码 · 共 182 行

#!perl -w

use strict;
no strict "vars";

use Bit::Vector;

# ======================================================================
#   $set1->Compare($set2);
#   $set1->Lexicompare($set2);
# ======================================================================

print "1..50\n";

$set0 = new Bit::Vector(65536);
$set1 = new Bit::Vector(65536);
$set2 = new Bit::Vector(65536);
$set3 = new Bit::Vector(65536);
$set4 = new Bit::Vector(65536);

$set1->Bit_On(0);
$set2->Bit_On(1);
$set3->Fill();
$set3->Bit_Off(0);
$set4->Fill();

$n = 1;
if ($set0->Compare($set0) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Compare($set1) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Compare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Compare($set3) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Compare($set4) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Compare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Compare($set1) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Compare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Compare($set3) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Compare($set4) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Compare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Compare($set1) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Compare($set2) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Compare($set3) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Compare($set4) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Compare($set0) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Compare($set1) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Compare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Compare($set3) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Compare($set4) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Compare($set0) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Compare($set1) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Compare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Compare($set3) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Compare($set4) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;

if ($set0->Lexicompare($set0) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Lexicompare($set1) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Lexicompare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Lexicompare($set3) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set0->Lexicompare($set4) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Lexicompare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Lexicompare($set1) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Lexicompare($set2) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Lexicompare($set3) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set1->Lexicompare($set4) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Lexicompare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Lexicompare($set1) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Lexicompare($set2) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Lexicompare($set3) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set2->Lexicompare($set4) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Lexicompare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Lexicompare($set1) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Lexicompare($set2) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Lexicompare($set3) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set3->Lexicompare($set4) == -1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Lexicompare($set0) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Lexicompare($set1) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Lexicompare($set2) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Lexicompare($set3) == 1)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;
if ($set4->Lexicompare($set4) == 0)
{print "ok $n\n";} else {print "not ok $n\n";}
$n++;

__END__