1#!/bin/sh 2 3# Test Scheme support: strings outside any function call. 4 5tmpfiles="" 6trap 'rm -fr $tmpfiles' 1 2 3 15 7 8tmpfiles="$tmpfiles xg-sc-2.scm" 9cat <<EOF > xg-sc-2.scm 10(define foo '("bar" "quux")) 11EOF 12 13tmpfiles="$tmpfiles xg-sc-2.po" 14: ${XGETTEXT=xgettext} 15${XGETTEXT} -k_ --omit-header --no-location --force-po -d xg-sc-2 xg-sc-2.scm 16test $? = 0 || { rm -fr $tmpfiles; exit 1; } 17 18tmpfiles="$tmpfiles xg-sc-2.ok" 19cat <<EOF > xg-sc-2.ok 20EOF 21 22: ${DIFF=diff} 23${DIFF} xg-sc-2.ok xg-sc-2.po 24result=$? 25 26rm -fr $tmpfiles 27 28exit $result 29