diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-06 22:16:56 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 22:09:01 -0700 |
| commit | 26a6507471ec85dcb2e7186a21d6d849b1ea1bb7 (patch) | |
| tree | e3c776874f00c0ab819feabbf220e87771e981af /lib/charnames.t | |
| parent | 1c757d3c33b6ccddf49d99ccb22ccd0029ef7b84 (diff) | |
| download | perl-26a6507471ec85dcb2e7186a21d6d849b1ea1bb7.tar.gz | |
charnames.t: Make sure code point aliasess are right
Some code points have two (possibly more names). This makes sure that
all work.
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index 3775f20978..49442665ef 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -955,7 +955,11 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); next unless $_; my ($hex, $name) = split ";"; my $i = CORE::hex $hex; + + # Make sure that both aliases (the one in UnicodeData, and the one we + # just read) return the same code point. test_vianame($i, $hex, $name); + test_vianame($i, $hex, $names[$i]); } close $fh; |