$| = 1;
-print "1..78\n";
+print "1..79\n";
use charnames ':full';
print "not " unless "\N{NULL}" eq "\c@";
print "ok 25\n";
-if ($^O eq 'MacOS')
-{
- print "not " unless "\N{CARRIAGE RETURN (CR)}" eq "\n";
- print "ok 26\n";
-
- print "not " unless "\N{CARRIAGE RETURN}" eq "\n";
- print "ok 27\n";
-
- print "not " unless "\N{CR}" eq "\n";
- print "ok 28\n";
-}
-else
-{
- print "not " unless "\N{LINE FEED (LF)}" eq "\n";
- print "ok 26\n";
+print "not " unless "\N{LINE FEED (LF)}" eq "\n";
+print "ok 26\n";
- print "not " unless "\N{LINE FEED}" eq "\n";
- print "ok 27\n";
+print "not " unless "\N{LINE FEED}" eq "\n";
+print "ok 27\n";
- print "not " unless "\N{LF}" eq "\n";
- print "ok 28\n";
-}
+print "not " unless "\N{LF}" eq "\n";
+print "ok 28\n";
my $nel = ord("A") == 193 ? qr/^(?:\x15|\x25)$/ : qr/^\x85$/;
$res =~ s/\n%[A-Z]+-[SIWEF]-.*$// # clip off DCL status msg
if $^O eq "VMS";
$exp =~ s/[\r\n]+$//;
- if ($^O eq "MacOS") {
- $exp =~ s{(\./)?abc\.pm}{:abc.pm}g;
- $exp =~ s{./abc} {:abc}g;
- }
my $pfx = ($res =~ s/^PREFIX\n//);
my $rexp = qr{^$exp};
if ($res =~ s/^SKIPPED\n//) {
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";