BEGIN {
chdir 't' if -d 't';
- @INC = qw(. ../lib); # ../lib needed for test.deparse
require "./test.pl";
+ set_up_inc(qw(. ../lib)); # ../lib needed for test.deparse
}
plan tests => 45;
# Check UTF-8 (not UTF-EBCDIC).
SKIP: {
- skip "no UTF-8 on EBCDIC", 21 if $::IS_EBCDIC;
+ skip "UTF-8 ASCII centric tests", 21 if $::IS_EBCDIC;
+ # Too hard to convert these tests generically to EBCDIC code pages without
+ # using chr(), which is what we're testing.
sub hexes {
no warnings 'utf8'; # avoid surrogate and beyond Unicode warnings