This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/POSIX/t/mb.t: Generalize for EBCDIC
[perl5.git] / ext / POSIX / t / mb.t
index 961edf6..785400a 100644 (file)
@@ -15,6 +15,7 @@ BEGIN {
     }
     unshift @INC, "../../t";
     require 'loc_tools.pl';
     }
     unshift @INC, "../../t";
     require 'loc_tools.pl';
+    require 'charset_tools.pl';
     require 'test.pl';
 }
 
     require 'test.pl';
 }
 
@@ -38,7 +39,9 @@ SKIP: {
     delete $ENV{LC_ALL};
 
     fresh_perl_is(
     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, {}, 'mblen() recognizes invalid multibyte characters');
 
     fresh_perl_is(