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