This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "ext/POSIX/t/mb.t: Add test for MB_CUR_MAX"
authorJames E Keenan <jkeenan@cpan.org>
Fri, 12 Apr 2019 12:10:46 +0000 (12:10 +0000)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 12 Apr 2019 12:10:46 +0000 (12:10 +0000)
This reverts commit 858fc58a344c7550c68495d7fe648b39a1a50c0c.

The unit test introduced by the commit fails on many operating systems.

Signed-off-by: James E Keenan <jkeenan@cpan.org>
ext/POSIX/t/mb.t

index a51e4b3..32f7f95 100644 (file)
@@ -19,27 +19,25 @@ BEGIN {
     require 'test.pl';
 }
 
-plan tests => 4;
+plan tests => 3;
 
 use POSIX qw();
 
 SKIP: {
-    skip("mblen() not present", 4) unless $Config{d_mblen};
+    skip("mblen() not present", 3) unless $Config{d_mblen};
 
     is(&POSIX::mblen("a", &POSIX::MB_CUR_MAX), 1, 'mblen() basically works');
 
-    skip("LC_CTYPE locale support not available", 3)
+    skip("LC_CTYPE locale support not available", 2)
       unless locales_enabled('LC_CTYPE');
 
     my $utf8_locale = find_utf8_ctype_locale();
-    skip("no utf8 locale available", 3) unless $utf8_locale;
+    skip("no utf8 locale available", 2) unless $utf8_locale;
 
     local $ENV{LC_CTYPE} = $utf8_locale;
     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_is(
         'use POSIX; print &POSIX::mblen("'
       . I8_to_native("\x{c3}\x{28}")