#! /bin/sh
+. "${srcdir=.}/init.sh"; path_prepend_ . ../src
# Test recognition of Object Pascal format strings.
-tmpfiles=""
-trap 'rm -fr $tmpfiles' 1 2 3 15
-
-tmpfiles="$tmpfiles f-op-1.data"
cat <<\EOF > f-op-1.data
# Valid: no argument
"abc%%"
while read comment; do
read string
n=`expr $n + 1`
- tmpfiles="$tmpfiles f-op-1-$n.in f-op-1-$n.po"
echo "x.y=${string}" | sed -e "s/\"/'/g" > f-op-1-$n.in
${XGETTEXT} -L RST -o f-op-1-$n.po f-op-1-$n.in || exit 1
test -f f-op-1-$n.po || exit 1
rm -f f-op-1-$n.in f-op-1-$n.po
done < f-op-1.data
-rm -fr $tmpfiles
-
exit 0