gettext-tools/tests/xgettext-smalltalk-1

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