1f3efcd01Safresh1#!./perl 2f3efcd01Safresh1 3f3efcd01Safresh1use strict; 4f3efcd01Safresh1use warnings; 5f3efcd01Safresh1no warnings 'once'; 6f3efcd01Safresh1 7f3efcd01Safresh1BEGIN { 8f3efcd01Safresh1 chdir 't' if -d 't'; 9f3efcd01Safresh1 require './test.pl'; 10f3efcd01Safresh1 set_up_inc('../lib'); 11*256a93a4Safresh1 require './loc_tools.pl'; 12f3efcd01Safresh1} 13f3efcd01Safresh1 14f3efcd01Safresh1skip_all "No locales" unless locales_enabled('LC_CTYPE'); 15f3efcd01Safresh1 16f3efcd01Safresh1my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, "C") // ""; 17f3efcd01Safresh1skip_all "Couldn't set locale to C" unless $current_locale eq 'C'; 18f3efcd01Safresh1 19f3efcd01Safresh1use locale; 20f3efcd01Safresh1 21f3efcd01Safresh1# Some implementations don't have the 128-255 range characters all 22f3efcd01Safresh1# mean nothing under the C locale (an example being VMS). This is 23f3efcd01Safresh1# legal, but since we don't know what the right answers should be, 24f3efcd01Safresh1# skip the locale tests in that situation. 25f3efcd01Safresh1for my $i (128 .. 255) { 26f3efcd01Safresh1 my $char = chr(utf8::unicode_to_native($i)); 27f3efcd01Safresh1 skip_all "C locale doesn't behave as expected" if uc($char) ne $char 28f3efcd01Safresh1 || lc($char) ne $char; 29f3efcd01Safresh1} 30f3efcd01Safresh1 31f3efcd01Safresh1$::TEST_CHUNK = 'l'; 32f3efcd01Safresh1 33f3efcd01Safresh1do './re/fold_grind.pl'; 34f3efcd01Safresh1print STDERR "$@\n" if $@; 35f3efcd01Safresh1print STDERR "$!\n" if $!; 36f3efcd01Safresh1 37f3efcd01Safresh11; 38f3efcd01Safresh1 39f3efcd01Safresh1# 40f3efcd01Safresh1# ex: set ts=8 sts=4 sw=4 et: 41f3efcd01Safresh1# 42