intl/tst-gettext.c

   1 /* Test of the gettext functions.
   2    Copyright (C) 2000-2023 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <https://www.gnu.org/licenses/>.  */
  18
  19 #include <libintl.h>
  20 #include <locale.h>
  21 #include <mcheck.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25 #include <error.h>
  26 #include <errno.h>
  27
  28
  29 const struct
  30 {
  31   const char *msgid;
  32   const char *msgstr;
  33 } msgs[] =
  34 {
  35 #define INPUT(Str) { Str,
  36 #define OUTPUT(Str) Str },
  37 #include TESTSTRS_H
  38 };
  39
  40 const char *catname[] =
  41 {
  42   [LC_MESSAGES] = "LC_MESSAGES",
  43   [LC_TIME] = "LC_TIME",
  44   [LC_NUMERIC] = "LC_NUMERIC"
  45 };
  46
  47
  48 static int positive_gettext_test (void);
  49 static int negative_gettext_test (void);
  50 static int positive_dgettext_test (const char *domain);
  51 static int positive_dcgettext_test (const char *domain, int category);
  52 static int negative_dcgettext_test (const char *domain, int category);
  53
  54
  55 #define check_setlocale(cat, name) do {                                       \
  56     if (setlocale (cat, name) == NULL)                                        \
  57       {                                                                       \
  58         printf ("%s:%u: setlocale (%s, \"%s\"): %m\n",                        \
  59                 __FILE__, __LINE__, #cat, name);                              \
  60         result = 1;                                                           \
  61       }                                                                       \
  62   } while (0)
  63
  64 int
  65 main (int argc, char *argv[])
  66 {
  67   int result = 0;
  68
  69   /* For debugging.  */
  70   mtrace ();
  71
  72   /* This is the place where the .mo files are placed.  */
  73   if (argc > 1)
  74     {
  75       bindtextdomain ("existing-domain", argv[1]);
  76       bindtextdomain ("existing-time-domain", argv[1]);
  77       bindtextdomain ("non-existing-domain", argv[1]);
  78     }
  79
  80   /* The locale the catalog is created for is "existing-category".  Now
  81      set the various variables in question to this value and run the
  82      test.  */
  83   setenv ("LANGUAGE", "existing-locale", 1);
  84   setenv ("LC_ALL", "non-existing-locale", 1);
  85   setenv ("LC_MESSAGES", "non-existing-locale", 1);
  86   setenv ("LC_CTYPE", "non-existing-locale", 1);
  87   setenv ("LANG", "non-existing-locale", 1);
  88   check_setlocale (LC_CTYPE, "de_DE.UTF-8");
  89   check_setlocale (LC_MESSAGES, "de_DE.UTF-8");
  90   unsetenv ("OUTPUT_CHARSET");
  91   /* This is the name of the existing domain with a catalog for the
  92      LC_MESSAGES category.  */
  93   textdomain ("existing-domain");
  94   puts ("test `gettext' with LANGUAGE set");
  95   if (positive_gettext_test () != 0)
  96     {
  97       puts ("FAILED");
  98       result = 1;
  99     }
 100   /* This is the name of a non-existing domain with a catalog for the
 101      LC_MESSAGES category.  We leave this value set for the `dgettext'
 102      and `dcgettext' tests.  */
 103   textdomain ("non-existing-domain");
 104   puts ("test `gettext' with LANGUAGE set");
 105   if (negative_gettext_test () != 0)
 106     {
 107       puts ("FAILED");
 108       result = 1;
 109     }
 110   puts ("test `dgettext' with LANGUAGE set");
 111   if (positive_dgettext_test ("existing-domain") != 0)
 112     {
 113       puts ("FAILED");
 114       result = 1;
 115     }
 116
 117   /* Now the same tests with LC_ALL deciding.  */
 118   unsetenv ("LANGUAGE");
 119   setenv ("LC_ALL", "existing-locale", 1);
 120   check_setlocale (LC_ALL, "");
 121   puts ("test `gettext' with LC_ALL set");
 122   /* This is the name of the existing domain with a catalog for the
 123      LC_MESSAGES category.  */
 124   textdomain ("existing-domain");
 125   if (positive_gettext_test () != 0)
 126     {
 127       puts ("FAILED");
 128       result = 1;
 129     }
 130   /* This is the name of a non-existing domain with a catalog for the
 131      LC_MESSAGES category.  We leave this value set for the `dgettext'
 132      and `dcgettext' tests.  */
 133   textdomain ("non-existing-domain");
 134   puts ("test `gettext' with LC_ALL deciding");
 135   if (negative_gettext_test () != 0)
 136     {
 137       puts ("FAILED");
 138       result = 1;
 139     }
 140   puts ("test `dgettext' with LC_ALL deciding");
 141   if (positive_dgettext_test ("existing-domain") != 0)
 142     {
 143       puts ("FAILED");
 144       result = 1;
 145     }
 146
 147   /* Now the same tests with LC_MESSAGES deciding.  */
 148   unsetenv ("LC_ALL");
 149   setenv ("LC_MESSAGES", "existing-locale", 1);
 150   check_setlocale (LC_MESSAGES, "");
 151   setenv ("LC_TIME", "existing-locale", 1);
 152   check_setlocale (LC_TIME, "");
 153   setenv ("LC_NUMERIC", "non-existing-locale", 1);
 154   char *what = setlocale (LC_NUMERIC, "");
 155   if (what != NULL)
 156     {
 157       printf ("setlocale succeeded (%s), expected failure\n", what);
 158       result = 1;
 159     }
 160
 161   puts ("test `gettext' with LC_MESSAGES set");
 162   /* This is the name of the existing domain with a catalog for the
 163      LC_MESSAGES category.  */
 164   textdomain ("existing-domain");
 165   if (positive_gettext_test () != 0)
 166     {
 167       puts ("FAILED");
 168       result = 1;
 169     }
 170   /* This is the name of a non-existing domain with a catalog for the
 171      LC_MESSAGES category.  We leave this value set for the `dgettext'
 172      and `dcgettext' tests.  */
 173   textdomain ("non-existing-domain");
 174   puts ("test `gettext' with LC_MESSAGES deciding");
 175   if (negative_gettext_test () != 0)
 176     {
 177       puts ("FAILED");
 178       result = 1;
 179     }
 180   puts ("test `dgettext' with LC_MESSAGES deciding");
 181   if (positive_dgettext_test ("existing-domain") != 0)
 182     {
 183       puts ("FAILED");
 184       result = 1;
 185     }
 186   puts ("test `dcgettext' with category == LC_MESSAGES");
 187   if (positive_dcgettext_test ("existing-domain", LC_MESSAGES) != 0)
 188     {
 189       puts ("FAILED");
 190       result = 1;
 191     }
 192   /* Try a different category.  For this we also switch the domain.  */
 193   puts ("test `dcgettext' with LANGUAGE == LC_TIME");
 194   if (positive_dcgettext_test ("existing-time-domain", LC_TIME) != 0)
 195     {
 196       puts ("FAILED");
 197       result = 1;
 198     }
 199   /* This time use a category for which there is no catalog.  */
 200   puts ("test `dcgettext' with LANGUAGE == LC_NUMERIC");
 201   if (negative_dcgettext_test ("existing-domain", LC_NUMERIC) != 0)
 202     {
 203       puts ("FAILED");
 204       result = 1;
 205     }
 206
 207   /* Now the same tests with LANG deciding.  */
 208   unsetenv ("LC_MESSAGES");
 209   unsetenv ("LC_CTYPE");
 210   unsetenv ("LC_TIME");
 211   unsetenv ("LC_NUMERIC");
 212   setenv ("LANG", "existing-locale", 1);
 213   check_setlocale (LC_ALL, "");
 214   /* This is the name of the existing domain with a catalog for the
 215      LC_MESSAGES category.  */
 216   textdomain ("existing-domain");
 217   puts ("test `gettext' with LANG set");
 218   if (positive_gettext_test () != 0)
 219     {
 220       puts ("FAILED");
 221       result = 1;
 222     }
 223   /* This is the name of a non-existing domain with a catalog for the
 224      LC_MESSAGES category.  We leave this value set for the `dgettext'
 225      and `dcgettext' tests.  */
 226   textdomain ("non-existing-domain");
 227   puts ("test `gettext' with LANG set");
 228   if (negative_gettext_test () != 0)
 229     {
 230       puts ("FAILED");
 231       result = 1;
 232     }
 233   puts ("test `dgettext' with LANG set");
 234   if (positive_dgettext_test ("existing-domain") != 0)
 235     {
 236       puts ("FAILED");
 237       result = 1;
 238     }
 239
 240   check_setlocale (LC_ALL, "C");
 241
 242   return result;
 243 }
 244
 245
 246 static int
 247 positive_gettext_test (void)
 248 {
 249   size_t cnt;
 250   int result = 0;
 251
 252   for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
 253     {
 254       const char *found = gettext (msgs[cnt].msgid);
 255
 256       if (found == NULL
 257           || (msgs[cnt].msgstr[0] != '\0'
 258               && strcmp (found, msgs[cnt].msgstr) != 0))
 259         {
 260           /* Oops, shouldn't happen.  */
 261           printf ("\
 262   gettext (\"%s\") failed, returned \"%s\", expected \"%s\"\n",
 263                   msgs[cnt].msgid, found, msgs[cnt].msgstr);
 264           result = 1;
 265         }
 266     }
 267
 268   return result;
 269 }
 270
 271
 272 static int
 273 negative_gettext_test (void)
 274 {
 275   size_t cnt;
 276   int result = 0;
 277
 278   for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
 279     {
 280       const char *found = gettext (msgs[cnt].msgid);
 281
 282       if (found != msgs[cnt].msgid)
 283         {
 284           /* Oops, shouldn't happen.  */
 285           printf ("  gettext (\"%s\") failed\n", msgs[cnt].msgid);
 286           result = 1;
 287         }
 288     }
 289
 290   return result;
 291 }
 292
 293
 294 static int
 295 positive_dgettext_test (const char *domain)
 296 {
 297   size_t cnt;
 298   int result = 0;
 299
 300   for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
 301     {
 302       const char *found = dgettext (domain, msgs[cnt].msgid);
 303
 304       if (found == NULL
 305           || (msgs[cnt].msgstr[0] != '\0'
 306               && strcmp (found, msgs[cnt].msgstr) != 0))
 307         {
 308           /* Oops, shouldn't happen.  */
 309           printf ("\
 310   dgettext (\"%s\", \"%s\") failed, returned \"%s\", expected \"%s\"\n",
 311                   domain, msgs[cnt].msgid, found, msgs[cnt].msgstr);
 312           result = 1;
 313         }
 314     }
 315
 316   return result;
 317 }
 318
 319
 320 static int
 321 positive_dcgettext_test (const char *domain, int category)
 322 {
 323   size_t cnt;
 324   int result = 0;
 325
 326   for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
 327     {
 328       const char *found = dcgettext (domain, msgs[cnt].msgid, category);
 329
 330       if (found == NULL
 331           || (msgs[cnt].msgstr[0] != '\0'
 332               && strcmp (found, msgs[cnt].msgstr) != 0))
 333         {
 334           /* Oops, shouldn't happen.  */
 335           printf ("\
 336   dcgettext (\"%s\", \"%s\", %s) failed, returned \"%s\", expected \"%s\"\n",
 337                   domain, msgs[cnt].msgid, catname[category], found,
 338                   msgs[cnt].msgstr);
 339           result = 1;
 340         }
 341     }
 342
 343   return result;
 344 }
 345
 346
 347 static int
 348 negative_dcgettext_test (const char *domain, int category)
 349 {
 350   size_t cnt;
 351   int result = 0;
 352
 353   for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
 354     {
 355       const char *found = dcgettext (domain, msgs[cnt].msgid, category);
 356
 357       if (found != msgs[cnt].msgid)
 358         {
 359           /* Oops, shouldn't happen.  */
 360           printf ("  dcgettext (\"%s\", \"%s\", %s) failed\n",
 361                   domain, msgs[cnt].msgid, catname[category]);
 362           result = 1;
 363         }
 364     }
 365
 366   return result;
 367 }