Blame t/bitorder.t

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";