diff options
| author | Bruno Haible <bruno@clisp.org> | 2003-08-04 20:43:06 +0000 |
|---|---|---|
| committer | Bruno Haible <bruno@clisp.org> | 2009-06-23 12:10:48 +0200 |
| commit | 08953935c97ff6ff80c9785cad5ab0cb3f6bbdd0 (patch) | |
| tree | 2ae8168f5ac457c15d061655aed8f612edcbbdee /gettext-tools/tests/lang-perl-1 | |
| parent | b00a73ab827be10b550b19e202c319f0df15d67f (diff) | |
| download | external_gettext-08953935c97ff6ff80c9785cad5ab0cb3f6bbdd0.zip external_gettext-08953935c97ff6ff80c9785cad5ab0cb3f6bbdd0.tar.gz external_gettext-08953935c97ff6ff80c9785cad5ab0cb3f6bbdd0.tar.bz2 | |
Small tweaks.
Diffstat (limited to 'gettext-tools/tests/lang-perl-1')
| -rwxr-xr-x | gettext-tools/tests/lang-perl-1 | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gettext-tools/tests/lang-perl-1 b/gettext-tools/tests/lang-perl-1 index ed015e2..9e99336 100755 --- a/gettext-tools/tests/lang-perl-1 +++ b/gettext-tools/tests/lang-perl-1 @@ -12,11 +12,14 @@ tmpfiles="$tmpfiles program.pl" cat <<\EOF > program.pl use Locale::Messages; textdomain "prog"; -bindtextdomain ("./"); +bindtextdomain "prog", "./"; my $n = 2; print _"'Your command, please?', asked the waiter."; +print "\n"; printf ngettext ("a piece of cake", "%d pieces of cake", $n), $n; +print "\n"; printf _"%s is replaced by %s.", "FF", "EUR"; +print "\n"; EOF tmpfiles="$tmpfiles prog.pot" @@ -50,7 +53,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 @@ -82,7 +85,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 |