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