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

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