ext/Digest-SHA/t/allfcns.t

   1 use strict;
   2
   3 my $MODULE;
   4
   5 BEGIN {
   6         $MODULE = ($ENV{PERL_CORE} || -d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl";
   7         eval "require $MODULE" || die $@;
   8         $MODULE->import(qw(
   9                 hmac_sha1       hmac_sha1_base64        hmac_sha1_hex
  10                 hmac_sha224     hmac_sha224_base64      hmac_sha224_hex
  11                 hmac_sha256     hmac_sha256_base64      hmac_sha256_hex
  12                 hmac_sha384     hmac_sha384_base64      hmac_sha384_hex
  13                 hmac_sha512     hmac_sha512_base64      hmac_sha512_hex
  14                 sha1            sha1_base64             sha1_hex
  15                 sha224          sha224_base64           sha224_hex
  16                 sha256          sha256_base64           sha256_hex
  17                 sha384          sha384_base64           sha384_hex
  18                 sha512          sha512_base64           sha512_hex));
  19 }
  20
  21 BEGIN {
  22         if ($ENV{PERL_CORE}) {
  23                 chdir 't' if -d 't';
  24                 @INC = '../lib';
  25         }
  26 }
  27
  28 print "1..1\n";
  29
  30 print "ok 1\n";