[perl5.git] / t / re / fold_grind_8.t

#!./perl

# Call fold_grind with /l and a UTF-8 locale

use strict;
use warnings;
no warnings 'once';

BEGIN {
    chdir 't' if -d 't';
    require './test.pl';
    set_up_inc('../lib');
    require './loc_tools.pl';
}

skip_all "No locales" unless locales_enabled('LC_CTYPE');

# Look for a utf8 locale.
my $utf8_locale = find_utf8_ctype_locale();
skip_all "Couldn't find a UTF-8 locale" unless defined $utf8_locale;

my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, $utf8_locale) // "";
skip_all "Couldn't set locale to $utf8_locale"
                                        unless $current_locale eq $utf8_locale;

$::TEST_CHUNK = 'L';

do './re/fold_grind.pl';
print STDERR "$@\n" if $@;
print STDERR "$!\n" if $!;

1;

#
# ex: set ts=8 sts=4 sw=4 et:
#
Commit	Line	Data
55e8b15f KW	1	#!./perl
	2
	3	# Call fold_grind with /l and a UTF-8 locale
	4
	5	use strict;
	6	use warnings;
	7	no warnings 'once';
	8
	9	BEGIN {
	10	chdir 't' if -d 't';
	11	require './test.pl';
55e8b15f	12	set_up_inc('../lib');
8c892c9b	13	require './loc_tools.pl';
55e8b15f KW	14	}
	15
	16	skip_all "No locales" unless locales_enabled('LC_CTYPE');
	17
	18	# Look for a utf8 locale.
	19	my $utf8_locale = find_utf8_ctype_locale();
	20	skip_all "Couldn't find a UTF-8 locale" unless defined $utf8_locale;
	21
	22	my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, $utf8_locale) // "";
	23	skip_all "Couldn't set locale to $utf8_locale"
	24	unless $current_locale eq $utf8_locale;
	25
	26	$::TEST_CHUNK = 'L';
	27
	28	do './re/fold_grind.pl';
	29	print STDERR "$@\n" if $@;
	30	print STDERR "$!\n" if $!;
	31
	32	1;
	33
	34	#
	35	# ex: set ts=8 sts=4 sw=4 et:
	36	#