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 require './loc_tools.pl'; 13 set_up_inc('../lib'); 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