1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use Digest::SHA3 qw(sha3_224_hex);
# ref. http://www.di-mgt.com.au/sha_testvectors.html
my @vecs = map { eval } <DATA>;
my $numtests = scalar(@vecs) / 2;
print "1..$numtests\n";
for (1 .. $numtests) {
my $data = shift @vecs;
my $digest = shift @vecs;
print "not " unless sha3_224_hex($data) eq $digest;
print "ok ", $_, "\n";
}
__DATA__
"abc"
"e642824c3f8cf24ad09234ee7d3c766fc9a3a5168d0c94ad73b46fdf"
"abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"
"8a24108b154ada21c9fd5574494479ba5c7e7ab76ef264ead0fcce33"
"a" x 1000000
"d69335b93325192e516a912e6d19a15cb51c6ed5c15243e7a7fd653c"
|
