summaryrefslogtreecommitdiffstats
path: root/gettext-tools/tests/xgettext-scheme-4
blob: 1851a46b1d763dab64797320b08da54b775f3d48 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#!/bin/sh
. "${srcdir=.}/init.sh"; path_prepend_ . ../src

# Test Scheme support: GIMP script-fu extension _"..."

cat <<EOF > xg-sc-4.scm
(script-fu-register "script-fu-paste-as-brush"
  _"New _Brush..."
  _"Paste the clipboard contents into a new brush"
  "Michael Natterer <mitch@gimp.org>"
  "Michael Natterer"
  "2005-09-25"
  ""
  SF-STRING     _"Brush name" "My Brush"
  SF-STRING     _"File name"  "mybrush"
  SF-ADJUSTMENT _"Spacing"    '(25 0 1000 1 1 1 0)
)
EOF

: ${XGETTEXT=xgettext}
${XGETTEXT} -k_ --omit-header --no-location --add-comments=TRANSLATORS: \
  -d xg-sc-4.tmp xg-sc-4.scm || Exit 1
LC_ALL=C tr -d '\r' < xg-sc-4.tmp.po > xg-sc-4.po || Exit 1

cat <<EOF > xg-sc-4.ok
msgid "New _Brush..."
msgstr ""

msgid "Paste the clipboard contents into a new brush"
msgstr ""

msgid "Brush name"
msgstr ""

msgid "File name"
msgstr ""

msgid "Spacing"
msgstr ""
EOF

: ${DIFF=diff}
${DIFF} xg-sc-4.ok xg-sc-4.po
result=$?

exit $result