Add .t to test Turkic locale folding
authorKarl Williamson <khw@cpan.org>
Mon, 4 Feb 2019 22:29:55 +0000 (15:29 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 5 Feb 2019 18:44:29 +0000 (11:44 -0700)
This just calls fold_grind.pl with a particular option.

But, as of this commit, Turkish locales aren't recognized specially, so
this test just always skips.

MANIFEST
t/re/fold_grind_T.t [new file with mode: 0644]

index c954476..793cdb4 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -5870,6 +5870,7 @@ t/re/fold_grind_a.t               Wrapper for fold_grind.pl for /a testing
 t/re/fold_grind_aa.t           Wrapper for fold_grind.pl for /aa testing
 t/re/fold_grind_d.t            Wrapper for fold_grind.pl for /d testing
 t/re/fold_grind_l.t            Wrapper for fold_grind.pl for /l testing with a C locale
+t/re/fold_grind_T.t            Wrapper for fold_grind.pl for /l testing with a Turkic locale
 t/re/fold_grind_u.t            Wrapper for fold_grind.pl for /u testing
 t/re/keep_tabs.t               Tests where \t can't be expanded.
 t/re/no_utf8_pm.t              Verify utf8.pm doesn't get loaded unless required
diff --git a/t/re/fold_grind_T.t b/t/re/fold_grind_T.t
new file mode 100644 (file)
index 0000000..8b026cd
--- /dev/null
@@ -0,0 +1,35 @@
+#!./perl
+
+# Call fold_grind with /l and a UTF-8 Turkic locale
+
+use strict;
+use warnings;
+no warnings 'once';
+
+BEGIN {
+    chdir 't' if -d 't';
+    require './test.pl';
+    require './loc_tools.pl';
+    set_up_inc('../lib');
+}
+
+skip_all "No locales" unless locales_enabled('LC_CTYPE');
+
+my $turkic_locale = find_utf8_turkic_locale();
+skip_all "Couldn't find a UTF-8 turkic locale" unless defined $turkic_locale;
+
+my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, $turkic_locale) // "";
+skip_all "Couldn't set locale to $turkic_locale"
+                                        unless $current_locale eq $turkic_locale;
+
+$::TEST_CHUNK = 'T';
+
+do './re/fold_grind.pl';
+print STDERR "$@\n" if $@;
+print STDERR "$!\n" if $!;
+
+1;
+
+#
+# ex: set ts=8 sts=4 sw=4 et:
+#