Blame t/unicode.t

Packit fa4fcc
use strict;
Packit fa4fcc
use Digest::SHA qw(sha1_hex);
Packit fa4fcc
Packit fa4fcc
my $skip = $] < 5.006 ? 1 : 0;
Packit fa4fcc
Packit fa4fcc
my $TEMPLATE = $] >= 5.006 ? 'U*' : 'C*';
Packit fa4fcc
my $empty_unicode = pack($TEMPLATE, ());
Packit fa4fcc
my $ok_unicode    = pack($TEMPLATE, (0..255));
Packit fa4fcc
my $wide_unicode  = pack($TEMPLATE, (0..256));
Packit fa4fcc
Packit fa4fcc
print "1..3\n";
Packit fa4fcc
Packit fa4fcc
unless ($skip) {
Packit fa4fcc
	print "not " unless sha1_hex($empty_unicode."abc") eq
Packit fa4fcc
		"a9993e364706816aba3e25717850c26c9cd0d89d";
Packit fa4fcc
}
Packit fa4fcc
print "ok 1", $skip ? " # skip: no Unicode" : "", "\n";
Packit fa4fcc
Packit fa4fcc
unless ($skip) {
Packit fa4fcc
	print "not " unless sha1_hex($ok_unicode) eq
Packit fa4fcc
		"4916d6bdb7f78e6803698cab32d1586ea457dfc8";
Packit fa4fcc
}
Packit fa4fcc
print "ok 2", $skip ? " # skip: no Unicode" : "", "\n";
Packit fa4fcc
Packit fa4fcc
unless ($skip) {
Packit fa4fcc
	eval { sha1_hex($wide_unicode) };
Packit fa4fcc
	print "not " unless $@ =~ /Wide character/;
Packit fa4fcc
}
Packit fa4fcc
print "ok 3", $skip ? " # skip: no Unicode" : "", "\n";