From ac542e2e999e665ec99938e798b805dbbdf07ee7 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 3 Apr 2019 12:14:19 -0600 Subject: [PATCH] ext/POSIX/t/mb.t: Generalize for EBCDIC --- ext/POSIX/t/mb.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ext/POSIX/t/mb.t b/ext/POSIX/t/mb.t index 961edf6..785400a 100644 --- a/ext/POSIX/t/mb.t +++ b/ext/POSIX/t/mb.t @@ -15,6 +15,7 @@ BEGIN { } unshift @INC, "../../t"; require 'loc_tools.pl'; + require 'charset_tools.pl'; require 'test.pl'; } @@ -38,7 +39,9 @@ SKIP: { delete $ENV{LC_ALL}; fresh_perl_is( - 'use POSIX; print &POSIX::mblen("\x{c3}\x{28}", &POSIX::MB_CUR_MAX)', + 'use POSIX; print &POSIX::mblen("' + . I8_to_native("\x{c3}\x{28}") + . '", &POSIX::MB_CUR_MAX)', -1, {}, 'mblen() recognizes invalid multibyte characters'); fresh_perl_is( -- 1.8.3.1