#!/bin/sh | |
. "${srcdir=.}/init.sh"; path_prepend_ . ../src | |
# Test Scheme support: --add-comments option. | |
cat <<\EOF > xg-sc-3.scm | |
; a | |
(setq string ; b | |
; c | |
(_ ; d | |
"hello world" ; e | |
; f | |
)) | |
EOF | |
: ${XGETTEXT=xgettext} | |
${XGETTEXT} --add-comments --omit-header --no-location --keyword=_ \ | |
-d xg-sc-3.tmp xg-sc-3.scm || Exit 1 | |
LC_ALL=C tr -d '\r' < xg-sc-3.tmp.po > xg-sc-3.po || Exit 1 | |
cat <<EOF > xg-sc-3.ok | |
#. a | |
#. b | |
#. c | |
#. d | |
msgid "hello world" | |
msgstr "" | |
EOF | |
: ${DIFF=diff} | |
${DIFF} xg-sc-3.ok xg-sc-3.po | |
result=$? | |
exit $result |