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