diff options
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index d909824327..11fe818de9 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -885,6 +885,16 @@ is("\N{U+1D0C5}", "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}"); $algorithmic_names_count[$block] = 1; } + open $fh, "<", "../../lib/unicore/NameAliases.txt" or + die "Can't open ../../lib/unicore/NameAliases.txt: $!"; + while (<$fh>) { + chomp; + s/^\s*#.*//; + next unless $_; + my ($hex, $name) = split ";"; + is(charnames::vianame($name), hex $hex, "Verify vianame(\"$name\") is 0x$hex"); + } + close $fh; # Now, have all the names populated. Do the tests |