charnames.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
}
$| = 1;
print "1..15\n";
use charnames ':full';
print "ok 1\n";
{
use bytes; # UTEST 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
$encoded_be = "\320\261";
$encoded_alpha = "\316\261";
$encoded_bet = "\327\221";
$encoded_deseng = "\360\220\221\215";
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";
}
{
# XXX this test breaks in 5.6.x because the Unicode database is missing
# "DESERET SMALL LETTER ENG". Uncomment after updating to Unicode 3.1
# print "not "
# unless to_bytes("\N{DESERET SMALL LETTER ENG}") eq $encoded_deseng;
print "ok 15\n";
}