3 # Test Smalltalk support: --add-comments option.
6 trap 'rm -fr $tmpfiles' 1 2 3 15
8 tmpfiles="$tmpfiles xg-st-2.st"
9 cat <<\EOF > xg-st-2.st
11 "b" Transcript showCr:
15 "f" 'hello world' "h" ).
18 tmpfiles="$tmpfiles xg-st-2.tmp.po xg-st-2.po"
19 : ${XGETTEXT=xgettext}
20 ${XGETTEXT} --add-comments --omit-header --no-location \
21 -d xg-st-2.tmp xg-st-2.st
22 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
23 LC_ALL=C tr -d '\r' < xg-st-2.tmp.po > xg-st-2.po
24 test $? = 0 || { rm -fr $tmpfiles; exit 1; }
26 tmpfiles="$tmpfiles xg-st-2.ok"
27 cat <<EOF > xg-st-2.ok
39 ${DIFF} xg-st-2.ok xg-st-2.po