From: Bruno Haible <bruno@clisp.org>
Date: Mon, 28 Aug 2006 12:42:02 +0000 (+0000)
Subject: Test against crash reported as Debian bug #384698.
X-Git-Tag: 0.16.x-branchpoint~177
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=867489a13c89b32afafb373f33fefb636e761d21;p=thirdparty%2Fgettext.git

Test against crash reported as Debian bug #384698.
---

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index fc9719289..361642162 100644
--- 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 ed2121bc2..a851d96b4 100644
--- 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
index 000000000..e2916a84d
--- /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