13 BEGIN { plan tests => 1 }
16 my $bitstr = pack("B*", "1" x 3999);
17 my $state = Digest::SHA->new("sHa1");
19 # Note that (1 + 2 + ... + 3999) + 2000 = 8000000
21 for ($i = 0; $i <= 3999; $i++) {
22 $state->add_bits($bitstr, $i);
24 $state->add_bits($bitstr, 2000);
28 "559a512393dd212220ee080730d6f11644ba0222"