50 lines
1.2 KiB
Perl
50 lines
1.2 KiB
Perl
print "1..13\n";
|
|
|
|
use Unicode::CharName qw(ublock uname);
|
|
|
|
#print uname(ord("å")), "\n";
|
|
#print ublock(ord("å")), "\n";
|
|
|
|
# Test a few simple names
|
|
print "not " unless uname(ord("\$")) eq "DOLLAR SIGN";
|
|
print "ok 1\n";
|
|
|
|
print "not " unless uname(ord("å")) eq "LATIN SMALL LETTER A WITH RING ABOVE";
|
|
print "ok 2\n";
|
|
|
|
# Test ideograph name generation
|
|
print "not " unless uname(0x7C80) eq "CJK UNIFIED IDEOGRAPH 7C80";
|
|
print "ok 3\n";
|
|
|
|
# Test Hangul Syllable name generation
|
|
print "not " unless uname(0x1111) eq "HANGUL CHOSEONG PHIEUPH";
|
|
print "ok 4\n";
|
|
|
|
print "not " unless uname(0xD4DB) eq "HANGUL SYLLABLE PWILH";
|
|
print "ok 5\n";
|
|
|
|
# Some various stuff
|
|
print "not " unless uname(0xF000) eq "<private>";
|
|
print "ok 6\n";
|
|
print "not " unless uname(0) eq "<control>";
|
|
print "ok 7\n";
|
|
print "not " unless uname(0xD800) eq "<surrogate>";
|
|
print "ok 8\n";
|
|
|
|
# Test ublock function
|
|
|
|
print "not " unless ublock(ord("a")) eq "Basic Latin";
|
|
print "ok 9\n";
|
|
|
|
print "not " unless ublock(0x2190) eq "Arrows" and ublock(0x21FF) eq "Arrows";
|
|
print "ok 10\n";
|
|
|
|
print "not " unless ublock(0xFFFF) eq "Specials";
|
|
print "ok 11\n";
|
|
|
|
print "not " if defined ublock(0x30000);
|
|
print "ok 12\n";
|
|
|
|
print "not " unless uname(0x1d1cf) eq "MUSICAL SYMBOL CROIX";
|
|
print "ok 13\n";
|