[p5sagit/p5-mst-13.2.git] / ext / Digest / SHA / t / fips198.t

use strict;

my $MODULE;

BEGIN {
	$MODULE = ($ENV{PERL_CORE} || -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl";
	eval "require $MODULE" || die $@;
	$MODULE->import(qw(hmac_sha1_hex));
}

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

my @data = map { "Sample #$_" } (1 .. 4);

my @out = (
	"4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a",
	"0922d3405faa3d194f82a45830737d5cc6c75d24",
	"bcf41eab8bb2d802f3d05caf7cb092ecf8d1a3aa",
	"9ea886efe268dbecce420c7524df32e0751a2a26"
);

my @keys = ("", "", "", "");

for (0x00 .. 0x00+63) { $keys[0] .= chr($_) }
for (0x30 .. 0x30+19) { $keys[1] .= chr($_) }
for (0x50 .. 0x50+99) { $keys[2] .= chr($_) }
for (0x70 .. 0x70+48) { $keys[3] .= chr($_) }

my $numtests = scalar @data;
print "1..$numtests\n";

my $testnum = 1;
while (@data) {
	print "not " unless hmac_sha1_hex(shift @data, shift @keys)
		eq shift @out;
	print "ok ", $testnum++, "\n";
}
Commit	Line	Data
747da336	1	use strict;
	2
	3	my $MODULE;
	4
	5	BEGIN {
72aa8e26	6	$MODULE = ($ENV{PERL_CORE} \|\| -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl";
747da336	7	eval "require $MODULE" \|\| die $@;
	8	$MODULE->import(qw(hmac_sha1_hex));
	9	}
	10
	11	BEGIN {
	12	if ($ENV{PERL_CORE}) {
	13	chdir 't' if -d 't';
	14	@INC = '../lib';
	15	}
	16	}
	17
	18	my @data = map { "Sample #$_" } (1 .. 4);
	19
	20	my @out = (
	21	"4f4ca3d5d68ba7cc0a1208c9c61e9c5da0403c0a",
	22	"0922d3405faa3d194f82a45830737d5cc6c75d24",
	23	"bcf41eab8bb2d802f3d05caf7cb092ecf8d1a3aa",
	24	"9ea886efe268dbecce420c7524df32e0751a2a26"
	25	);
	26
	27	my @keys = ("", "", "", "");
	28
	29	for (0x00 .. 0x00+63) { $keys[0] .= chr($_) }
	30	for (0x30 .. 0x30+19) { $keys[1] .= chr($_) }
	31	for (0x50 .. 0x50+99) { $keys[2] .= chr($_) }
	32	for (0x70 .. 0x70+48) { $keys[3] .= chr($_) }
	33
	34	my $numtests = scalar @data;
	35	print "1..$numtests\n";
	36
	37	my $testnum = 1;
	38	while (@data) {
	39	print "not " unless hmac_sha1_hex(shift @data, shift @keys)
	40	eq shift @out;
	41	print "ok ", $testnum++, "\n";
	42	}