1#!/bin/sh
2. "${srcdir=.}/init.sh"; path_prepend_ . ../src
3
4# Test Perl support: --add-comments option.
5
6cat <<EOF > xg-pl-5.pl
7# This comment will not be extracted.
8print gettext "help";
9#  TRANSLATORS: This is an extracted comment.
10print gettext "me";
11# Not extracted either.
12print gettext "Hey Jude";
13# TRANSLATORS:
14#    Nickname of the Beatles
15print gettext "The Fabulous Four";
16EOF
17
18: ${XGETTEXT=xgettext}
19${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: \
20  -d xg-pl-5.tmp xg-pl-5.pl || Exit 1
21LC_ALL=C tr -d '\r' < xg-pl-5.tmp.po > xg-pl-5.po || Exit 1
22
23cat <<EOF > xg-pl-5.ok
24msgid "help"
25msgstr ""
26
27#. TRANSLATORS: This is an extracted comment.
28msgid "me"
29msgstr ""
30
31msgid "Hey Jude"
32msgstr ""
33
34#. TRANSLATORS:
35#. Nickname of the Beatles
36msgid "The Fabulous Four"
37msgstr ""
38EOF
39
40: ${DIFF=diff}
41${DIFF} xg-pl-5.ok xg-pl-5.po
42result=$?
43
44exit $result
45