#!/bin/sh

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

# Test Perl support: --add-comments option.

cat <<EOF > xg-pl-5.pl

# This comment will not be extracted.

print gettext "help";

#  TRANSLATORS: This is an extracted comment.

print gettext "me";

# Not extracted either.

print gettext "Hey Jude";

# TRANSLATORS:

#    Nickname of the Beatles

print gettext "The Fabulous Four";

EOF

: ${XGETTEXT=xgettext}

${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: \

  -d xg-pl-5.tmp xg-pl-5.pl || exit 1

LC_ALL=C tr -d '\r' < xg-pl-5.tmp.po > xg-pl-5.po || exit 1

cat <<EOF > xg-pl-5.ok

msgid "help"

msgstr ""

#. TRANSLATORS: This is an extracted comment.

msgid "me"

msgstr ""

msgid "Hey Jude"

msgstr ""

#. TRANSLATORS:

#. Nickname of the Beatles

msgid "The Fabulous Four"

msgstr ""

EOF

: ${DIFF=diff}

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

result=$?

exit $result