|
Packit |
fa4fcc |
use strict;
|
|
Packit |
fa4fcc |
use Digest::SHA;
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my $numtests = 2;
|
|
Packit |
fa4fcc |
print "1..$numtests\n";
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
my $testnum = 1;
|
|
Packit |
fa4fcc |
my $s1 = Digest::SHA->new;
|
|
Packit |
fa4fcc |
my $s2 = Digest::SHA->new;
|
|
Packit |
fa4fcc |
my $d1 = $s1->add_bits("110")->hexdigest;
|
|
Packit |
fa4fcc |
my $d2 = $s2->add_bits("1")->add_bits("1")->add_bits("0")->hexdigest;
|
|
Packit |
fa4fcc |
print "not " unless $d1 eq $d2;
|
|
Packit |
fa4fcc |
print "ok ", $testnum++, "\n";
|
|
Packit |
fa4fcc |
|
|
Packit |
fa4fcc |
$d1 = $s1->add_bits("111100001010")->hexdigest;
|
|
Packit |
fa4fcc |
$d2 = $s2->add_bits("\xF0\xA0", 12)->hexdigest;
|
|
Packit |
fa4fcc |
print "not " unless $d1 eq $d2;
|
|
Packit |
fa4fcc |
print "ok ", $testnum++, "\n";
|