| #!/bin/sh |
| . "${srcdir=.}/init.sh"; path_prepend_ . ../src |
| |
| # Test of Perl support with UTF-8 encoded input. |
| |
| cat <<\EOF > xg-pl-3.pl |
| use charnames ':full'; |
| printf "%s\n", gettext "Böse Bübchen - wo sind sie blo\N{LATIN SMALL LETTER SHARP S}?"; |
| print gettext <<STR |
| Die europäische Währung ist \N{EURO SIGN}. |
| STR |
| EOF |
| |
| : ${XGETTEXT=xgettext} |
| # delete POT-Creation-Date: line because the date depends on local time. |
| ${XGETTEXT} --output xg-pl-3.tmp --from-code=UTF-8 xg-pl-3.pl || Exit 1 |
| sed -e '/\"POT-Creation-Date:.*/d' < xg-pl-3.tmp | LC_ALL=C tr -d '\r' > xg-pl-3.po || Exit 1 |
| |
| cat <<\EOF > xg-pl-3.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" |
| "Language: \n" |
| "MIME-Version: 1.0\n" |
| "Content-Type: text/plain; charset=UTF-8\n" |
| "Content-Transfer-Encoding: 8bit\n" |
| |
| #: xg-pl-3.pl:2 |
| msgid "Böse Bübchen - wo sind sie bloß?" |
| msgstr "" |
| |
| #: xg-pl-3.pl:4 |
| msgid "Die europäische Währung ist €.\n" |
| msgstr "" |
| EOF |
| |
| : ${DIFF=diff} |
| ${DIFF} xg-pl-3.ok xg-pl-3.po |
| result=$? |
| |
| exit $result |
