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 5315aa3d293ef23a66de57fa520fd3dd55b569a3..5f71e370023e5ada42d3d15630d76a9e6ce145c8 100644 (file)
--- 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 (executable)
index 0000000..5fa29d4
--- /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