blob: 874812c1f98978338a1db46beef7e8edfe94dd98 (
plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
use Test;
use strict;
use integer;
use Digest::SHA qw(sha384_hex sha512_hex);
use File::Basename qw(dirname);
use File::Spec;
BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
my(@sharsp);
BEGIN {
@sharsp = (
"34aa973cd4c4daa4f61eeb2bdbad27316534016f",
"cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0",
"9d0e1809716474cb086e834e310a4a1ced149e9c00f248527972cec5704c2a5b07b8b3dc38ecc4ebae97ddd87f3d8985",
"e718483d0ce769644e2e42c7bc15b4638e1f98b13b2044285632a803afa973ebde0ff244877ea60a4cb0432ce577c31beb009c5c2c49aa2e4eadb217ad8cc09b"
);
plan tests => scalar(@sharsp);
}
my @ext = (1, 256, 384, 512);
my $data = "a" x 990000;
my $skip;
my $tmpfile = File::Spec->catfile(dirname($0), "dumpload.tmp");
for (my $i = 0; $i < @sharsp; $i++) {
$skip = 0;
if ($ext[$i] == 384) {
$skip = sha384_hex("") ? 0 : 1;
}
if ($ext[$i] == 512) {
$skip = sha512_hex("") ? 0 : 1;
}
my $digest;
unless ($skip) {
my $state;
my $file = File::Spec->catfile(dirname($0),
"state", "state.$ext[$i]");
unless ($state = Digest::SHA->load($file)) {
$state = Digest::SHA->new($ext[$i]);
$state->add($data);
$state->dump($file);
$state->load($file);
}
$state->add_bits($data, 79984)->dump($tmpfile);
$state->load($tmpfile)->add_bits($data, 16);
unlink($tmpfile);
$digest = $state->hexdigest;
}
skip($skip, $digest, $sharsp[$i]);
}
|
