1#!./perl 2 3# Call fold_grind with /l and a UTF-8 Turkic 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 18my $turkic_locale = find_utf8_turkic_locale(); 19skip_all "Couldn't find a UTF-8 turkic locale" unless defined $turkic_locale; 20 21my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, $turkic_locale) // ""; 22skip_all "Couldn't set locale to $turkic_locale" 23 unless $current_locale eq $turkic_locale; 24 25$::TEST_CHUNK = 'T'; 26 27do './re/fold_grind.pl'; 28print STDERR "$@\n" if $@; 29print STDERR "$!\n" if $!; 30 311; 32 33# 34# ex: set ts=8 sts=4 sw=4 et: 35# 36