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

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