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