xref: /openbsd-src/gnu/usr.bin/perl/cpan/Digest-SHA/t/bitorder.t (revision 5759b3d249badf144a6240f7eec4dcf9df003e6b)
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