6 $MODULE = ($ENV{PERL_CORE} || -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl";
7 eval "require $MODULE" || die $@;
12 if ($ENV{PERL_CORE}) {
19 print "1..$numtests\n";
21 # Here's the bitstring to test against, and its SHA-1 digest
23 my $ONEBITS = pack("B*", "1" x 80000);
24 my $digest = "11003389959355c2773af6b0f36d842fe430ec49";
26 my $state = $MODULE->new("sHa1");
29 $state->add_bits($ONEBITS, 80000);
30 print "not " unless $state->hexdigest eq $digest;
31 print "ok ", $testnum++, "\n";
33 # buffer using a series of increasingly large bitstrings
35 # Note that (1 + 2 + ... + 399) + 200 = 80000
38 $state->add_bits($ONEBITS, $_);
40 $state->add_bits($ONEBITS, 200);
42 print "not " unless $state->hexdigest eq $digest;
43 print "ok ", $testnum++, "\n";
45 # create a buffer-alignment nuisance
47 $state = $MODULE->new("1");
49 $state->add_bits($ONEBITS, 1);
51 $state->add_bits($ONEBITS, 800);
53 $state->add_bits($ONEBITS, 799);
55 print "not " unless $state->hexdigest eq $digest;
56 print "ok ", $testnum++, "\n";
58 # buffer randomly-sized bitstrings
61 my $maxbits = 8 * 127;
63 $state = $MODULE->new(1);
65 while ($reps > $maxbits) {
66 my $num = int(rand($maxbits));
67 $state->add_bits($ONEBITS, $num);
70 $state->add_bits($ONEBITS, $reps);
72 print "not " unless $state->hexdigest eq $digest;
73 print "ok ", $testnum++, "\n";