Imported from /home/lorry/working-area/delta_gettext-tarball/gettext-0.19.4.tar.xz.gettext-0.19.4

1 files changed, 34 insertions, 0 deletions

diff --git a/gettext-tools/tests/xgettext-elisp-2 b/gettext-tools/tests/xgettext-elisp-2
new file mode 100755
index 0000000..22c472e
--- /dev/null
+++ b/gettext-tools/tests/xgettext-elisp-2
@@ -0,0 +1,34 @@
+#!/bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
+
+# Test EmacsLisp support: --add-comments option.
+
+cat <<\EOF > xg-el-2.el
+; a
+(setq string ; b
+; c
+(_ ; d
+"hello world" ; e
+; f
+))
+EOF
+
+: ${XGETTEXT=xgettext}
+${XGETTEXT} --add-comments --omit-header --no-location --keyword=_ \
+  -d xg-el-2.tmp xg-el-2.el || exit 1
+LC_ALL=C tr -d '\r' < xg-el-2.tmp.po > xg-el-2.po || exit 1
+
+cat <<EOF > xg-el-2.ok
+#. a
+#. b
+#. c
+#. d
+msgid "hello world"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-el-2.ok xg-el-2.po
+result=$?
+
+exit $result