1#! /bin/sh 2. "${srcdir=.}/init.sh"; path_prepend_ . ../src 3 4# Test recognition of Object Pascal format strings. 5 6cat <<\EOF > f-op-1.data 7# Valid: no argument 8"abc%%" 9# Valid: one string argument 10"abc%s" 11# Valid: one integer argument 12"abc%d" 13# Valid: one integer argument 14"abc%X" 15# Valid: one floating-point argument 16"abc%e" 17# Valid: one floating-point argument 18"abc%f" 19# Valid: one floating-point argument 20"abc%g" 21# Valid: one floating-point argument 22"abc%n" 23# Valid: one floating-point argument 24"abc%m" 25# Valid: one pointer argument 26"abc%p" 27# Valid: one argument with flags 28"abc%-g" 29# Valid: one argument with width 30"abc%2g" 31# Valid: one argument with width 32"abc%*g" 33# Valid: one argument with precision 34"abc%.4g" 35# Valid: one argument with precision 36"abc%.*g" 37# Valid: one argument with width and precision 38"abc%14.4g" 39# Valid: one argument with width and precision 40"abc%14.*g" 41# Valid: one argument with width and precision 42"abc%*.4g" 43# Valid: one argument with width and precision 44"abc%*.*g" 45# Invalid: unterminated 46"abc%" 47# Invalid: unknown format specifier 48"abc%y" 49# Invalid: flags after width 50"abc%*-g" 51# Invalid: twice precision 52"abc%.4.2g" 53# Valid: three arguments 54"abc%d%x%x" 55# Valid: a numbered argument 56"abc%0:d" 57# Valid: a numbered argument with omitted number 58"abc%:d" 59# Valid: two-digit numbered arguments 60"abc%10:def%9:dgh%8:dij%7:dkl%6:dmn%5:dop%4:dqr%3:dst%2:duv%1:dwx%0:dyz" 61# Invalid: unterminated number 62"abc%1" 63# Invalid: flags before number 64"abc%-0:d" 65# Valid: three arguments, two with same number 66"abc%0:4e,%1:p,%0:g" 67# Invalid: argument with conflicting types 68"abc%0:4x,%1:p,%0:s" 69# Invalid: argument with conflicting types 70"abc%0:4e,%1:p,%0:d" 71# Valid: argument with different but not conflicting types 72"abc%0:4x,%1:p,%0:d" 73# Valid: mixing of numbered and unnumbered arguments 74"abc%d%1:x" 75# Valid: numbered argument with constant precision 76"abc%0:.9x" 77# Valid: mixing of numbered and unnumbered arguments 78"abc%3:.*x" 79# Valid: missing non-final argument 80"abc%1:x%3:s" 81# Valid: permutation 82"abc%1:ddef%0:d" 83# Valid: multiple uses of same argument 84"abc%2:xdef%1:pghi%2:x" 85# Valid: one argument with width 86"abc%1:*g" 87# Valid: one argument with width and precision 88"abc%2:*.*g" 89EOF 90 91: ${XGETTEXT=xgettext} 92n=0 93while read comment; do 94 read string 95 n=`expr $n + 1` 96 echo "x.y=${string}" | sed -e "s/\"/'/g" > f-op-1-$n.in 97 ${XGETTEXT} -L RST -o f-op-1-$n.po f-op-1-$n.in || Exit 1 98 test -f f-op-1-$n.po || Exit 1 99 fail= 100 if echo "$comment" | grep 'Valid:' > /dev/null; then 101 if grep object-pascal-format f-op-1-$n.po > /dev/null; then 102 : 103 else 104 fail=yes 105 fi 106 else 107 if grep object-pascal-format f-op-1-$n.po > /dev/null; then 108 fail=yes 109 else 110 : 111 fi 112 fi 113 if test -n "$fail"; then 114 echo "Format string recognition error:" 1>&2 115 cat f-op-1-$n.in 1>&2 116 echo "Got:" 1>&2 117 cat f-op-1-$n.po 1>&2 118 Exit 1 119 fi 120 rm -f f-op-1-$n.in f-op-1-$n.po 121done < f-op-1.data 122 123Exit 0 124