This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/tr_latin1.t: Skip ASCII-centric tests on EBCDIC
[perl5.git] / t / op / tr_latin1.t
CommitLineData
3fdfceb3
KW
1# Tests for tr, but the test file is not utf8.
2
3BEGIN {
4 chdir 't' if -d 't';
5 require './test.pl';
24bd13ab 6 skip_all('ASCII sensitive') if $::IS_EBCDIC;
3fdfceb3
KW
7 set_up_inc('../lib');
8}
9
10plan tests => 1;
11
12{ # This test is malloc senstive. Right now on some platforms anyway, space
13 # for the final \xff needs to be mallocd, and that's what caused the
14 # problem, because the '-' had already been parsed and was later added
15 # without making space for it
16 fresh_perl_is('print "\x8c" =~ y o\x{100}Ä\8cÿÿ\80\80-ÿoo', "1", { },
17 'RT #134067 heap-buffer-overflow in S_scan_const');
18
19}
20
211;