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