X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fec13a430c99aa118efdc1daeb473641bc0b25ee..ac542e2e999e665ec99938e798b805dbbdf07ee7:/ext/POSIX/t/mb.t

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(