6 $MODULE = ($ENV{PERL_CORE} || -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl";
7 eval "require $MODULE" || die $@;
8 $MODULE->import(qw(hmac_sha1_hex));
12 if ($ENV{PERL_CORE}) {
18 my @data = map { eval } <DATA>;
20 my $numtests = scalar @data;
21 print "1..$numtests\n";
27 join("", map { chr } (1 .. 25)),
34 "b617318655057264e28bc0b6fb378c8ef146be00",
35 "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79",
36 "125d7342b9ac11cd91a39af48aa17b4f63f175d3",
37 "4c9007f4026250c6bc8414f9bf50c86c2d7235da",
38 "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04",
39 "aa4ae5e15272d00e95705637ce8a3b55ed402112",
40 "e8e99d0f45237d786d6bbaa7965c7808bbff1a91"
45 print "not " unless hmac_sha1_hex(shift @data, shift @keys)
47 print "ok ", $testnum++, "\n";
52 "what do ya want for nothing?"
55 "Test With Truncation"
56 "Test Using Larger Than Block-Size Key - Hash Key First"
57 "Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"