$| = 1;
-print "1..78\n";
+print "1..79\n";
use charnames ':full';
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";