use strict;
use Digest::SHA qw(hmac_sha1_hex);
my @data = map { eval } <DATA>;
my $numtests = scalar @data;
print "1..$numtests\n";
my @keys = (
        chr(0x0b) x 20,
        "Jefe",
        chr(0xaa) x 20,
        join("", map { chr } (1 .. 25)),
        chr(0x0c) x 20,
        chr(0xaa) x 80,
        chr(0xaa) x 80
);
my @out = (
        "b617318655057264e28bc0b6fb378c8ef146be00",
        "effcdf6ae5eb2fa2d27416d5f184df9c259a7c79",
        "125d7342b9ac11cd91a39af48aa17b4f63f175d3",
        "4c9007f4026250c6bc8414f9bf50c86c2d7235da",
        "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04",
        "aa4ae5e15272d00e95705637ce8a3b55ed402112",
        "e8e99d0f45237d786d6bbaa7965c7808bbff1a91"
);
my $testnum = 1;
while (@data) {
        print "not " unless hmac_sha1_hex(shift @data, shift @keys)
                eq shift @out;
        print "ok ", $testnum++, "\n";
}
__DATA__
"Hi There"
"what do ya want for nothing?"
chr(0xdd) x 50
chr(0xcd) x 50
"Test With Truncation"
"Test Using Larger Than Block-Size Key - Hash Key First"
"Test Using Larger Than Block-Size Key and Larger Than One Block-Size Data"