-use Unicode::UCD;
+BEGIN {
+ if (ord("A") == 193) {
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
+ }
+ chdir 't' if -d 't';
+ @INC = '../lib';
+ @INC = "::lib" if $^O eq 'MacOS'; # module parses @INC itself
+}
-use Test;
use strict;
+use Unicode::UCD;
+use Test::More;
-BEGIN { plan tests => 111 };
+BEGIN { plan tests => 162 };
use Unicode::UCD 'charinfo';
$charinfo = charinfo(0x41);
-ok($charinfo->{code}, '0041');
-ok($charinfo->{name}, 'LATIN CAPITAL LETTER A');
-ok($charinfo->{category}, 'Lu');
-ok($charinfo->{combining}, '0');
-ok($charinfo->{bidi}, 'L');
-ok($charinfo->{decomposition}, '');
-ok($charinfo->{decimal}, '');
-ok($charinfo->{digit}, '');
-ok($charinfo->{numeric}, '');
-ok($charinfo->{mirrored}, 'N');
-ok($charinfo->{unicode10}, '');
-ok($charinfo->{comment}, '');
-ok($charinfo->{upper}, '');
-ok($charinfo->{lower}, '0061');
-ok($charinfo->{title}, '');
-ok($charinfo->{block}, 'Basic Latin');
-ok($charinfo->{script}, 'Latin');
+is($charinfo->{code}, '0041', 'LATIN CAPITAL LETTER A');
+is($charinfo->{name}, 'LATIN CAPITAL LETTER A');
+is($charinfo->{category}, 'Lu');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'L');
+is($charinfo->{decomposition}, '');
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, '');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '0061');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Basic Latin');
+is($charinfo->{script}, 'Latin');
$charinfo = charinfo(0x100);
-ok($charinfo->{code}, '0100');
-ok($charinfo->{name}, 'LATIN CAPITAL LETTER A WITH MACRON');
-ok($charinfo->{category}, 'Lu');
-ok($charinfo->{combining}, '0');
-ok($charinfo->{bidi}, 'L');
-ok($charinfo->{decomposition}, '0041 0304');
-ok($charinfo->{decimal}, '');
-ok($charinfo->{digit}, '');
-ok($charinfo->{numeric}, '');
-ok($charinfo->{mirrored}, 'N');
-ok($charinfo->{unicode10}, 'LATIN CAPITAL LETTER A MACRON');
-ok($charinfo->{comment}, '');
-ok($charinfo->{upper}, '');
-ok($charinfo->{lower}, '0101');
-ok($charinfo->{title}, '');
-ok($charinfo->{block}, 'Latin Extended-A');
-ok($charinfo->{script}, 'Latin');
+is($charinfo->{code}, '0100', 'LATIN CAPITAL LETTER A WITH MACRON');
+is($charinfo->{name}, 'LATIN CAPITAL LETTER A WITH MACRON');
+is($charinfo->{category}, 'Lu');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'L');
+is($charinfo->{decomposition}, '0041 0304');
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, 'LATIN CAPITAL LETTER A MACRON');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '0101');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Latin Extended-A');
+is($charinfo->{script}, 'Latin');
# 0x0590 is in the Hebrew block but unused.
$charinfo = charinfo(0x590);
-ok($charinfo->{code}, undef);
-ok($charinfo->{name}, undef);
-ok($charinfo->{category}, undef);
-ok($charinfo->{combining}, undef);
-ok($charinfo->{bidi}, undef);
-ok($charinfo->{decomposition}, undef);
-ok($charinfo->{decimal}, undef);
-ok($charinfo->{digit}, undef);
-ok($charinfo->{numeric}, undef);
-ok($charinfo->{mirrored}, undef);
-ok($charinfo->{unicode10}, undef);
-ok($charinfo->{comment}, undef);
-ok($charinfo->{upper}, undef);
-ok($charinfo->{lower}, undef);
-ok($charinfo->{title}, undef);
-ok($charinfo->{block}, undef);
-ok($charinfo->{script}, undef);
+is($charinfo->{code}, undef, '0x0590 - unused Hebrew');
+is($charinfo->{name}, undef);
+is($charinfo->{category}, undef);
+is($charinfo->{combining}, undef);
+is($charinfo->{bidi}, undef);
+is($charinfo->{decomposition}, undef);
+is($charinfo->{decimal}, undef);
+is($charinfo->{digit}, undef);
+is($charinfo->{numeric}, undef);
+is($charinfo->{mirrored}, undef);
+is($charinfo->{unicode10}, undef);
+is($charinfo->{comment}, undef);
+is($charinfo->{upper}, undef);
+is($charinfo->{lower}, undef);
+is($charinfo->{title}, undef);
+is($charinfo->{block}, undef);
+is($charinfo->{script}, undef);
# 0x05d0 is in the Hebrew block and used.
$charinfo = charinfo(0x5d0);
-ok($charinfo->{code}, '05D0');
-ok($charinfo->{name}, 'HEBREW LETTER ALEF');
-ok($charinfo->{category}, 'Lo');
-ok($charinfo->{combining}, '0');
-ok($charinfo->{bidi}, 'R');
-ok($charinfo->{decomposition}, '');
-ok($charinfo->{decimal}, '');
-ok($charinfo->{digit}, '');
-ok($charinfo->{numeric}, '');
-ok($charinfo->{mirrored}, 'N');
-ok($charinfo->{unicode10}, '');
-ok($charinfo->{comment}, '');
-ok($charinfo->{upper}, '');
-ok($charinfo->{lower}, '');
-ok($charinfo->{title}, '');
-ok($charinfo->{block}, 'Hebrew');
-ok($charinfo->{script}, 'Hebrew');
+is($charinfo->{code}, '05D0', '05D0 - used Hebrew');
+is($charinfo->{name}, 'HEBREW LETTER ALEF');
+is($charinfo->{category}, 'Lo');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'R');
+is($charinfo->{decomposition}, '');
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, '');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Hebrew');
+is($charinfo->{script}, 'Hebrew');
+
+# An open syllable in Hangul.
+
+$charinfo = charinfo(0xAC00);
+
+is($charinfo->{code}, 'AC00', 'HANGUL SYLLABLE-AC00');
+is($charinfo->{name}, 'HANGUL SYLLABLE-AC00');
+is($charinfo->{category}, 'Lo');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'L');
+is($charinfo->{decomposition}, undef);
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, '');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Hangul Syllables');
+is($charinfo->{script}, 'Hangul');
+
+# A closed syllable in Hangul.
+
+$charinfo = charinfo(0xAE00);
+
+is($charinfo->{code}, 'AE00', 'HANGUL SYLLABLE-AE00');
+is($charinfo->{name}, 'HANGUL SYLLABLE-AE00');
+is($charinfo->{category}, 'Lo');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'L');
+is($charinfo->{decomposition}, undef);
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, '');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Hangul Syllables');
+is($charinfo->{script}, 'Hangul');
+
+$charinfo = charinfo(0x1D400);
+
+is($charinfo->{code}, '1D400', 'MATHEMATICAL BOLD CAPITAL A');
+is($charinfo->{name}, 'MATHEMATICAL BOLD CAPITAL A');
+is($charinfo->{category}, 'Lu');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'L');
+is($charinfo->{decomposition}, '<font> 0041');
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, '');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Mathematical Alphanumeric Symbols');
+is($charinfo->{script}, undef);
use Unicode::UCD qw(charblock charscript);
# 0x0590 is in the Hebrew block but unused.
-ok(charblock(0x590), 'Hebrew');
-ok(charscript(0x590), undef);
+is(charblock(0x590), 'Hebrew', '0x0590 - Hebrew unused charblock');
+is(charscript(0x590), undef, '0x0590 - Hebrew unused charscript');
$charinfo = charinfo(0xbe);
-ok($charinfo->{code}, '00BE');
-ok($charinfo->{name}, 'VULGAR FRACTION THREE QUARTERS');
-ok($charinfo->{category}, 'No');
-ok($charinfo->{combining}, '0');
-ok($charinfo->{bidi}, 'ON');
-ok($charinfo->{decomposition}, '<fraction> 0033 2044 0034');
-ok($charinfo->{decimal}, '');
-ok($charinfo->{digit}, '');
-ok($charinfo->{numeric}, '3/4');
-ok($charinfo->{mirrored}, 'N');
-ok($charinfo->{unicode10}, 'FRACTION THREE QUARTERS');
-ok($charinfo->{comment}, '');
-ok($charinfo->{upper}, '');
-ok($charinfo->{lower}, '');
-ok($charinfo->{title}, '');
-ok($charinfo->{block}, 'Latin-1 Supplement');
-ok($charinfo->{script}, undef);
+is($charinfo->{code}, '00BE', 'VULGAR FRACTION THREE QUARTERS');
+is($charinfo->{name}, 'VULGAR FRACTION THREE QUARTERS');
+is($charinfo->{category}, 'No');
+is($charinfo->{combining}, '0');
+is($charinfo->{bidi}, 'ON');
+is($charinfo->{decomposition}, '<fraction> 0033 2044 0034');
+is($charinfo->{decimal}, '');
+is($charinfo->{digit}, '');
+is($charinfo->{numeric}, '3/4');
+is($charinfo->{mirrored}, 'N');
+is($charinfo->{unicode10}, 'FRACTION THREE QUARTERS');
+is($charinfo->{comment}, '');
+is($charinfo->{upper}, '');
+is($charinfo->{lower}, '');
+is($charinfo->{title}, '');
+is($charinfo->{block}, 'Latin-1 Supplement');
+is($charinfo->{script}, undef);
use Unicode::UCD qw(charblocks charscripts);
my $charblocks = charblocks();
-ok(exists $charblocks->{Thai});
-ok($charblocks->{Thai}->[0]->[0], hex('0e00'));
-ok(!exists $charblocks->{PigLatin});
+ok(exists $charblocks->{Thai}, 'Thai charblock exists');
+is($charblocks->{Thai}->[0]->[0], hex('0e00'));
+ok(!exists $charblocks->{PigLatin}, 'PigLatin charblock does not exist');
my $charscripts = charscripts();
-ok(exists $charscripts->{Armenian});
-ok($charscripts->{Armenian}->[0]->[0], hex('0531'));
-ok(!exists $charscripts->{PigLatin});
+ok(exists $charscripts->{Armenian}, 'Armenian charscript exists');
+is($charscripts->{Armenian}->[0]->[0], hex('0531'));
+ok(!exists $charscripts->{PigLatin}, 'PigLatin charscript does not exist');
my $charscript;
$charscript = charscript("12ab");
-ok($charscript, 'Ethiopic');
+is($charscript, 'Ethiopic', 'Ethiopic charscript');
$charscript = charscript("0x12ab");
-ok($charscript, 'Ethiopic');
+is($charscript, 'Ethiopic');
$charscript = charscript("U+12ab");
-ok($charscript, 'Ethiopic');
+is($charscript, 'Ethiopic');
my $ranges;
$ranges = charscript('Ogham');
-ok($ranges->[0]->[0], hex('1681'));
-ok($ranges->[0]->[1], hex('169a'));
+is($ranges->[0]->[0], hex('1681'), 'Ogham charscript');
+is($ranges->[0]->[1], hex('169a'));
use Unicode::UCD qw(charinrange);
$ranges = charscript('Cherokee');
-ok(!charinrange($ranges, "139f"));
+ok(!charinrange($ranges, "139f"), 'Cherokee charscript');
ok( charinrange($ranges, "13a0"));
ok( charinrange($ranges, "13f4"));
ok(!charinrange($ranges, "13f5"));
-ok(Unicode::UCD::UnicodeVersion, 3.1);
+is(Unicode::UCD::UnicodeVersion, '3.2.0', 'UnicodeVersion');
use Unicode::UCD qw(compexcl);
-ok(!compexcl(0x0100));
+ok(!compexcl(0x0100), 'compexcl');
ok( compexcl(0x0958));
use Unicode::UCD qw(casefold);
ok($casefold->{code} eq '0041' &&
$casefold->{status} eq 'C' &&
- $casefold->{mapping} eq '0061');
+ $casefold->{mapping} eq '0061', 'casefold 0x41');
$casefold = casefold(0xdf);
ok($casefold->{code} eq '00DF' &&
$casefold->{status} eq 'F' &&
- $casefold->{mapping} eq '0073 0073');
+ $casefold->{mapping} eq '0073 0073', 'casefold 0xDF');
ok(!casefold(0x20));
$casespec->{lower} eq '00DF' &&
$casespec->{title} eq '0053 0073' &&
$casespec->{upper} eq '0053 0053' &&
- $casespec->{condition} eq undef);
+ $casespec->{condition} eq undef, 'casespec 0xDF');
$casespec = casespec(0x307);
-ok($casespec->{code} eq '0307' &&
- $casespec->{lower} eq '0307' &&
- $casespec->{title} eq '' &&
- $casespec->{upper} eq '' &&
- $casespec->{condition} eq 'lt AFTER_i');
+ok($casespec->{az}->{code} eq '0307' &&
+ $casespec->{az}->{lower} eq '' &&
+ $casespec->{az}->{title} eq '0307' &&
+ $casespec->{az}->{upper} eq '0307' &&
+ $casespec->{az}->{condition} eq 'az After_Soft_Dotted',
+ 'casespec 0x307');
projects / p5sagit/p5-mst-13.2.git / blobdiff