1use strict;
2
3my $MODULE;
4
5BEGIN {
6	$MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl";
7	eval "require $MODULE" || die $@;
8	$MODULE->import(qw(sha1_hex));
9}
10
11BEGIN {
12	if ($ENV{PERL_CORE}) {
13		chdir 't' if -d 't';
14		@INC = '../lib';
15	}
16}
17
18my $skip = $] < 5.006 ? 1 : 0;
19
20my $TEMPLATE = $] >= 5.006 ? 'U*' : 'C*';
21my $empty_unicode = pack($TEMPLATE, ());
22my $ok_unicode    = pack($TEMPLATE, (0..255));
23my $wide_unicode  = pack($TEMPLATE, (0..256));
24
25print "1..3\n";
26
27unless ($skip) {
28	print "not " unless sha1_hex($empty_unicode."abc") eq
29		"a9993e364706816aba3e25717850c26c9cd0d89d";
30}
31print "ok 1", $skip ? " # skip: no Unicode" : "", "\n";
32
33unless ($skip) {
34	print "not " unless sha1_hex($ok_unicode) eq
35		"4916d6bdb7f78e6803698cab32d1586ea457dfc8";
36}
37print "ok 2", $skip ? " # skip: no Unicode" : "", "\n";
38
39unless ($skip) {
40	eval { sha1_hex($wide_unicode) };
41	print "not " unless $@ =~ /Wide character/;
42}
43print "ok 3", $skip ? " # skip: no Unicode" : "", "\n";
44