1#!/bin/sh
2
3# Test Scheme support: --add-comments option.
4
5tmpfiles=""
6trap 'rm -fr $tmpfiles' 1 2 3 15
7
8tmpfiles="$tmpfiles xg-sc-1.scm"
9cat <<EOF > xg-sc-1.scm
10; This comment will not be extracted.
11(display (_ "help"))
12;;  TRANSLATORS: This is an extracted comment.
13(display (_ "me"))
14#!  Not extracted either.
15!#
16(display (_ "The Fabulous Four"))
17EOF
18
19tmpfiles="$tmpfiles xg-sc-1.po"
20: ${XGETTEXT=xgettext}
21${XGETTEXT} -k_ --omit-header --no-location --add-comments=TRANSLATORS: \
22  -d xg-sc-1 xg-sc-1.scm
23test $? = 0 || { rm -fr $tmpfiles; exit 1; }
24
25tmpfiles="$tmpfiles xg-sc-1.ok"
26cat <<EOF > xg-sc-1.ok
27msgid "help"
28msgstr ""
29
30#. TRANSLATORS: This is an extracted comment.
31msgid "me"
32msgstr ""
33
34msgid "The Fabulous Four"
35msgstr ""
36EOF
37
38: ${DIFF=diff}
39${DIFF} xg-sc-1.ok xg-sc-1.po
40result=$?
41
42rm -fr $tmpfiles
43
44exit $result
45