From: Bruno Haible <bruno@clisp.org>
Date: Sun, 15 Jun 2003 11:48:19 +0000 (+0000)
Subject: Test the xgettext Perl backend.
X-Git-Tag: v0.13~446
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f54b38e5cef86e751d463b9e359b9cc9b8bee593;p=thirdparty%2Fgettext.git

Test the xgettext Perl backend.
---

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index 9dc5090ae..8a720c30e 100644
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,15 @@
+2003-06-15  Bruno Haible  <bruno@clisp.org>
+
+	* xgettext-26: New file, derived from lang-perl.
+	* Makefile.am (TESTS): Add it.
+	* lang-perl: Turn into a real integration test.
+
+2003-06-12  Bruno Haible  <bruno@clisp.org>
+
+	* format-perl-1: Avoid conflict with format-awk-1.
+	* format-perl-2: Avoid conflict with format-awk-2.
+	* Makefile.am (TESTS): Mention perl between tcl and php.
+
 2003-06-11  Guido Flohr  <guido@imperia.net>
 
 	* format-perl-1: New file.
diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am
index 6b4d686f5..349bdb9a5 100644
--- a/gettext-tools/tests/Makefile.am
+++ b/gettext-tools/tests/Makefile.am
@@ -49,7 +49,7 @@ TESTS = gettext-1 gettext-2 \
 	xgettext-7 xgettext-8 xgettext-9 xgettext-10 xgettext-11 xgettext-12 \
 	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-23 xgettext-24 xgettext-25 xgettext-26 \
 	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-26 b/gettext-tools/tests/xgettext-26
new file mode 100755
index 000000000..13f68e012
--- /dev/null
+++ b/gettext-tools/tests/xgettext-26
@@ -0,0 +1,148 @@
+#!/bin/sh
+
+# Test of Perl support.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-test26.pl"
+cat <<\EOF > xg-test26.pl
+use Locale::Messages;
+
+textdomain "prog";
+bindtextdomain ("./");
+
+s/foo/
+          # stress test for string extraction /xe;
+
+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";
+
+# Should be found.
+printf dngettext prog => ("one file deleted", "%d files deleted"), $n, $n;
+
+# Should not be found.
+printf dngettext ("prog"), ("one file created", "%d files created"), $n, $n;
+
+printf dngettext "prog", <<PERL, <<PERL;
+Singular
+PERL
+Plural
+PERL
+
+print <<PERL
+tied hash $__{   Bareword
+}
+tied hash $__->{"quoted string"}
+tied hash $__->{  "weird
+formatting"}
+PERL
+
+print $__  # Welcome
+   ->   # to the
+ { # Republic of
+ 'Welcome to the Republic of Perl!' # 
+# Perl!
+}; 
+
+$! ? ?$__{"pattern match"}? : s  # This is no delimiter.
+{$__{substitution}}<$__-\>{"find me"}>;
+
+# No interpolation!
+m'$__{secret}';
+
+# Multiple here documents invoked from the same line.
+print gettext <<PERL; print gettext <<PERL;
+First here document.
+PERL
+Second here document.
+PERL
+__END__
+gettext "Discarded!";
+EOF
+
+tmpfiles="$tmpfiles xg-test26.po"
+: ${XGETTEXT=xgettext}
+${XGETTEXT} --omit-header -n -k_ -k%__ -k\$__ xg-test26.pl -d xg-test26
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-test26.ok"
+cat <<EOF > xg-test26.ok
+#: xg-test26.pl:9
+msgid "'Your command, please?', asked the waiter."
+msgstr ""
+
+#: xg-test26.pl:11
+#, perl-format
+msgid "a piece of cake"
+msgid_plural "%d pieces of cake"
+msgstr[0] ""
+msgstr[1] ""
+
+#: xg-test26.pl:13
+#, perl-format
+msgid "%s is replaced by %s."
+msgstr ""
+
+#: xg-test26.pl:16
+#, perl-format
+msgid "one file deleted"
+msgid_plural "%d files deleted"
+msgstr[0] ""
+msgstr[1] ""
+
+#: xg-test26.pl:22
+msgid "Singular\n"
+msgid_plural "Plural\n"
+msgstr[0] ""
+msgstr[1] ""
+
+#: xg-test26.pl:28
+msgid "Bareword"
+msgstr ""
+
+#: xg-test26.pl:30
+msgid "quoted string"
+msgstr ""
+
+#: xg-test26.pl:31
+msgid ""
+"weird\n"
+"formatting"
+msgstr ""
+
+#: xg-test26.pl:38
+msgid "Welcome to the Republic of Perl!"
+msgstr ""
+
+#: xg-test26.pl:42
+msgid "pattern match"
+msgstr ""
+
+#: xg-test26.pl:43
+msgid "substitution"
+msgstr ""
+
+#: xg-test26.pl:43
+msgid "find me"
+msgstr ""
+
+#: xg-test26.pl:50
+msgid "First here document.\n"
+msgstr ""
+
+#: xg-test26.pl:52
+msgid "Second here document.\n"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-test26.ok xg-test26.po
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result