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.tmp.po xg-sc-1.po"
  20 : ${XGETTEXT=xgettext}
  21 ${XGETTEXT} -k_ --omit-header --no-location --add-comments=TRANSLATORS: \
  22   -d xg-sc-1.tmp xg-sc-1.scm
  23 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
  24 LC_ALL=C tr -d '\r' < xg-sc-1.tmp.po > xg-sc-1.po
  25 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
  26
  27 tmpfiles="$tmpfiles xg-sc-1.ok"
  28 cat <<EOF > xg-sc-1.ok
  29 msgid "help"
  30 msgstr ""
  31
  32 #. TRANSLATORS: This is an extracted comment.
  33 msgid "me"
  34 msgstr ""
  35
  36 msgid "The Fabulous Four"
  37 msgstr ""
  38 EOF
  39
  40 : ${DIFF=diff}
  41 ${DIFF} xg-sc-1.ok xg-sc-1.po
  42 result=$?
  43
  44 rm -fr $tmpfiles
  45
  46 exit $result