4 use Digest::SHA qw(sha1_hex);
18 "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
23 "a9993e364706816aba3e25717850c26c9cd0d89d",
24 "84983e441c3bd26ebaae4aa1f95129e5e54670f1",
25 "34aa973cd4c4daa4f61eeb2bdbad27316534016f"
28 plan tests => scalar(@vec);
31 for (my $i = 0; $i < @vec; $i++) {
32 ok(sha1_hex($vec[$i]), $rsp[$i]);