t/re/fold_grind_8.t

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