ext/POSIX/t/mb.t: Generalize for EBCDIC
authorKarl Williamson <khw@cpan.org>
Wed, 3 Apr 2019 18:14:19 +0000 (12:14 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 9 Apr 2019 18:02:19 +0000 (12:02 -0600)
ext/POSIX/t/mb.t

index 961edf6..785400a 100644 (file)
@@ -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(