[p5sagit/p5-mst-13.2.git] / ext / Digest / SHA / t / allfcns.t

use strict;

my $MODULE;

BEGIN {
	$MODULE = ($ENV{PERL_CORE} || -d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl";
	eval "require $MODULE" || die $@;
	$MODULE->import(qw(
		hmac_sha1	hmac_sha1_base64	hmac_sha1_hex
		hmac_sha224	hmac_sha224_base64	hmac_sha224_hex
		hmac_sha256	hmac_sha256_base64	hmac_sha256_hex
		hmac_sha384	hmac_sha384_base64	hmac_sha384_hex
		hmac_sha512	hmac_sha512_base64	hmac_sha512_hex
		sha1		sha1_base64		sha1_hex
		sha224		sha224_base64		sha224_hex
		sha256		sha256_base64		sha256_hex
		sha384		sha384_base64		sha384_hex
		sha512		sha512_base64		sha512_hex));
}

BEGIN {
	if ($ENV{PERL_CORE}) {
		chdir 't' if -d 't';
		@INC = '../lib';
	}
}

print "1..1\n";

print "ok 1\n";
Commit	Line	Data
747da336	1	use strict;
	2
	3	my $MODULE;
	4
	5	BEGIN {
4eb6bdb8	6	$MODULE = ($ENV{PERL_CORE} \|\| -d "src") ? "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";