diff options
author | Karl Williamson <khw@cpan.org> | 2022-07-10 10:04:24 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-12-07 09:16:58 -0700 |
commit | f0cb6a0886fcc9d9d34b3d80ffb90829db33e738 (patch) | |
tree | b159634a6536db8043854a91fdf37c1e6dde54cc | |
parent | cab1ec86bbc54180477dbe7331aad4ce01355b9e (diff) | |
download | perl-f0cb6a0886fcc9d9d34b3d80ffb90829db33e738.tar.gz |
APItest: Generalize hop test for EBCDIC
And stop skipping it
-rw-r--r-- | ext/XS-APItest/t/utf8.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ext/XS-APItest/t/utf8.t b/ext/XS-APItest/t/utf8.t index a80c344d85..a05194cfcc 100644 --- a/ext/XS-APItest/t/utf8.t +++ b/ext/XS-APItest/t/utf8.t @@ -1183,10 +1183,9 @@ for my $restriction (sort keys %restriction_types) { SKIP: { - isASCII - or skip "These tests probably break on non-ASCII", 1; my $simple = join "", "A" .. "J"; - my $utf_ch = "\x{7fffffff}"; + my $utf_ch = "\x{3f_ffff}"; # Highest code point that is same number + # of bytes on ASCII and EBCDIC: 5 utf8::encode($utf_ch); my $utf_ch_len = length $utf_ch; note "utf_ch_len $utf_ch_len"; |