locale/tst-C-locale.c

   1 /* Tests of C and POSIX locale contents.
   2    Copyright (C) 2000, 2001 Free Software Foundation, Inc.
   3    Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Library General Public License as
   7    published by the Free Software Foundation; either version 2 of the
   8    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    Library General Public License for more details.
  14
  15    You should have received a copy of the GNU Library General Public
  16    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  17    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18    Boston, MA 02111-1307, USA.  */
  19
  20 #include <ctype.h>
  21 #include <langinfo.h>
  22 #include <limits.h>
  23 #include <locale.h>
  24 #include <stdio.h>
  25 #include <string.h>
  26 #include <wchar.h>
  27
  28
  29 static int
  30 run_test (const char *locname)
  31 {
  32   struct lconv *lc;
  33   const char *str;
  34   const wchar_t *wstr;
  35   int result = 0;
  36   __locale_t loc;
  37
  38   /* ISO C stuff.  */
  39   lc = localeconv ();
  40   if (lc == NULL)
  41     {
  42       printf ("localeconv failed for locale %s\n", locname);
  43       result = 1;
  44     }
  45   else
  46     {
  47 #define STRTEST(name, exp) \
  48       do                                                                      \
  49         if (strcmp (lc->name, exp) != 0)                                      \
  50           {                                                                   \
  51             printf (#name " in locale %s wrong (is \"%s\", should be \"%s\")\n",\
  52                     locname, lc->name, exp);                                  \
  53             result = 1;                                                       \
  54           }                                                                   \
  55       while (0)
  56       STRTEST (decimal_point, ".");
  57       STRTEST (thousands_sep, "");
  58       STRTEST (grouping, "");
  59       STRTEST (mon_decimal_point, "");
  60       STRTEST (mon_thousands_sep, "");
  61       STRTEST (mon_grouping, "");
  62       STRTEST (positive_sign, "");
  63       STRTEST (negative_sign, "");
  64       STRTEST (currency_symbol, "");
  65       STRTEST (int_curr_symbol, "");
  66
  67 #define CHARTEST(name, exp) \
  68       do                                                                      \
  69         if (lc->name != exp)                                                  \
  70           {                                                                   \
  71             printf (#name " in locale %s wrong (is %d, should be %d)\n",      \
  72                     locname, lc->name, CHAR_MAX);                             \
  73             result = 1;                                                       \
  74           }                                                                   \
  75       while (0)
  76       CHARTEST (frac_digits, CHAR_MAX);
  77       CHARTEST (p_cs_precedes, CHAR_MAX);
  78       CHARTEST (n_cs_precedes, CHAR_MAX);
  79       CHARTEST (p_sep_by_space, CHAR_MAX);
  80       CHARTEST (n_sep_by_space, CHAR_MAX);
  81       CHARTEST (p_sign_posn, CHAR_MAX);
  82       CHARTEST (n_sign_posn, CHAR_MAX);
  83       CHARTEST (int_frac_digits, CHAR_MAX);
  84       CHARTEST (int_p_cs_precedes, CHAR_MAX);
  85       CHARTEST (int_n_cs_precedes, CHAR_MAX);
  86       CHARTEST (int_p_sep_by_space, CHAR_MAX);
  87       CHARTEST (int_n_sep_by_space, CHAR_MAX);
  88       CHARTEST (int_p_sign_posn, CHAR_MAX);
  89       CHARTEST (int_n_sign_posn, CHAR_MAX);
  90     }
  91
  92 #undef STRTEST
  93 #define STRTEST(name, exp) \
  94   str = nl_langinfo (name);                                                   \
  95   if (strcmp (str, exp) != 0)                                                 \
  96     {                                                                         \
  97       printf ("nl_langinfo(" #name ") in locale %s wrong "                    \
  98               "(is \"%s\", should be \"%s\")\n", locname, str, exp);          \
  99       result = 1;                                                             \
 100     }
 101 #define WSTRTEST(name, exp) \
 102   wstr = (wchar_t *) nl_langinfo (name);                                      \
 103   if (wcscmp (wstr, exp) != 0)                                                \
 104     {                                                                         \
 105       printf ("nl_langinfo(" #name ") in locale %s wrong "                    \
 106               "(is \"%S\", should be \"%S\")\n", locname, wstr, exp);         \
 107       result = 1;                                                             \
 108     }
 109
 110   /* Unix stuff.  */
 111   STRTEST (ABDAY_1, "Sun");
 112   STRTEST (ABDAY_2, "Mon");
 113   STRTEST (ABDAY_3, "Tue");
 114   STRTEST (ABDAY_4, "Wed");
 115   STRTEST (ABDAY_5, "Thu");
 116   STRTEST (ABDAY_6, "Fri");
 117   STRTEST (ABDAY_7, "Sat");
 118   STRTEST (DAY_1, "Sunday");
 119   STRTEST (DAY_2, "Monday");
 120   STRTEST (DAY_3, "Tuesday");
 121   STRTEST (DAY_4, "Wednesday");
 122   STRTEST (DAY_5, "Thursday");
 123   STRTEST (DAY_6, "Friday");
 124   STRTEST (DAY_7, "Saturday");
 125   STRTEST (ABMON_1, "Jan");
 126   STRTEST (ABMON_2, "Feb");
 127   STRTEST (ABMON_3, "Mar");
 128   STRTEST (ABMON_4, "Apr");
 129   STRTEST (ABMON_5, "May");
 130   STRTEST (ABMON_6, "Jun");
 131   STRTEST (ABMON_7, "Jul");
 132   STRTEST (ABMON_8, "Aug");
 133   STRTEST (ABMON_9, "Sep");
 134   STRTEST (ABMON_10, "Oct");
 135   STRTEST (ABMON_11, "Nov");
 136   STRTEST (ABMON_12, "Dec");
 137   STRTEST (MON_1, "January");
 138   STRTEST (MON_2, "February");
 139   STRTEST (MON_3, "March");
 140   STRTEST (MON_4, "April");
 141   STRTEST (MON_5, "May");
 142   STRTEST (MON_6, "June");
 143   STRTEST (MON_7, "July");
 144   STRTEST (MON_8, "August");
 145   STRTEST (MON_9, "September");
 146   STRTEST (MON_10, "October");
 147   STRTEST (MON_11, "November");
 148   STRTEST (MON_12, "December");
 149   STRTEST (AM_STR, "AM");
 150   STRTEST (PM_STR, "PM");
 151   STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");
 152   STRTEST (D_FMT, "%m/%d/%y");
 153   STRTEST (T_FMT, "%H:%M:%S");
 154   STRTEST (T_FMT_AMPM, "%I:%M:%S %p");
 155
 156   STRTEST (RADIXCHAR, ".");
 157   STRTEST (THOUSEP, "");
 158
 159   STRTEST (YESEXPR, "^[yY]");
 160   STRTEST (NOEXPR, "^[nN]");
 161
 162   /* Extensions.  */
 163   WSTRTEST (_NL_WABDAY_1, L"Sun");
 164   WSTRTEST (_NL_WABDAY_2, L"Mon");
 165   WSTRTEST (_NL_WABDAY_3, L"Tue");
 166   WSTRTEST (_NL_WABDAY_4, L"Wed");
 167   WSTRTEST (_NL_WABDAY_5, L"Thu");
 168   WSTRTEST (_NL_WABDAY_6, L"Fri");
 169   WSTRTEST (_NL_WABDAY_7, L"Sat");
 170   WSTRTEST (_NL_WDAY_1, L"Sunday");
 171   WSTRTEST (_NL_WDAY_2, L"Monday");
 172   WSTRTEST (_NL_WDAY_3, L"Tuesday");
 173   WSTRTEST (_NL_WDAY_4, L"Wednesday");
 174   WSTRTEST (_NL_WDAY_5, L"Thursday");
 175   WSTRTEST (_NL_WDAY_6, L"Friday");
 176   WSTRTEST (_NL_WDAY_7, L"Saturday");
 177   WSTRTEST (_NL_WABMON_1, L"Jan");
 178   WSTRTEST (_NL_WABMON_2, L"Feb");
 179   WSTRTEST (_NL_WABMON_3, L"Mar");
 180   WSTRTEST (_NL_WABMON_4, L"Apr");
 181   WSTRTEST (_NL_WABMON_5, L"May");
 182   WSTRTEST (_NL_WABMON_6, L"Jun");
 183   WSTRTEST (_NL_WABMON_7, L"Jul");
 184   WSTRTEST (_NL_WABMON_8, L"Aug");
 185   WSTRTEST (_NL_WABMON_9, L"Sep");
 186   WSTRTEST (_NL_WABMON_10, L"Oct");
 187   WSTRTEST (_NL_WABMON_11, L"Nov");
 188   WSTRTEST (_NL_WABMON_12, L"Dec");
 189   WSTRTEST (_NL_WMON_1, L"January");
 190   WSTRTEST (_NL_WMON_2, L"February");
 191   WSTRTEST (_NL_WMON_3, L"March");
 192   WSTRTEST (_NL_WMON_4, L"April");
 193   WSTRTEST (_NL_WMON_5, L"May");
 194   WSTRTEST (_NL_WMON_6, L"June");
 195   WSTRTEST (_NL_WMON_7, L"July");
 196   WSTRTEST (_NL_WMON_8, L"August");
 197   WSTRTEST (_NL_WMON_9, L"September");
 198   WSTRTEST (_NL_WMON_10, L"October");
 199   WSTRTEST (_NL_WMON_11, L"November");
 200   WSTRTEST (_NL_WMON_12, L"December");
 201   WSTRTEST (_NL_WAM_STR, L"AM");
 202   WSTRTEST (_NL_WPM_STR, L"PM");
 203   WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");
 204   WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");
 205   WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");
 206   WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");
 207
 208   STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");
 209   WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");
 210
 211   STRTEST (INT_CURR_SYMBOL, "");
 212   STRTEST (CURRENCY_SYMBOL, "");
 213   STRTEST (MON_DECIMAL_POINT, "");
 214   STRTEST (MON_THOUSANDS_SEP, "");
 215   STRTEST (MON_GROUPING, "");
 216   STRTEST (POSITIVE_SIGN, "");
 217   STRTEST (NEGATIVE_SIGN, "");
 218   STRTEST (GROUPING, "");
 219
 220   STRTEST (YESSTR, "");
 221   STRTEST (NOSTR, "");
 222
 223   /* Test the new locale mechanisms.  */
 224   loc = __newlocale (LC_ALL, locname, NULL);
 225   if (loc == NULL)
 226     {
 227       printf ("cannot create locale object for locale %s\n", locname);
 228       result = 1;
 229     }
 230   else
 231     {
 232       int c;
 233
 234 #undef STRTEST
 235 #define STRTEST(name, exp) \
 236       str = __nl_langinfo_l (name, loc);                                      \
 237       if (strcmp (str, exp) != 0)                                             \
 238         {                                                                     \
 239           printf ("__nl_langinfo_l(" #name ") in locale %s wrong "            \
 240                   "(is \"%s\", should be \"%s\")\n", locname, str, exp);      \
 241           result = 1;                                                         \
 242         }
 243 #undef WSTRTEST
 244 #define WSTRTEST(name, exp) \
 245       wstr = (wchar_t *) __nl_langinfo_l (name, loc);                         \
 246       if (wcscmp (wstr, exp) != 0)                                            \
 247         {                                                                     \
 248           printf ("__nl_langinfo_l(" #name ") in locale %s wrong "            \
 249                   "(is \"%S\", should be \"%S\")\n", locname, wstr, exp);     \
 250           result = 1;                                                         \
 251         }
 252
 253       /* Unix stuff.  */
 254       STRTEST (ABDAY_1, "Sun");
 255       STRTEST (ABDAY_2, "Mon");
 256       STRTEST (ABDAY_3, "Tue");
 257       STRTEST (ABDAY_4, "Wed");
 258       STRTEST (ABDAY_5, "Thu");
 259       STRTEST (ABDAY_6, "Fri");
 260       STRTEST (ABDAY_7, "Sat");
 261       STRTEST (DAY_1, "Sunday");
 262       STRTEST (DAY_2, "Monday");
 263       STRTEST (DAY_3, "Tuesday");
 264       STRTEST (DAY_4, "Wednesday");
 265       STRTEST (DAY_5, "Thursday");
 266       STRTEST (DAY_6, "Friday");
 267       STRTEST (DAY_7, "Saturday");
 268       STRTEST (ABMON_1, "Jan");
 269       STRTEST (ABMON_2, "Feb");
 270       STRTEST (ABMON_3, "Mar");
 271       STRTEST (ABMON_4, "Apr");
 272       STRTEST (ABMON_5, "May");
 273       STRTEST (ABMON_6, "Jun");
 274       STRTEST (ABMON_7, "Jul");
 275       STRTEST (ABMON_8, "Aug");
 276       STRTEST (ABMON_9, "Sep");
 277       STRTEST (ABMON_10, "Oct");
 278       STRTEST (ABMON_11, "Nov");
 279       STRTEST (ABMON_12, "Dec");
 280       STRTEST (MON_1, "January");
 281       STRTEST (MON_2, "February");
 282       STRTEST (MON_3, "March");
 283       STRTEST (MON_4, "April");
 284       STRTEST (MON_5, "May");
 285       STRTEST (MON_6, "June");
 286       STRTEST (MON_7, "July");
 287       STRTEST (MON_8, "August");
 288       STRTEST (MON_9, "September");
 289       STRTEST (MON_10, "October");
 290       STRTEST (MON_11, "November");
 291       STRTEST (MON_12, "December");
 292       STRTEST (AM_STR, "AM");
 293       STRTEST (PM_STR, "PM");
 294       STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");
 295       STRTEST (D_FMT, "%m/%d/%y");
 296       STRTEST (T_FMT, "%H:%M:%S");
 297       STRTEST (T_FMT_AMPM, "%I:%M:%S %p");
 298
 299       STRTEST (RADIXCHAR, ".");
 300       STRTEST (THOUSEP, "");
 301
 302       STRTEST (YESEXPR, "^[yY]");
 303       STRTEST (NOEXPR, "^[nN]");
 304
 305       /* Extensions.  */
 306       WSTRTEST (_NL_WABDAY_1, L"Sun");
 307       WSTRTEST (_NL_WABDAY_2, L"Mon");
 308       WSTRTEST (_NL_WABDAY_3, L"Tue");
 309       WSTRTEST (_NL_WABDAY_4, L"Wed");
 310       WSTRTEST (_NL_WABDAY_5, L"Thu");
 311       WSTRTEST (_NL_WABDAY_6, L"Fri");
 312       WSTRTEST (_NL_WABDAY_7, L"Sat");
 313       WSTRTEST (_NL_WDAY_1, L"Sunday");
 314       WSTRTEST (_NL_WDAY_2, L"Monday");
 315       WSTRTEST (_NL_WDAY_3, L"Tuesday");
 316       WSTRTEST (_NL_WDAY_4, L"Wednesday");
 317       WSTRTEST (_NL_WDAY_5, L"Thursday");
 318       WSTRTEST (_NL_WDAY_6, L"Friday");
 319       WSTRTEST (_NL_WDAY_7, L"Saturday");
 320       WSTRTEST (_NL_WABMON_1, L"Jan");
 321       WSTRTEST (_NL_WABMON_2, L"Feb");
 322       WSTRTEST (_NL_WABMON_3, L"Mar");
 323       WSTRTEST (_NL_WABMON_4, L"Apr");
 324       WSTRTEST (_NL_WABMON_5, L"May");
 325       WSTRTEST (_NL_WABMON_6, L"Jun");
 326       WSTRTEST (_NL_WABMON_7, L"Jul");
 327       WSTRTEST (_NL_WABMON_8, L"Aug");
 328       WSTRTEST (_NL_WABMON_9, L"Sep");
 329       WSTRTEST (_NL_WABMON_10, L"Oct");
 330       WSTRTEST (_NL_WABMON_11, L"Nov");
 331       WSTRTEST (_NL_WABMON_12, L"Dec");
 332       WSTRTEST (_NL_WMON_1, L"January");
 333       WSTRTEST (_NL_WMON_2, L"February");
 334       WSTRTEST (_NL_WMON_3, L"March");
 335       WSTRTEST (_NL_WMON_4, L"April");
 336       WSTRTEST (_NL_WMON_5, L"May");
 337       WSTRTEST (_NL_WMON_6, L"June");
 338       WSTRTEST (_NL_WMON_7, L"July");
 339       WSTRTEST (_NL_WMON_8, L"August");
 340       WSTRTEST (_NL_WMON_9, L"September");
 341       WSTRTEST (_NL_WMON_10, L"October");
 342       WSTRTEST (_NL_WMON_11, L"November");
 343       WSTRTEST (_NL_WMON_12, L"December");
 344       WSTRTEST (_NL_WAM_STR, L"AM");
 345       WSTRTEST (_NL_WPM_STR, L"PM");
 346       WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");
 347       WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");
 348       WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");
 349       WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");
 350
 351       STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");
 352       WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");
 353
 354       STRTEST (INT_CURR_SYMBOL, "");
 355       STRTEST (CURRENCY_SYMBOL, "");
 356       STRTEST (MON_DECIMAL_POINT, "");
 357       STRTEST (MON_THOUSANDS_SEP, "");
 358       STRTEST (MON_GROUPING, "");
 359       STRTEST (POSITIVE_SIGN, "");
 360       STRTEST (NEGATIVE_SIGN, "");
 361       STRTEST (GROUPING, "");
 362
 363       STRTEST (YESSTR, "");
 364       STRTEST (NOSTR, "");
 365
 366       /* Character class tests.  */
 367       for (c = 0; c < 128; ++c)
 368         {
 369 #define CLASSTEST(name) \
 370           if (is##name (c) != __is##name##_l (c, loc))                        \
 371             {                                                                 \
 372               printf ("is%s('\\%o') != __is%s_l('\\%o')\n",                   \
 373                       #name, c, #name, c);                                    \
 374               result = 1;                                                     \
 375             }
 376           CLASSTEST (alnum);
 377           CLASSTEST (alpha);
 378           CLASSTEST (cntrl);
 379           CLASSTEST (digit);
 380           CLASSTEST (lower);
 381           CLASSTEST (graph);
 382           CLASSTEST (print);
 383           CLASSTEST (punct);
 384           CLASSTEST (space);
 385           CLASSTEST (upper);
 386           CLASSTEST (xdigit);
 387
 388 #define MAPTEST(name) \
 389           if (to##name (c) != __to##name##_l (c, loc))                        \
 390             {                                                                 \
 391               printf ("to%s('\\%o') != __to%s_l('\\%o'): '\\%o' vs '\\%o'\n", \
 392                       #name, c, #name, c,                                     \
 393                       to##name (c), __to##name##_l (c, loc));                 \
 394               result = 1;                                                     \
 395             }
 396           MAPTEST (lower);
 397           MAPTEST (upper);
 398         }
 399     }
 400
 401   return result;
 402 }
 403
 404
 405 int
 406 main (void)
 407 {
 408   int result;
 409
 410   /* First use the name "C".  */
 411   if (setlocale (LC_ALL, "C") == NULL)
 412     {
 413       puts ("cannot set C locale");
 414       result = 1;
 415     }
 416   else
 417     result = run_test ("C");
 418
 419   /* Then the name "POSIX".  */
 420   if (setlocale (LC_ALL, "POSIX") == NULL)
 421     {
 422       puts ("cannot set POSIX locale");
 423       result = 1;
 424     }
 425   else
 426     result |= run_test ("POSIX");
 427
 428   return result;
 429 }