ext/Digest/SHA/t/4-bitstr-increasing.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

use Test;
use strict;
use integer;
use Digest::SHA;

BEGIN {
        if ($ENV{PERL_CORE}) {
                chdir 't' if -d 't';
                @INC = '../lib';
        }
}

BEGIN { plan tests => 1 }

my $i;
my $bitstr = pack("B*", "1" x 3999);
my $state = Digest::SHA->new("sHa1");

# Note that (1 + 2 + ... + 3999) + 2000 = 8000000

for ($i = 0; $i <= 3999; $i++) {
	$state->add_bits($bitstr, $i);
}
$state->add_bits($bitstr, 2000);

ok(
	$state->hexdigest,
	"559a512393dd212220ee080730d6f11644ba0222"
);