13 BEGIN { plan tests => 1 }
16 my $bitstr = pack("B*", "11111111" x 127);
17 my $maxbits = 8 * 127;
18 my $state = Digest::SHA->new(1);
21 while ($reps > $maxbits) {
22 $num = int(rand($maxbits));
23 $state->add_bits($bitstr, $num);
26 $state->add_bits($bitstr, $reps);
30 "559a512393dd212220ee080730d6f11644ba0222"