cpan/Digest-SHA/t/sha224.t

   1 BEGIN {
   2         if ($ENV{PERL_CORE}) {
   3                 chdir 't' if -d 't';
   4                 @INC = '../lib';
   5         }
   6 }
   7
   8 use strict;
   9 use Digest::SHA qw(sha224_hex);
  10
  11 my @vecs = map { eval } <DATA>;
  12
  13 my $numtests = scalar(@vecs) / 2;
  14 print "1..$numtests\n";
  15
  16 for (1 .. $numtests) {
  17         my $data = shift @vecs;
  18         my $digest = shift @vecs;
  19         print "not " unless sha224_hex($data) eq $digest;
  20         print "ok ", $_, "\n";
  21 }
  22
  23 __DATA__
  24 "abc"
  25 "23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7"
  26 "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"
  27 "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525"
  28 "a" x 1000000
  29 "20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67"