1b8851fccSafresh1use strict; 2*5759b3d2Safresh1use Digest::SHA; 3b8851fccSafresh1 4*5759b3d2Safresh1my $numtests = 2; 5b8851fccSafresh1print "1..$numtests\n"; 6b8851fccSafresh1 7*5759b3d2Safresh1my $testnum = 1; 8*5759b3d2Safresh1my $s1 = Digest::SHA->new; 9*5759b3d2Safresh1my $s2 = Digest::SHA->new; 10*5759b3d2Safresh1my $d1 = $s1->add_bits("110")->hexdigest; 11*5759b3d2Safresh1my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest; 12b8851fccSafresh1print "not " unless $d1 eq $d2; 13*5759b3d2Safresh1print "ok ", $testnum++, "\n"; 14*5759b3d2Safresh1 15*5759b3d2Safresh1$d1 = $s1->add_bits("111100001010")->hexdigest; 16*5759b3d2Safresh1$d2 = $s2->add_bits("\xF0\xA0", 12)->hexdigest; 17*5759b3d2Safresh1print "not " unless $d1 eq $d2; 18*5759b3d2Safresh1print "ok ", $testnum++, "\n"; 19