Commit | Line | Data |
747da336 |
1 | use strict; |
2 | |
3 | my $MODULE; |
4 | |
5 | BEGIN { |
72aa8e26 |
6 | $MODULE = ($ENV{PERL_CORE} || -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl"; |
747da336 |
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"; |