gettext-tools/tests/format-gfc-internal-1

   1 #! /bin/sh
   2
   3 # Test recognition of GFC internal format strings.
   4
   5 tmpfiles=""
   6 trap 'rm -fr $tmpfiles' 1 2 3 15
   7
   8 tmpfiles="$tmpfiles f-gf-1.data"
   9 cat <<\EOF > f-gf-1.data
  10 # Valid: no argument
  11 "abc%%"
  12 # Valid: void argument
  13 "abc%C"
  14 # Valid: one locus argument
  15 "abc%L"
  16 # Valid: one character argument
  17 "abc%c"
  18 # Valid: one string argument
  19 "abc%s"
  20 # Valid: one integer argument
  21 "abc%i"
  22 # Valid: one integer argument
  23 "abc%d"
  24 # Valid: one integer argument
  25 "abc%u"
  26 # Valid: one argument with size specifier
  27 "abc%li"
  28 # Valid: one argument with size specifier
  29 "abc%ld"
  30 # Valid: one argument with size specifier
  31 "abc%lu"
  32 # Invalid: one argument with invalid size specifier
  33 "abc%lli"
  34 # Invalid: one argument with invalid size specifier
  35 "abc%llu"
  36 # Invalid: one argument with invalid size specifier
  37 "abc%ls"
  38 # Invalid: unterminated
  39 "abc%"
  40 # Invalid: unknown format specifier
  41 "abc%y"
  42 # Invalid: precision
  43 "abc%.*s"
  44 # Valid: three arguments
  45 "abc%d%u%u"
  46 # Valid: a numbered argument
  47 "abc%1$d"
  48 # Invalid: zero
  49 "abc%0$d"
  50 # Invalid: unterminated number
  51 "abc%1"
  52 # Valid: three arguments, two with same number
  53 "abc%1$i,%2$c,%1$d"
  54 # Invalid: argument with conflicting types
  55 "abc%1$i,%2$c,%1$u"
  56 # Valid: multiple uses of void argument
  57 "abc%Cdef%dghi%C"
  58 # Invalid: argument with conflicting types
  59 "abc%1$i,%2$c,%1$C"
  60 # Valid: mixing of numbered and unnumbered arguments
  61 "abc%d%2$u"
  62 # Invalid: missing non-final argument
  63 "abc%2$u%3$s"
  64 # Valid: non-final argument is void
  65 "abc%C%2$u%3$s"
  66 # Valid: permutation
  67 "abc%2$ddef%1$d"
  68 # Valid: multiple uses of same argument
  69 "abc%2$udef%1$sghi%2$u"
  70 EOF
  71
  72 : ${XGETTEXT=xgettext}
  73 n=0
  74 while read comment; do
  75   read string
  76   n=`expr $n + 1`
  77   tmpfiles="$tmpfiles f-gf-1-$n.in f-gf-1-$n.po"
  78   cat <<EOF > f-gf-1-$n.in
  79 gettext(${string});
  80 EOF
  81   ${XGETTEXT} -L GCC-source -o f-gf-1-$n.po f-gf-1-$n.in || exit 1
  82   test -f f-gf-1-$n.po || exit 1
  83   fail=
  84   if echo "$comment" | grep 'Valid:' > /dev/null; then
  85     if grep gfc-internal-format f-gf-1-$n.po > /dev/null; then
  86       :
  87     else
  88       fail=yes
  89     fi
  90   else
  91     if grep gfc-internal-format f-gf-1-$n.po > /dev/null; then
  92       fail=yes
  93     else
  94       :
  95     fi
  96   fi
  97   if test -n "$fail"; then
  98     echo "Format string recognition error:" 1>&2
  99     cat f-gf-1-$n.in 1>&2
 100     echo "Got:" 1>&2
 101     cat f-gf-1-$n.po 1>&2
 102     exit 1
 103   fi
 104   rm -f f-gf-1-$n.in f-gf-1-$n.po
 105 done < f-gf-1.data
 106
 107 rm -fr $tmpfiles
 108
 109 exit 0