From: Bruno Haible <bruno@clisp.org>
Date: Mon, 17 Dec 2001 17:42:13 +0000 (+0000)
Subject: Test more things.
X-Git-Tag: v0.11~172
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=551cd5dcf8488d7fff99dc1393fd6298c3eb87b6;p=thirdparty%2Fgettext.git

Test more things.
---

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 09cc9f9ad..919d1c9b7 100644
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,7 @@
+2001-12-16  Bruno Haible  <bruno@clisp.org>
+
+	* lang-clisp: Also test reversal of arguments.
+
 2001-12-16  Bruno Haible  <bruno@clisp.org>
 
 	* format-librep-1: New file.
diff --git a/tests/lang-clisp b/tests/lang-clisp
index c1290f02c..be9578d56 100755
--- a/tests/lang-clisp
+++ b/tests/lang-clisp
@@ -17,6 +17,8 @@ cat <<\EOF > prog.lisp
 (format t "~A~%" (gettext "'Your command, please?', asked the waiter."))
 
 (format t "~@?~%" (ngettext "a piece of cake" "~D pieces of cake" n) n)
+
+(format t "~A~%" (format nil (gettext "~A is replaced by ~A.") "FF" "EUR"))
 EOF
 
 tmpfiles="$tmpfiles prog.pot"
@@ -33,6 +35,10 @@ msgid "a piece of cake"
 msgid_plural "~D pieces of cake"
 msgstr[0] ""
 msgstr[1] ""
+
+#, lisp-format
+msgid "~A is replaced by ~A."
+msgstr ""
 EOF
 
 : ${DIFF=diff}
@@ -54,6 +60,11 @@ msgid "a piece of cake"
 msgid_plural "~D pieces of cake"
 msgstr[0] "un morceau de gateau"
 msgstr[1] "~D morceaux de gateau"
+
+# Reverse the arguments.
+#, lisp-format
+msgid "~A is replaced by ~A."
+msgstr "~1@*~A remplace ~0@*~A."
 EOF
 
 tmpfiles="$tmpfiles fr.po.new"
@@ -75,6 +86,7 @@ tmpfiles="$tmpfiles prog.ok prog.out"
 cat <<\EOF > prog.ok
 «Votre commande, s'il vous plait», dit le garçon.
 2 morceaux de gateau
+EUR remplace FF.
 EOF
 
 # Test for presence of clisp version 2.28 or newer.