New test for --extract-all in Perl mode.

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index eb5ae4fb679b0de6dd69a3856865b362596cb6b5..aff598571d4fe58cfeb127d0cde08e41be109d5d 100644 (file)
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-01  Bruno Haible  <bruno@clisp.org>
+
+       * xgettext-29: New test, from Guido Flohr.
+       * Makefile.am (TESTS): Add it.
+
 2003-08-08  Bruno Haible  <bruno@clisp.org>
 
        * format-gcc-internal-1: New file.

diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am
index 205d0147f8bba3de1d9074e955257f48fbcf91ce..e5ea98bc8220a8ea0c4060eaa2fad25725d16bfd 100644 (file)
--- a/gettext-tools/tests/Makefile.am
+++ b/gettext-tools/tests/Makefile.am
@@ -50,7 +50,7 @@ TESTS = gettext-1 gettext-2 \
        xgettext-13 xgettext-14 xgettext-15 xgettext-16 xgettext-17 \
        xgettext-18 xgettext-19 xgettext-20 xgettext-21 xgettext-22 \
        xgettext-23 xgettext-24 xgettext-25 xgettext-26 xgettext-27 \
-       xgettext-28 \
+       xgettext-28 xgettext-29 \
        format-awk-1 format-awk-2 \
        format-c-1 format-c-2 format-c-3 format-c-4 \
        format-elisp-1 format-elisp-2 \

diff --git a/gettext-tools/tests/xgettext-29 b/gettext-tools/tests/xgettext-29
new file mode 100755 (executable)
index 0000000..652307e
--- /dev/null
+++ b/gettext-tools/tests/xgettext-29
@@ -0,0 +1,44 @@
+#! /bin/sh
+
+# Test of Perl support with --extract-all and printf format strings.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-test29.pl"
+cat <<\EOF > xg-test29.pl
+my $n = 2;
+print "'Your $command, please?', asked the waiter.";
+print "\n";
+printf ("$$$$$$$$$$$$$var pieces of cake", $n);
+print "\n";
+printf "@s is replaced by $s->[-1].";
+print "\n";
+EOF
+
+tmpfiles="$tmpfiles xg-test29.pot"
+: ${XGETTEXT=xgettext}
+LC_MESSAGES=C LC_ALL= \
+${XGETTEXT} -a -k_ --omit-header --no-location -o xg-test29.pot xg-test29.pl \
+    2>&1 | grep -v "invalid variable interpolation"
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-test29.ok"
+cat <<\EOF > xg-test29.ok
+msgid "'Your $command, please?', asked the waiter."
+msgstr ""
+
+msgid "$$$$$$$$$$$$$var pieces of cake"
+msgstr ""
+
+msgid "@s is replaced by $s->[-1]."
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-test29.ok xg-test29.pot
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result