From: Bruno Haible <bruno@clisp.org>
Date: Sun, 21 Jul 2024 10:53:46 +0000 (+0200)
Subject: lang-tcl: Avoid FAIL on native Windows.
X-Git-Tag: v0.23~238
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f7a0b2fa69979a24da1511eceb5f954111e050b8;p=thirdparty%2Fgettext.git

lang-tcl: Avoid FAIL on native Windows.

* gettext-tools/tests/lang-tcl: Set the LANG variable as expected by tclsh.
---

diff --git a/gettext-tools/tests/lang-tcl b/gettext-tools/tests/lang-tcl
index ffe459002..0cc8c3ee4 100755
--- a/gettext-tools/tests/lang-tcl
+++ b/gettext-tools/tests/lang-tcl
@@ -95,6 +95,15 @@ unset LC_CTYPE
 
 : ${LOCALE_FR=fr_FR}
 : ${LOCALE_FR_UTF8=fr_FR.UTF-8}
+# tclsh on native Windows does not want the native Windows locale name
+# (French_France.1252 or French_France.65001), but the Unix locale name (fr_FR).
+# See https://www.tcl.tk/man/tcl8.6/TclCmd/msgcat.htm#M19 .
+case "$host_os" in
+  mingw* | windows*)
+    LOCALE_FR=fr_FR.ISO-8859-1
+    LOCALE_FR_UTF8=none
+    ;;
+esac
 if test $LOCALE_FR != none; then
   prepare_locale_ fr $LOCALE_FR
   LANGUAGE= LANG=$LOCALE_FR tclsh program.tcl > prog.tmp || Exit 1