13 BEGIN { plan tests => 1 }
16 my $bitstr = pack("B*", "11111111" x 10000);
17 my $state = Digest::SHA->new("1");
19 $state->add_bits($bitstr, 1); # creates an alignment nuisance
20 for ($i = 0; $i < 99; $i++) {
21 $state->add_bits($bitstr, 80000);
23 $state->add_bits($bitstr, 79999);
27 "559a512393dd212220ee080730d6f11644ba0222"