| #!/bin/sh | |
| . "${srcdir=.}/init.sh"; path_prepend_ . ../src | |
| # Test Perl support: --add-comments option. | |
| cat <<\EOF > xg-pl-7.pl | |
| # a | |
| string = # b | |
| # c | |
| _( # d | |
| "hello " # e | |
| . # f | |
| "world" # g | |
| ); | |
| EOF | |
| : ${XGETTEXT=xgettext} | |
| ${XGETTEXT} --add-comments --omit-header --no-location --keyword=_ \ | |
| -d xg-pl-7.tmp xg-pl-7.pl || Exit 1 | |
| LC_ALL=C tr -d '\r' < xg-pl-7.tmp.po > xg-pl-7.po || Exit 1 | |
| cat <<EOF > xg-pl-7.ok | |
| #. a | |
| #. b | |
| #. c | |
| #. d | |
| msgid "hello world" | |
| msgstr "" | |
| EOF | |
| : ${DIFF=diff} | |
| ${DIFF} xg-pl-7.ok xg-pl-7.po | |
| result=$? | |
| exit $result |