#!./perl
chdir 't' if -d 't';
}
print q(1..21
);
# This is() function is written to avoid ""
return 1;
}
# Comment out these regexps to map non-printables to ord if the perl under
# test is so broken that it's not helping
s/^''\.//;
s/\.''$//;
}
printf q(# Failed test at line %d
return 0;
}
is ("\x4EE", chr (78) . 'E');
is ("\x4i", chr (4) . 'i');
# This will warn is ("\xh", chr (0) . 'h');
# This will warn is ("\xx", chr (0) . 'x');
# This will warn is ("\xx9", chr (0) . 'x9');
# This will warn. \x9 is tab in EBCDIC too? is ("\x9_E", chr (9) . '_E');
# This will warn
is ("\x{9__0}", chr 9);
# multiple underscores not allowed. is ("\x{77_}", chr 119);
# trailing underscore warns. is ("\x{6FQ}z", chr (111) . 'z');
is ("\x{0065}", chr 101);
is ("\x{000000000000000000000000000000000000000000000000000000000000000072}", is ("\x{0_06_5}", chr 101);
is ("\x{1234}", chr 4660);
is ("\x{10FFFD}", chr 1114109);