From 92a56f4b8cc8311af66b29cae4f69855ee059544 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 11 Sep 2010 13:10:37 -0600 Subject: [PATCH] charnames.t: Add tests for NameAliases --- lib/charnames.t | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lib/charnames.t b/lib/charnames.t index d909824..11fe818 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 -- 1.8.3.1