gnu/dist/gettext/gettext-tools/tests/xgettext-librep-1

   1 #!/bin/sh
   2
   3 # Test librep support: --add-comments option.
   4
   5 tmpfiles=""
   6 trap 'rm -fr $tmpfiles' 1 2 3 15
   7
   8 tmpfiles="$tmpfiles xg-lr-1.jl"
   9 cat <<EOF > xg-lr-1.jl
  10 ; This comment will not be extracted.
  11 (princ (_ "help"))
  12 ;;  TRANSLATORS: This is an extracted comment.
  13 (princ (_ "me"))
  14 #| Not extracted either. |#
  15 (princ (_ "Hey Jude"))
  16 #|  TRANSLATORS:
  17      Nickname of the Beatles
  18 |#
  19 (princ (_ "The Fabulous Four"))
  20 EOF
  21
  22 tmpfiles="$tmpfiles xg-lr-1.po"
  23 : ${XGETTEXT=xgettext}
  24 ${XGETTEXT} --omit-header --no-location --add-comments=TRANSLATORS: \
  25   xg-lr-1.jl -d xg-lr-1
  26 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
  27
  28 tmpfiles="$tmpfiles xg-lr-1.ok"
  29 cat <<EOF > xg-lr-1.ok
  30 msgid "help"
  31 msgstr ""
  32
  33 #. TRANSLATORS: This is an extracted comment.
  34 msgid "me"
  35 msgstr ""
  36
  37 msgid "Hey Jude"
  38 msgstr ""
  39
  40 #. TRANSLATORS:
  41 #. Nickname of the Beatles
  42 #.
  43 msgid "The Fabulous Four"
  44 msgstr ""
  45 EOF
  46
  47 : ${DIFF=diff}
  48 ${DIFF} xg-lr-1.ok xg-lr-1.po
  49 result=$?
  50
  51 rm -fr $tmpfiles
  52
  53 exit $result