diff options
author | Bruno Haible <bruno@clisp.org> | 2006-08-28 12:42:02 +0000 |
---|---|---|
committer | Bruno Haible <bruno@clisp.org> | 2009-06-23 12:13:57 +0200 |
commit | 867489a13c89b32afafb373f33fefb636e761d21 (patch) | |
tree | 430dbe823c7efd671f4a66a393ef03924b76e159 | |
parent | 4d3a5c61bb83fc7d431a3240faa5928feb1cbcf4 (diff) | |
download | external_gettext-867489a13c89b32afafb373f33fefb636e761d21.zip external_gettext-867489a13c89b32afafb373f33fefb636e761d21.tar.gz external_gettext-867489a13c89b32afafb373f33fefb636e761d21.tar.bz2 |
Test against crash reported as Debian bug #384698.
-rw-r--r-- | gettext-tools/tests/ChangeLog | 5 | ||||
-rw-r--r-- | gettext-tools/tests/Makefile.am | 2 | ||||
-rwxr-xr-x | gettext-tools/tests/xgettext-scheme-2 | 28 |
3 files changed, 34 insertions, 1 deletions
diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog index fc97192..3616421 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 ed2121b..a851d96 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 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 |