gettext-tools/tests/xgettext-6

   1 #!/bin/sh
   2 . "${srcdir=.}/init.sh"; path_prepend_ . ../src
   3
   4 # Test of position dependent recognition of format strings.
   5
   6 cat <<\EOF > xg-test6.c
   7 fprintf (fp, gettext ("c-format positive1"), gettext ("c-format negative1"));
   8 printk (gettext ("c-format negative2"));
   9 EOF
  10
  11 cat <<\EOF > xg-test6.sh
  12 eval_gettext "sh-format positive1" "`gettext \"sh-format negative1\"`"
  13 echo "`gettext \"sh-format negative2\"`"
  14 EOF
  15
  16 cat <<\EOF > xg-test6.py
  17 my_printf (gettext ("python-format positive1"),
  18            gettext ("python-format negative1"));
  19 printk (gettext ("python-format negative2"));
  20 EOF
  21
  22 cat <<\EOF > xg-test6.lisp
  23 (format t (gettext "lisp-format positive1") (gettext "lisp-format negative1"))
  24 (prin1 (gettext "lisp-format negative2"))
  25 EOF
  26
  27 cat <<\EOF > xg-test6.el
  28 (format (_ "elisp-format positive1") (_ "elisp-format negative1"))
  29 (printk (_ "elisp-format negative2"))
  30 EOF
  31
  32 cat <<\EOF > xg-test6.jl
  33 (format stream (_ "librep-format positive1") (_ "librep-format negative1"))
  34 (printk (_ "librep-format negative2"))
  35 EOF
  36
  37 cat <<\EOF > xg-test6.java
  38 MessageFormat.format(gettext("java-format positive1"),
  39                      gettext("java-format negative1"));
  40 System.err.println(gettext("java-format negative2"));
  41 EOF
  42
  43 cat <<\EOF > xg-test6.awk
  44 printf dcgettext ("awk-format positive1"), dcgettext ("awk-format negative1");
  45 printf (dcgettext ("awk-format positive2"), dcgettext ("awk-format negative2"));
  46 printf dcgettext ("awk-format positive3"); dcgettext ("awk-format negative3");
  47 printk dcgettext ("awk-format negative4");
  48 EOF
  49
  50 cat <<\EOF > xg-test6.ycp
  51 sformat (_("ycp-format positive1"), _("ycp-format negative1"));
  52 printk (_("ycp-format negative2"));
  53 EOF
  54
  55 cat <<\EOF > xg-test6.tcl
  56 [format [::msgcat::mc "tcl-format positive1"]
  57         [::msgcat::mc "tcl-format negative1"]]
  58 [print [::msgcat::mc "tcl-format negative2"]]
  59 EOF
  60
  61 cat <<\EOF > xg-test6.pl
  62 printf gettext "perl-format positive1", gettext ("perl-format negative1");
  63 gettext ("perl-format negative2");
  64 printf gettext "perl-format positive2"; gettext ("perl-format negative3");
  65 gettext ("perl-format negative4");
  66 print sprintf gettext "perl-format positive3";
  67 print kprintf gettext "perl-format negative5";
  68 EOF
  69
  70 cat <<\EOF > xg-test6.php
  71 <? php
  72 printf (_ ("php-format positive1"), _ ("php-format negative1"));
  73 printk (_ ("php-format negative2"));
  74 EOF
  75
  76 : ${XGETTEXT=xgettext}
  77 ${XGETTEXT} --omit-header --no-location -d xg-test6.tmp \
  78   --flag=my_printf:1:python-format \
  79   xg-test6.c xg-test6.sh xg-test6.py xg-test6.lisp xg-test6.el \
  80   xg-test6.jl xg-test6.java xg-test6.awk xg-test6.ycp xg-test6.tcl \
  81   xg-test6.pl xg-test6.php  || exit 1
  82 LC_ALL=C tr -d '\r' < xg-test6.tmp.po > xg-test6.po || exit 1
  83
  84 cat <<\EOF > xg-test6.ok
  85 #, c-format
  86 msgid "c-format positive1"
  87 msgstr ""
  88
  89 msgid "c-format negative1"
  90 msgstr ""
  91
  92 msgid "c-format negative2"
  93 msgstr ""
  94
  95 #, sh-format
  96 msgid "sh-format positive1"
  97 msgstr ""
  98
  99 msgid "sh-format negative1"
 100 msgstr ""
 101
 102 msgid "sh-format negative2"
 103 msgstr ""
 104
 105 #, python-format
 106 msgid "python-format positive1"
 107 msgstr ""
 108
 109 msgid "python-format negative1"
 110 msgstr ""
 111
 112 msgid "python-format negative2"
 113 msgstr ""
 114
 115 #, lisp-format
 116 msgid "lisp-format positive1"
 117 msgstr ""
 118
 119 msgid "lisp-format negative1"
 120 msgstr ""
 121
 122 msgid "lisp-format negative2"
 123 msgstr ""
 124
 125 #, elisp-format
 126 msgid "elisp-format positive1"
 127 msgstr ""
 128
 129 msgid "elisp-format negative1"
 130 msgstr ""
 131
 132 msgid "elisp-format negative2"
 133 msgstr ""
 134
 135 #, librep-format
 136 msgid "librep-format positive1"
 137 msgstr ""
 138
 139 msgid "librep-format negative1"
 140 msgstr ""
 141
 142 msgid "librep-format negative2"
 143 msgstr ""
 144
 145 #, java-format
 146 msgid "java-format positive1"
 147 msgstr ""
 148
 149 msgid "java-format negative1"
 150 msgstr ""
 151
 152 msgid "java-format negative2"
 153 msgstr ""
 154
 155 #, awk-format
 156 msgid "awk-format positive1"
 157 msgstr ""
 158
 159 msgid "awk-format negative1"
 160 msgstr ""
 161
 162 #, awk-format
 163 msgid "awk-format positive2"
 164 msgstr ""
 165
 166 msgid "awk-format negative2"
 167 msgstr ""
 168
 169 #, awk-format
 170 msgid "awk-format positive3"
 171 msgstr ""
 172
 173 msgid "awk-format negative3"
 174 msgstr ""
 175
 176 msgid "awk-format negative4"
 177 msgstr ""
 178
 179 #, ycp-format
 180 msgid "ycp-format positive1"
 181 msgstr ""
 182
 183 msgid "ycp-format negative1"
 184 msgstr ""
 185
 186 msgid "ycp-format negative2"
 187 msgstr ""
 188
 189 #, tcl-format
 190 msgid "tcl-format positive1"
 191 msgstr ""
 192
 193 msgid "tcl-format negative1"
 194 msgstr ""
 195
 196 msgid "tcl-format negative2"
 197 msgstr ""
 198
 199 #, perl-format
 200 msgid "perl-format positive1"
 201 msgstr ""
 202
 203 msgid "perl-format negative1"
 204 msgstr ""
 205
 206 msgid "perl-format negative2"
 207 msgstr ""
 208
 209 #, perl-format
 210 msgid "perl-format positive2"
 211 msgstr ""
 212
 213 msgid "perl-format negative3"
 214 msgstr ""
 215
 216 msgid "perl-format negative4"
 217 msgstr ""
 218
 219 #, perl-format
 220 msgid "perl-format positive3"
 221 msgstr ""
 222
 223 msgid "perl-format negative5"
 224 msgstr ""
 225
 226 #, php-format
 227 msgid "php-format positive1"
 228 msgstr ""
 229
 230 msgid "php-format negative1"
 231 msgstr ""
 232
 233 msgid "php-format negative2"
 234 msgstr ""
 235 EOF
 236
 237 : ${DIFF=diff}
 238 ${DIFF} xg-test6.ok xg-test6.po
 239 result=$?
 240
 241 exit $result