From: Bruno Haible <bruno@clisp.org>
Date: Tue, 24 Jun 2003 09:31:26 +0000 (+0000)
Subject: New tests for Perl support.
X-Git-Tag: v0.13~404
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e73ba34781875b3b484a5e392d9fbed8076add6d;p=thirdparty%2Fgettext.git

New tests for Perl support.
---

diff --git a/gettext-tools/tests/ChangeLog b/gettext-tools/tests/ChangeLog
index e4f264aa4..d68e150d5 100644
--- a/gettext-tools/tests/ChangeLog
+++ b/gettext-tools/tests/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-24  Bruno Haible  <bruno@clisp.org>
+
+	* xgettext-27: New file.
+	* xgettext-28: New file.
+	* Makefile.am (TESTS): Add them.
+
 2003-06-23  Bruno Haible  <bruno@clisp.org>
 
 	* xgettext-26: Fix expected test result for backslashed dollar in
diff --git a/gettext-tools/tests/Makefile.am b/gettext-tools/tests/Makefile.am
index 118de205c..fa18e38a8 100644
--- a/gettext-tools/tests/Makefile.am
+++ b/gettext-tools/tests/Makefile.am
@@ -49,7 +49,8 @@ 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-26 \
+	xgettext-23 xgettext-24 xgettext-25 xgettext-26 xgettext-27 \
+	xgettext-28 \
 	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-27 b/gettext-tools/tests/xgettext-27
new file mode 100755
index 000000000..ca60da55a
--- /dev/null
+++ b/gettext-tools/tests/xgettext-27
@@ -0,0 +1,51 @@
+#!/bin/sh
+
+# Test of Perl support with ISO-8859-1 encoded input.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-test27.pl"
+cat <<\EOF > xg-test27.pl
+use charnames ':full';
+printf "%s\n", gettext "Böse Bübchen - wo sind sie blo\N{LATIN SMALL LETTER SHARP S}?";
+EOF
+
+tmpfiles="$tmpfiles xg-test27.po"
+: ${XGETTEXT=xgettext}
+# delete POT-Creation-Date: line because the date depends on local time.
+${XGETTEXT} --output - --from-code=ISO-8859-1 xg-test27.pl \
+  | sed '/\"POT-Creation-Date:.*/d' > xg-test27.po
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-test27.ok"
+cat <<\EOF > xg-test27.ok
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
+# This file is distributed under the same license as the PACKAGE package.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: xg-test27.pl:2
+msgid "Böse Bübchen - wo sind sie bloß?"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-test27.ok xg-test27.po
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result
diff --git a/gettext-tools/tests/xgettext-28 b/gettext-tools/tests/xgettext-28
new file mode 100755
index 000000000..1f55fb42d
--- /dev/null
+++ b/gettext-tools/tests/xgettext-28
@@ -0,0 +1,51 @@
+#!/bin/sh
+
+# Test of Perl support with UTF-8 encoded input.
+
+tmpfiles=""
+trap 'rm -fr $tmpfiles' 1 2 3 15
+
+tmpfiles="$tmpfiles xg-test28.pl"
+cat <<\EOF > xg-test28.pl
+use charnames ':full';
+printf "%s\n", gettext "Böse Bübchen - wo sind sie blo\N{LATIN SMALL LETTER SHARP S}?";
+EOF
+
+tmpfiles="$tmpfiles xg-test28.po"
+: ${XGETTEXT=xgettext}
+# delete POT-Creation-Date: line because the date depends on local time.
+${XGETTEXT} --output - --from-code=UTF-8 xg-test28.pl \
+  | sed '/\"POT-Creation-Date:.*/d' > xg-test28.po
+test $? = 0 || { rm -fr $tmpfiles; exit 1; }
+
+tmpfiles="$tmpfiles xg-test28.ok"
+cat <<\EOF > xg-test28.ok
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
+# This file is distributed under the same license as the PACKAGE package.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: xg-test28.pl:2
+msgid "Böse Bübchen - wo sind sie bloß?"
+msgstr ""
+EOF
+
+: ${DIFF=diff}
+${DIFF} xg-test28.ok xg-test28.po
+result=$?
+
+rm -fr $tmpfiles
+
+exit $result