l4/pkg/uclibc/lib/contrib/uclibc/test/locale/tst-C-locale.c

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