sync blead with Update Archive::Extract 0.34

[p5sagit/p5-mst-13.2.git] / lib / charnames.t

diff --git a/lib/charnames.t b/lib/charnames.t
index 5a6671b..b3e4a46 100644 (file)
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -15,7 +15,7 @@ require File::Spec;
 
 $| = 1;
 
-print "1..78\n";
+print "1..79\n";
 
 use charnames ':full';
 
@@ -356,6 +356,10 @@ if ($@) {
     print "ok 78\n";
 }
 
+# Verify that db includes the normative NameAliases.txt names
+print "not " unless "\N{U+1D0C5}" eq "\N{BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS}";
+print "ok 79\n";
+
 __END__
 # unsupported pragma
 use charnames ":scoobydoo";