summaryrefslogtreecommitdiffstats
path: root/gettext-tools/tests/lang-perl-1
diff options
context:
space:
mode:
authorBruno Haible <bruno@clisp.org>2003-10-10 10:45:55 +0000
committerBruno Haible <bruno@clisp.org>2009-06-23 12:11:03 +0200
commit6604a4d8b35235225b43900a0fdcfce0d9b899d0 (patch)
tree8a6190346d8da125d85d0c04ef6ab86b859e7b13 /gettext-tools/tests/lang-perl-1
parent7474a39c0d7791db008a1939a68a31e100d64762 (diff)
downloadexternal_gettext-6604a4d8b35235225b43900a0fdcfce0d9b899d0.zip
external_gettext-6604a4d8b35235225b43900a0fdcfce0d9b899d0.tar.gz
external_gettext-6604a4d8b35235225b43900a0fdcfce0d9b899d0.tar.bz2
Recognize format strings depending on their position.
Diffstat (limited to 'gettext-tools/tests/lang-perl-1')
-rwxr-xr-xgettext-tools/tests/lang-perl-18
1 files changed, 5 insertions, 3 deletions
diff --git a/gettext-tools/tests/lang-perl-1 b/gettext-tools/tests/lang-perl-1
index 7adc35d..8bdbd04 100755
--- a/gettext-tools/tests/lang-perl-1
+++ b/gettext-tools/tests/lang-perl-1
@@ -26,7 +26,9 @@ EOF
tmpfiles="$tmpfiles prog.pot"
: ${XGETTEXT=xgettext}
-${XGETTEXT} -k__ -o prog.pot --omit-header --no-location program.pl
+${XGETTEXT} \
+ -k__ --flag=__:1:pass-perl-format --flag=__:1:pass-perl-brace-format \
+ -o prog.pot --omit-header --no-location program.pl
tmpfiles="$tmpfiles prog.ok"
cat <<EOF > prog.ok
@@ -55,7 +57,7 @@ msgstr ""
"Plural-Forms: nplurals=2; plural=(n > 1);\n"
msgid "'Your command, please?', asked the waiter."
-msgstr "«Votre commande, s'il vous plait», dit le garçon."
+msgstr "Votre commande, s'il vous plait, dit le gar�n."
# Les gateaux allemands sont les meilleurs du monde.
#, perl-format
@@ -87,7 +89,7 @@ ${MSGFMT} -o fr/LC_MESSAGES/prog.mo fr.po
tmpfiles="$tmpfiles prog.ok prog.out"
: ${DIFF=diff}
cat <<\EOF > prog.ok
-«Votre commande, s'il vous plait», dit le garçon.
+Votre commande, s'il vous plait, dit le gar�n.
2 morceaux de gateau
EUR remplace FF.
EOF