charnames.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
my @WARN;
BEGIN {
chdir 't' if -d 't';
}
}
$| = 1;
print "1..73\n";
print "ok 1\n";
{
use bytes; # TEST -utf8 can switch utf8 on
print "# \$res=$res \$\@='$@'\nnot "
if $res = eval <<'EOE'
"Here: \N{CYRILLIC SMALL LETTER BE}!";
1
print "ok 2\n";
# print "# \$res=$res \$\@='$@'\n";
print "# \$res=$res \$\@='$@'\nnot "
if $res = eval <<'EOE'
"Here: \N{Be}!";
1
print "ok 3\n";
}
# If octal representation of unicode char is \0xyzt, then the utf8 is \3xy\2zt
}
else { # EBCDIC where UTF-EBCDIC may be used (this may be 1047 specific since
# UTF-EBCDIC is codepage specific)
}
sub to_bytes {
}
{
print "ok 4\n";
print "ok 5\n";
}
{
print "ok 6\n";
print "ok 7\n";
print "ok 8\n";
print "ok 9\n";
print "ok 10\n";
print "ok 11\n";
print "ok 12\n";
}
{
use utf8;
my $x = "\x{221b}";
print "ok 13\n";
}
{
use utf8;
print "ok 14\n";
}
{
print "not "
print "ok 15\n";
}
{
# 20001114.001
print "ok 16\n";
} else {
print "ok 16 # Skip: not Latin-1\n";
}
}
{
print "ok 17\n";
# Unused Hebrew.
print "ok 18\n";
}
{
print "ok 19\n";
print "not " if
print "ok 20\n";
}
{
# check that caching at least hasn't broken anything
print "ok 21\n";
print "ok 22\n";
}
print "ok 23\n";
print "ok 24\n";
print "ok 25\n";
{
print "ok 26\n";
print "ok 27\n";
print "ok 28\n";
}
else
{
print "ok 26\n";
print "ok 27\n";
print "ok 28\n";
}
print "ok 29\n";
print "ok 30\n";
print "ok 31\n";
print "ok 32\n";
print "ok 33\n";
{
print "ok 34\n";
print "ok 35\n";
print "ok 36\n";
print "ok 37\n";
}
print "ok 38\n";
{
use warnings;
print "ok 39\n";
}
print "ok 40\n";
print "ok 41\n";
print "ok 42\n";
{
print "ok 43\n";
print "ok 44\n";
}
print "ok 45\n";
print "ok 46\n";
# ---- Alias extensions
my $i = 0;
1 while -e ++$tmpfile;
my @prgs;
{ local $/ = undef;
}
my $i = 46;
}
stderr => 1 );
my $status = $?;
$res =~ s/[\r\n]+$//;
$exp =~ s/[\r\n]+$//;
}
}
print STDERR
print "not ";
}
print "ok ", ++$i, "\n";
}
# unsupported pragma
"Here: \N{e_ACUTE}!\n";
########
# wrong type of alias (missing colon)
"Here: \N{e_ACUTE}!\n";
########
# alias without an argument
"Here: \N{e_ACUTE}!\n";
########
# reversed sequence
"Here: \N{e_ACUTE}!\n";
########
# alias with hashref but no :full
"Here: \N{e_ACUTE}!\n";
########
# alias with hashref but with :short
"Here: \N{e_ACUTE}!\n";
########
# alias with hashref to :full OK
"Here: \N{e_ACUTE}!\n";
$
########
# alias with hashref to :short but using :full
"Here: \N{e_ACUTE}!\n";
########
# alias with hashref to :short OK
"Here: \N{e_ACUTE}!\n";
$
########
# alias with bad hashref
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with arrayref
"Here: \N{e_ACUTE}!\n";
########
# alias with bad hashref
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with hashref two aliases
};
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with hashref two aliases
};
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
$
########
# alias with hashref using mixed aliasses
};
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with hashref using mixed aliasses
};
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with hashref using mixed aliasses
};
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with nonexisting file
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with bad file name
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
Charnames alias files can only have identifier characters at
########
# alias with non_absolute (existing) file name (which it should /not/ use)
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
########
# alias with bad file
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
0;
########
# alias with file with empty list
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
();
########
# alias with file OK but file has :short aliasses
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
);
########
# alias with :short and file OK
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
);
$
########
# alias with :short and file OK has :long aliasses
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
);
########
# alias with file implicit :full but file has :short aliasses
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
);
########
# alias with file implicit :full and file has :long aliasses
"Here: \N{e_ACUTE}\N{a_ACUTE}!\n";
#!perl
);
$