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