From: Bruno Haible <bruno@clisp.org>
Date: Fri, 16 Aug 2024 19:04:21 +0000 (+0200)
Subject: xgettext: Scheme: More tests.
X-Git-Tag: v0.23~163
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5345735f89a8ee8dd5d2c9b475b96528d932f49d;p=thirdparty%2Fgettext.git

xgettext: Scheme: More tests.

* gettext-tools/tests/xgettext-scheme-5: New file, based on
gettext-tools/tests/xgettext-5.
* gettext-tools/tests/Makefile.am (TESTS): Add it.
---

diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am
index 5315aa3d2..5f71e3700 100644
--- a/gettext-tools/tests/Makefile.am
+++ b/gettext-tools/tests/Makefile.am
@@ -153,7 +153,7 @@ TESTS = gettext-1 gettext-2 \
 	xgettext-python-stackovfl-3 xgettext-python-stackovfl-4 \
 	xgettext-ruby-1 \
 	xgettext-scheme-1 xgettext-scheme-2 xgettext-scheme-3 \
-	xgettext-scheme-4 \
+	xgettext-scheme-4 xgettext-scheme-5 \
 	xgettext-scheme-format-1 xgettext-scheme-format-2 \
 	xgettext-scheme-stackovfl-1 xgettext-scheme-stackovfl-2 \
 	xgettext-sh-1 xgettext-sh-2 xgettext-sh-3 xgettext-sh-4 xgettext-sh-5 \
diff --git a/gettext-tools/tests/xgettext-scheme-5 b/gettext-tools/tests/xgettext-scheme-5
new file mode 100755
index 000000000..5fa29d4f8
--- /dev/null
+++ b/gettext-tools/tests/xgettext-scheme-5
@@ -0,0 +1,53 @@
+#! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
+
+# Test extraction of non-ASCII msgids.
+
+cat <<\EOF > xg-sc-5.scm
+(define (foo option)
+  (display (format (_ "neznámý pøepínaè -- ~A\n") option))
+  (display (format (_ "pøepínaè vy¾aduje argument -- ~A\n") option)))
+}
+EOF
+
+: ${XGETTEXT=xgettext}
+${XGETTEXT} --no-location -k_ -o xg-sc-5.po xg-sc-5.scm 2>/dev/null
+test $? = 1 || { Exit 1; }
+${XGETTEXT} --no-location -k_ --from-code=iso-8859-2 -o xg-sc-5.tmp xg-sc-5.scm || Exit 1
+LC_ALL=C tr -d '\r' < xg-sc-5.tmp > xg-sc-5.po || Exit 1
+
+sed -e '/POT-Creation-Date/d' < xg-sc-5.po > xg-sc-5.pot
+
+cat <<\EOF > xg-sc-5.ok
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
+# This file is distributed under the same license as the PACKAGE package.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"Language: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#, scheme-format
+msgid "neznámý přepínač -- ~A\n"
+msgstr ""
+
+#, scheme-format
+msgid "přepínač vyžaduje argument -- ~A\n"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-sc-5.ok xg-sc-5.pot
+result=$?
+
+exit $result