#!/bin/sh

. "${srcdir=.}/init.sh"; path_prepend_ . ../src

# Test of Perl support with ISO-8859-1 encoded input.

cat <<\EOF > xg-pl-2.pl

use charnames ':full';

printf "%s\n", gettext "Böse Bübchen - wo sind sie blo\N{LATIN SMALL LETTER SHARP S}?";

print gettext <

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 - --from-code=ISO-8859-1 xg-pl-2.pl \

  | sed '/\"POT-Creation-Date:.*/d' | LC_ALL=C tr -d '\r' > xg-pl-2.po || exit 1

cat <<\EOF > xg-pl-2.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-2.pl:2

msgid "Böse Bübchen - wo sind sie bloß?"

msgstr ""

#: xg-pl-2.pl:4

msgid "Die europäische Währung ist €.\n"

msgstr ""

EOF

: ${DIFF=diff}

${DIFF} xg-pl-2.ok xg-pl-2.po

result=$?

exit $result