This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reinstate and fix failing POSIX mb.t test
[perl5.git] / ext / POSIX / t / mb.t
index a51e4b3..25bffe1 100644 (file)
@@ -38,7 +38,9 @@ SKIP: {
     local $ENV{LC_ALL};
     delete $ENV{LC_ALL};
 
-    ok &POSIX::MB_CUR_MAX >= 4, 'MB_CUR_MAX is at least 4 in a UTF-8 locale';
+    fresh_perl_like(
+        'use POSIX; print &POSIX::MB_CUR_MAX',
+      qr/[4-6]/, {}, 'MB_CUR_MAX is at least 4 in a UTF-8 locale');
 
     fresh_perl_is(
         'use POSIX; print &POSIX::mblen("'