3 # Test checking of Tcl format strings.
6 trap 'rm -fr $tmpfiles' 1 2 3 15
8 tmpfiles="$tmpfiles f-t-2.data"
9 cat <<\EOF > f-t-2.data
10 # Valid: %% doesn't count
13 # Invalid: invalid msgstr
16 # Valid: same arguments
19 # Valid: same arguments, with different widths
22 # Valid: same arguments but in numbered syntax
27 msgstr "xyz%3$c%2$g%1$s"
28 # Invalid: too few arguments
29 msgid "abc%2$udef%1$s"
31 # Invalid: too few arguments
34 # Invalid: too many arguments
37 # Valid: same numbered arguments, with different widths
39 msgstr "xyz%2$4s%1$5s"
40 # Invalid: missing argument
41 msgid "abc%2$sdef%1$u"
43 # Invalid: missing argument
44 msgid "abc%1$sdef%2$u"
46 # Invalid: added argument
48 msgstr "xyz%1$uvw%2$c"
49 # Valid: type compatibility
52 # Valid: type compatibility
55 # Valid: type compatibility
58 # Valid: type compatibility
61 # Valid: type compatibility
64 # Valid: type compatibility
67 # Valid: type compatibility
70 # Valid: type compatibility
73 # Invalid: type incompatibility
76 # Invalid: type incompatibility
79 # Invalid: type incompatibility
82 # Invalid: type incompatibility
85 # Invalid: type incompatibility
88 # Invalid: type incompatibility
91 # Invalid: type incompatibility
94 # Invalid: type incompatibility
97 # Invalid: type incompatibility
100 # Invalid: type incompatibility
103 # Invalid: type incompatibility for width
110 while read comment; do
114 tmpfiles="$tmpfiles f-t-2-$n.po f-t-2-$n.mo"
115 cat <<EOF > f-t-2-$n.po
121 if echo "$comment" | grep 'Valid:' > /dev/null; then
122 if ${MSGFMT} --check-format -o f-t-2-$n.mo f-t-2-$n.po; then
128 ${MSGFMT} --check-format -o f-t-2-$n.mo f-t-2-$n.po 2> /dev/null
135 if test -n "$fail"; then
136 echo "Format string checking error:" 1>&2
140 rm -f f-t-2-$n.po f-t-2-$n.mo