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