3 # These tests are in a separate file, because they use fresh_perl_is()
6 # The mb* functions use the "underlying locale" that is not affected by
7 # the Perl one. So we run the tests in a separate "fresh_perl" process
8 # with the correct LC_CTYPE set in the environment.
11 require Config; import Config;
12 if ($^O ne 'VMS' and $Config{'extensions'} !~ /\bPOSIX\b/) {
16 unshift @INC, "../../t";
17 require 'loc_tools.pl';
18 require 'charset_tools.pl';
27 skip("mblen() not present", 3) unless $Config{d_mblen};
29 is(&POSIX::mblen("a", &POSIX::MB_CUR_MAX), 1, 'mblen() basically works');
31 skip("LC_CTYPE locale support not available", 2)
32 unless locales_enabled('LC_CTYPE');
34 my $utf8_locale = find_utf8_ctype_locale();
35 skip("no utf8 locale available", 2) unless $utf8_locale;
37 local $ENV{LC_CTYPE} = $utf8_locale;
42 'use POSIX; print &POSIX::mblen("'
43 . I8_to_native("\x{c3}\x{28}")
44 . '", &POSIX::MB_CUR_MAX)',
45 -1, {}, 'mblen() recognizes invalid multibyte characters');
48 'use POSIX; print &POSIX::mblen("\N{GREEK SMALL LETTER SIGMA}", &POSIX::MB_CUR_MAX)',
49 2, {}, 'mblen() works on UTF-8 characters');