Test against crash reported as Debian bug #384698.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index fc97192894cd8fdf2f99af1ba5cbf999ab8025dd..361642162b22939a547fa1a5ff0a20ddc33b64f7 100644 (file)
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-28  Bruno Haible  <bruno@clisp.org>
+
+       * xgettext-scheme-2: New file.
+       * Makefile.am (TESTS): Add it.
+
 2006-08-16  Bruno Haible  <bruno@clisp.org>
 
        * plural-2: Use Japanese, not Hungarian, as a test case for nplurals=1.

diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am
index ed2121bc2f225424f21a643228de314b6e9e04c2..a851d96b498aae6b9b6a48adaa73a1525646d871 100644 (file)
--- a/gettext-tools/tests/Makefile.am
+++ b/gettext-tools/tests/Makefile.am
@@ -84,7 +84,7 @@ TESTS = gettext-1 gettext-2 gettext-3 gettext-4 gettext-5 gettext-6 gettext-7 \
        xgettext-po-1 \
        xgettext-properties-1 \
        xgettext-python-1 xgettext-python-2 xgettext-python-3 \
-       xgettext-scheme-1 \
+       xgettext-scheme-1 xgettext-scheme-2 \
        xgettext-sh-1 xgettext-sh-2 xgettext-sh-3 xgettext-sh-4 xgettext-sh-5 \
        xgettext-smalltalk-1 \
        xgettext-stringtable-1 \

diff --git a/gettext-tools/tests/xgettext-scheme-2 b/gettext-tools/tests/xgettext-scheme-2
new file mode 100755 (executable)
index 0000000..e2916a8
--- /dev/null
+++ b/gettext-tools/tests/xgettext-scheme-2
@@ -0,0 +1,28 @@
+#!/bin/sh
+
+# Test Scheme support: strings outside any function call.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-sc-2.scm"
+cat <<EOF > xg-sc-2.scm
+(define foo '("bar" "quux"))
+EOF
+
+tmpfiles="$tmpfiles xg-sc-2.po"
+: ${XGETTEXT=xgettext}
+${XGETTEXT} -k_ --omit-header --no-location --force-po -d xg-sc-2 xg-sc-2.scm
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-sc-2.ok"
+cat <<EOF > xg-sc-2.ok
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-sc-2.ok xg-sc-2.po
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result