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