$| = 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$/;
# ---- Alias extensions
-my $tmpfile = tempfile();
my $alifile = File::Spec->catfile(File::Spec->updir, qw(lib unicore xyzzy_alias.pl));
my $i = 0;
-END { if ($tmpfile) { 1 while unlink $tmpfile; } }
my @prgs;
{ local $/ = undef;
for (@prgs) {
my ($code, $exp) = ((split m/\nEXPECT\n/), '$');
my ($prog, $fil) = ((split m/\nFILE\n/, $code), "");
+ my $tmpfile = tempfile();
open my $tmp, "> $tmpfile" or die "Could not open $tmpfile: $!";
print $tmp $prog, "\n";
close $tmp or die "Could not close $tmpfile: $!";
$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 "not ";
}
print "ok ", ++$i, "\n";
- 1 while unlink $tmpfile;
$fil or next;
1 while unlink $alifile;
}
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";