From: Bruno Haible Date: Mon, 1 Sep 2003 19:46:47 +0000 (+0000) Subject: New test for --extract-all in Perl mode. X-Git-Tag: v0.13~282 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=94378d65c9b76978eb1fd0a08564a0a4c2a341fb;p=thirdparty%2Fgettext.git New test for --extract-all in Perl mode. --- diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog index eb5ae4fb6..aff598571 100644 --- a/gettext-tools/tests/ChangeLog +++ b/gettext-tools/tests/ChangeLog @@ -1,3 +1,8 @@ +2003-09-01 Bruno Haible + + * xgettext-29: New test, from Guido Flohr. + * Makefile.am (TESTS): Add it. + 2003-08-08 Bruno Haible * format-gcc-internal-1: New file. diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am index 205d0147f..e5ea98bc8 100644 --- 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 index 000000000..652307e27 --- /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