-use Unicode::UCD;
-
-use strict;
-
BEGIN {
if (ord("A") == 193) {
print "1..0 # Skip: EBCDIC\n";
exit 0;
}
+ chdir 't' if -d 't';
+ @INC = '../lib';
}
+use strict;
+use Unicode::UCD;
use Test;
BEGIN { plan tests => 162 };
$charinfo = charinfo(0xAC00);
ok($charinfo->{code}, 'AC00');
-ok($charinfo->{name}, 'HANGUL SYLLABLE GA');
+ok($charinfo->{name}, 'HANGUL SYLLABLE-AC00');
ok($charinfo->{category}, 'Lo');
ok($charinfo->{combining}, '0');
ok($charinfo->{bidi}, 'L');
-ok($charinfo->{decomposition}, '1100 1161');
+ok($charinfo->{decomposition}, undef);
ok($charinfo->{decimal}, '');
ok($charinfo->{digit}, '');
ok($charinfo->{numeric}, '');
$charinfo = charinfo(0xAE00);
ok($charinfo->{code}, 'AE00');
-ok($charinfo->{name}, 'HANGUL SYLLABLE GEUL');
+ok($charinfo->{name}, 'HANGUL SYLLABLE-AE00');
ok($charinfo->{category}, 'Lo');
ok($charinfo->{combining}, '0');
ok($charinfo->{bidi}, 'L');
-ok($charinfo->{decomposition}, '1100 1173 11AF');
+ok($charinfo->{decomposition}, undef);
ok($charinfo->{decimal}, '');
ok($charinfo->{digit}, '');
ok($charinfo->{numeric}, '');