Home | History | Annotate | Line # | Download | only in tests 
      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   -d xg-el-1 xg-el-1.el
     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
     52