gettext-tools/tests/xgettext-scheme-1

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