| #!/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 |