From: Bruno Haible <bruno@clisp.org>
Date: Mon, 23 Jun 2003 09:37:23 +0000 (+0000)
Subject: Renamed to lang-perl-1.
X-Git-Tag: v0.13~421
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6eeeedd241e8d982e298c6a1e2c9a16011cefa22;p=thirdparty%2Fgettext.git

Renamed to lang-perl-1.
---

diff --git a/gettext-tools/tests/lang-perl b/gettext-tools/tests/lang-perl
deleted file mode 100755
index 25c735037..000000000
--- a/gettext-tools/tests/lang-perl
+++ /dev/null
@@ -1,99 +0,0 @@
-#! /bin/sh
-
-# Test of gettext facilities in the Perl language.
-# Assumes an fr_FR locale is installed.
-# Assumes the following packages are installed: perl.
-
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles program.pl"
-cat <<\EOF > program.pl
-use Locale::Messages;
-textdomain "prog";
-bindtextdomain ("./");
-my $n = 2;
-print _"'Your command, please?', asked the waiter.";
-printf ngettext ("a piece of cake", "%d pieces of cake", $n), $n;
-printf _"%s is replaced by %s.", "FF", "EUR";
-EOF
-
-tmpfiles="$tmpfiles prog.pot"
-: ${XGETTEXT=xgettext}
-${XGETTEXT} -k_ -o prog.pot --omit-header --no-location program.pl
-
-tmpfiles="$tmpfiles prog.ok"
-cat <<EOF > prog.ok
-msgid "'Your command, please?', asked the waiter."
-msgstr ""
-
-#, perl-format
-msgid "a piece of cake"
-msgid_plural "%d pieces of cake"
-msgstr[0] ""
-msgstr[1] ""
-
-#, perl-format
-msgid "%s is replaced by %s."
-msgstr ""
-EOF
-
-: ${DIFF=diff}
-${DIFF} prog.ok prog.pot || exit 1
-
-tmpfiles="$tmpfiles fr.po"
-cat <<\EOF > fr.po
-msgid ""
-msgstr ""
-"Content-Type: text/plain; charset=ISO-8859-1\n"
-"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."
-
-# Les gateaux allemands sont les meilleurs du monde.
-#, perl-format
-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.
-#, perl-format
-msgid "%s is replaced by %s."
-msgstr "%2$s remplace %1$s."
-EOF
-
-tmpfiles="$tmpfiles fr.po.new"
-: ${MSGMERGE=msgmerge}
-${MSGMERGE} -q -o fr.po.new fr.po prog.pot
-
-: ${DIFF=diff}
-${DIFF} fr.po fr.po.new || exit 1
-
-tmpfiles="$tmpfiles fr"
-test -d fr || mkdir fr
-test -d fr/LC_MESSAGES || mkdir fr/LC_MESSAGES
-
-: ${MSGFMT=msgfmt}
-${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.
-2 morceaux de gateau
-EUR remplace FF.
-EOF
-
-# Test for perl with Locale::Messages package.
-perl -e 'use Locale::Messages;' 2>/dev/null \
-  || { rm -fr $tmpfiles; exit 77; }
-
-: ${LOCALE_FR=fr_FR}
-LANGUAGE= LANG=$LOCALE_FR LC_MESSAGES= LC_ALL= perl program.pl > prog.out || exit 1
-${DIFF} prog.ok prog.out || exit 1
-
-rm -fr $tmpfiles
-
-exit 0