diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-11 13:10:37 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-25 00:47:01 -0700 |
| commit | 92a56f4b8cc8311af66b29cae4f69855ee059544 (patch) | |
| tree | 72bfbc8ee000dde0e928c8ee7c8d6ba4b153b222 | |
| parent | 835df198d2bff566733a20d3ed123d32883ebe29 (diff) | |
| download | perl-92a56f4b8cc8311af66b29cae4f69855ee059544.tar.gz | |
charnames.t: Add tests for NameAliases
| -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 |