gettext-tools/tests/format-elisp-1

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