gettext-tools/tests/xgettext-scheme-4

   1 #!/bin/sh
   2 . "${srcdir=.}/init.sh"; path_prepend_ . ../src
   3
   4 # Test Scheme support: GIMP script-fu extension _"..."
   5
   6 cat <<EOF > xg-sc-4.scm
   7 (script-fu-register "script-fu-paste-as-brush"
   8   _"New _Brush..."
   9   _"Paste the clipboard contents into a new brush"
  10   "Michael Natterer <mitch@gimp.org>"
  11   "Michael Natterer"
  12   "2005-09-25"
  13   ""
  14   SF-STRING     _"Brush name" "My Brush"
  15   SF-STRING     _"File name"  "mybrush"
  16   SF-ADJUSTMENT _"Spacing"    '(25 0 1000 1 1 1 0)
  17 )
  18 EOF
  19
  20 : ${XGETTEXT=xgettext}
  21 ${XGETTEXT} -k_ --omit-header --no-location --add-comments=TRANSLATORS: \
  22   -d xg-sc-4.tmp xg-sc-4.scm || exit 1
  23 LC_ALL=C tr -d '\r' < xg-sc-4.tmp.po > xg-sc-4.po || exit 1
  24
  25 cat <<EOF > xg-sc-4.ok
  26 msgid "New _Brush..."
  27 msgstr ""
  28
  29 msgid "Paste the clipboard contents into a new brush"
  30 msgstr ""
  31
  32 msgid "Brush name"
  33 msgstr ""
  34
  35 msgid "File name"
  36 msgstr ""
  37
  38 msgid "Spacing"
  39 msgstr ""
  40 EOF
  41
  42 : ${DIFF=diff}
  43 ${DIFF} xg-sc-4.ok xg-sc-4.po
  44 result=$?
  45
  46 exit $result