1#!/bin/sh
2. "${srcdir=.}/init.sh"; path_prepend_ . ../src
3
4# Test Scheme support: strings outside any function call.
5
6cat <<EOF > xg-sc-2.scm
7(define foo '("bar" "quux"))
8EOF
9
10: ${XGETTEXT=xgettext}
11${XGETTEXT} -k_ --omit-header --no-location --force-po -d xg-sc-2 xg-sc-2.scm || Exit 1
12
13cat <<EOF > xg-sc-2.ok
14EOF
15
16: ${DIFF=diff}
17${DIFF} xg-sc-2.ok xg-sc-2.po
18result=$?
19
20exit $result
21