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

# Test of Perl support: ngettext invocation that used to trigger a crash.

cat <<\EOF > xg-pl-10.pl
ngettext p=>("
EOF

: ${XGETTEXT=xgettext}
${XGETTEXT} --omit-header -n -d xg-pl-10.tmp xg-pl-10.pl || Exit 1
LC_ALL=C tr -d '\r' < xg-pl-10.tmp.po > xg-pl-10.po || Exit 1

cat <<\EOF > xg-pl-10.ok
#: xg-pl-10.pl:1
msgid "p"
msgid_plural "\n"
msgstr[0] ""
msgstr[1] ""
EOF

: ${DIFF=diff}
${DIFF} xg-pl-10.ok xg-pl-10.po
result=$?

exit $result