gettext-tools/tests/xgettext-perl-5

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