1use strict; 2use Digest::SHA qw(sha1_hex); 3 4my @vecs = map { eval } <DATA>; 5 6my $numtests = scalar(@vecs) / 2; 7print "1..$numtests\n"; 8 9for (1 .. $numtests) { 10 my $data = shift @vecs; 11 my $digest = shift @vecs; 12 print "not " unless sha1_hex($data) eq $digest; 13 print "ok ", $_, "\n"; 14} 15 16__DATA__ 17"abc" 18"a9993e364706816aba3e25717850c26c9cd0d89d" 19"abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq" 20"84983e441c3bd26ebaae4aa1f95129e5e54670f1" 21"a" x 1000000 22"34aa973cd4c4daa4f61eeb2bdbad27316534016f" 23