497 lines
15 KiB
C
497 lines
15 KiB
C
/* Tests of C and POSIX locale contents.
|
|
Copyright (C) 2000-2022 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Lesser General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2.1 of the License, or (at your option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with the GNU C Library; if not, see
|
|
<https://www.gnu.org/licenses/>. */
|
|
|
|
#include <ctype.h>
|
|
#include <langinfo.h>
|
|
#include <limits.h>
|
|
#include <locale.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <wchar.h>
|
|
#include <wctype.h>
|
|
|
|
|
|
static int
|
|
run_test (const char *locname)
|
|
{
|
|
struct lconv *lc;
|
|
const char *str;
|
|
const wchar_t *wstr;
|
|
int result = 0;
|
|
locale_t loc;
|
|
|
|
/* ISO C stuff. */
|
|
lc = localeconv ();
|
|
if (lc == NULL)
|
|
{
|
|
printf ("localeconv failed for locale %s\n", locname);
|
|
result = 1;
|
|
}
|
|
else
|
|
{
|
|
#define STRTEST(name, exp) \
|
|
do \
|
|
if (strcmp (lc->name, exp) != 0) \
|
|
{ \
|
|
printf (#name " in locale %s wrong (is \"%s\", should be \"%s\")\n",\
|
|
locname, lc->name, exp); \
|
|
result = 1; \
|
|
} \
|
|
while (0)
|
|
STRTEST (decimal_point, ".");
|
|
STRTEST (thousands_sep, "");
|
|
STRTEST (grouping, "");
|
|
STRTEST (mon_decimal_point, "");
|
|
STRTEST (mon_thousands_sep, "");
|
|
STRTEST (mon_grouping, "");
|
|
STRTEST (positive_sign, "");
|
|
STRTEST (negative_sign, "");
|
|
STRTEST (currency_symbol, "");
|
|
STRTEST (int_curr_symbol, "");
|
|
|
|
#define CHARTEST(name, exp) \
|
|
do \
|
|
if (lc->name != exp) \
|
|
{ \
|
|
printf (#name " in locale %s wrong (is %d, should be %d)\n", \
|
|
locname, lc->name, CHAR_MAX); \
|
|
result = 1; \
|
|
} \
|
|
while (0)
|
|
CHARTEST (frac_digits, CHAR_MAX);
|
|
CHARTEST (p_cs_precedes, CHAR_MAX);
|
|
CHARTEST (n_cs_precedes, CHAR_MAX);
|
|
CHARTEST (p_sep_by_space, CHAR_MAX);
|
|
CHARTEST (n_sep_by_space, CHAR_MAX);
|
|
CHARTEST (p_sign_posn, CHAR_MAX);
|
|
CHARTEST (n_sign_posn, CHAR_MAX);
|
|
CHARTEST (int_frac_digits, CHAR_MAX);
|
|
CHARTEST (int_p_cs_precedes, CHAR_MAX);
|
|
CHARTEST (int_n_cs_precedes, CHAR_MAX);
|
|
CHARTEST (int_p_sep_by_space, CHAR_MAX);
|
|
CHARTEST (int_n_sep_by_space, CHAR_MAX);
|
|
CHARTEST (int_p_sign_posn, CHAR_MAX);
|
|
CHARTEST (int_n_sign_posn, CHAR_MAX);
|
|
}
|
|
|
|
#undef STRTEST
|
|
#define STRTEST(name, exp) \
|
|
str = nl_langinfo (name); \
|
|
if (strcmp (str, exp) != 0) \
|
|
{ \
|
|
printf ("nl_langinfo(" #name ") in locale %s wrong " \
|
|
"(is \"%s\", should be \"%s\")\n", locname, str, exp); \
|
|
result = 1; \
|
|
}
|
|
#define WSTRTEST(name, exp) \
|
|
wstr = (wchar_t *) nl_langinfo (name); \
|
|
if (wcscmp (wstr, exp) != 0) \
|
|
{ \
|
|
printf ("nl_langinfo(" #name ") in locale %s wrong " \
|
|
"(is \"%S\", should be \"%S\")\n", locname, wstr, exp); \
|
|
result = 1; \
|
|
}
|
|
|
|
/* Unix stuff. */
|
|
STRTEST (ABDAY_1, "Sun");
|
|
STRTEST (ABDAY_2, "Mon");
|
|
STRTEST (ABDAY_3, "Tue");
|
|
STRTEST (ABDAY_4, "Wed");
|
|
STRTEST (ABDAY_5, "Thu");
|
|
STRTEST (ABDAY_6, "Fri");
|
|
STRTEST (ABDAY_7, "Sat");
|
|
STRTEST (DAY_1, "Sunday");
|
|
STRTEST (DAY_2, "Monday");
|
|
STRTEST (DAY_3, "Tuesday");
|
|
STRTEST (DAY_4, "Wednesday");
|
|
STRTEST (DAY_5, "Thursday");
|
|
STRTEST (DAY_6, "Friday");
|
|
STRTEST (DAY_7, "Saturday");
|
|
STRTEST (ABMON_1, "Jan");
|
|
STRTEST (ABMON_2, "Feb");
|
|
STRTEST (ABMON_3, "Mar");
|
|
STRTEST (ABMON_4, "Apr");
|
|
STRTEST (ABMON_5, "May");
|
|
STRTEST (ABMON_6, "Jun");
|
|
STRTEST (ABMON_7, "Jul");
|
|
STRTEST (ABMON_8, "Aug");
|
|
STRTEST (ABMON_9, "Sep");
|
|
STRTEST (ABMON_10, "Oct");
|
|
STRTEST (ABMON_11, "Nov");
|
|
STRTEST (ABMON_12, "Dec");
|
|
STRTEST (MON_1, "January");
|
|
STRTEST (MON_2, "February");
|
|
STRTEST (MON_3, "March");
|
|
STRTEST (MON_4, "April");
|
|
STRTEST (MON_5, "May");
|
|
STRTEST (MON_6, "June");
|
|
STRTEST (MON_7, "July");
|
|
STRTEST (MON_8, "August");
|
|
STRTEST (MON_9, "September");
|
|
STRTEST (MON_10, "October");
|
|
STRTEST (MON_11, "November");
|
|
STRTEST (MON_12, "December");
|
|
STRTEST (AM_STR, "AM");
|
|
STRTEST (PM_STR, "PM");
|
|
STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");
|
|
STRTEST (D_FMT, "%m/%d/%y");
|
|
STRTEST (T_FMT, "%H:%M:%S");
|
|
STRTEST (T_FMT_AMPM, "%I:%M:%S %p");
|
|
STRTEST (ERA, "");
|
|
STRTEST (ERA_D_FMT, "");
|
|
STRTEST (ERA_T_FMT, "");
|
|
STRTEST (ERA_D_T_FMT, "");
|
|
STRTEST (ALT_DIGITS, "");
|
|
|
|
STRTEST (RADIXCHAR, ".");
|
|
STRTEST (THOUSEP, "");
|
|
|
|
STRTEST (YESEXPR, "^[yY]");
|
|
STRTEST (NOEXPR, "^[nN]");
|
|
|
|
/* Extensions. */
|
|
WSTRTEST (_NL_WABDAY_1, L"Sun");
|
|
WSTRTEST (_NL_WABDAY_2, L"Mon");
|
|
WSTRTEST (_NL_WABDAY_3, L"Tue");
|
|
WSTRTEST (_NL_WABDAY_4, L"Wed");
|
|
WSTRTEST (_NL_WABDAY_5, L"Thu");
|
|
WSTRTEST (_NL_WABDAY_6, L"Fri");
|
|
WSTRTEST (_NL_WABDAY_7, L"Sat");
|
|
WSTRTEST (_NL_WDAY_1, L"Sunday");
|
|
WSTRTEST (_NL_WDAY_2, L"Monday");
|
|
WSTRTEST (_NL_WDAY_3, L"Tuesday");
|
|
WSTRTEST (_NL_WDAY_4, L"Wednesday");
|
|
WSTRTEST (_NL_WDAY_5, L"Thursday");
|
|
WSTRTEST (_NL_WDAY_6, L"Friday");
|
|
WSTRTEST (_NL_WDAY_7, L"Saturday");
|
|
WSTRTEST (_NL_WABMON_1, L"Jan");
|
|
WSTRTEST (_NL_WABMON_2, L"Feb");
|
|
WSTRTEST (_NL_WABMON_3, L"Mar");
|
|
WSTRTEST (_NL_WABMON_4, L"Apr");
|
|
WSTRTEST (_NL_WABMON_5, L"May");
|
|
WSTRTEST (_NL_WABMON_6, L"Jun");
|
|
WSTRTEST (_NL_WABMON_7, L"Jul");
|
|
WSTRTEST (_NL_WABMON_8, L"Aug");
|
|
WSTRTEST (_NL_WABMON_9, L"Sep");
|
|
WSTRTEST (_NL_WABMON_10, L"Oct");
|
|
WSTRTEST (_NL_WABMON_11, L"Nov");
|
|
WSTRTEST (_NL_WABMON_12, L"Dec");
|
|
WSTRTEST (_NL_WMON_1, L"January");
|
|
WSTRTEST (_NL_WMON_2, L"February");
|
|
WSTRTEST (_NL_WMON_3, L"March");
|
|
WSTRTEST (_NL_WMON_4, L"April");
|
|
WSTRTEST (_NL_WMON_5, L"May");
|
|
WSTRTEST (_NL_WMON_6, L"June");
|
|
WSTRTEST (_NL_WMON_7, L"July");
|
|
WSTRTEST (_NL_WMON_8, L"August");
|
|
WSTRTEST (_NL_WMON_9, L"September");
|
|
WSTRTEST (_NL_WMON_10, L"October");
|
|
WSTRTEST (_NL_WMON_11, L"November");
|
|
WSTRTEST (_NL_WMON_12, L"December");
|
|
WSTRTEST (_NL_WAM_STR, L"AM");
|
|
WSTRTEST (_NL_WPM_STR, L"PM");
|
|
WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");
|
|
WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");
|
|
WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");
|
|
WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");
|
|
WSTRTEST (_NL_WERA_D_FMT, L"");
|
|
WSTRTEST (_NL_WERA_T_FMT, L"");
|
|
WSTRTEST (_NL_WERA_D_T_FMT, L"");
|
|
WSTRTEST (_NL_WALT_DIGITS, L"");
|
|
|
|
STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");
|
|
WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");
|
|
|
|
STRTEST (INT_CURR_SYMBOL, "");
|
|
STRTEST (CURRENCY_SYMBOL, "");
|
|
STRTEST (MON_DECIMAL_POINT, "");
|
|
STRTEST (MON_THOUSANDS_SEP, "");
|
|
STRTEST (MON_GROUPING, "");
|
|
STRTEST (POSITIVE_SIGN, "");
|
|
STRTEST (NEGATIVE_SIGN, "");
|
|
STRTEST (GROUPING, "");
|
|
|
|
STRTEST (YESSTR, "");
|
|
STRTEST (NOSTR, "");
|
|
|
|
/* Test the new locale mechanisms. */
|
|
loc = newlocale (LC_ALL_MASK, locname, NULL);
|
|
if (loc == NULL)
|
|
{
|
|
printf ("cannot create locale object for locale %s\n", locname);
|
|
result = 1;
|
|
}
|
|
else
|
|
{
|
|
int c;
|
|
|
|
#undef STRTEST
|
|
#define STRTEST(name, exp) \
|
|
str = nl_langinfo_l (name, loc); \
|
|
if (strcmp (str, exp) != 0) \
|
|
{ \
|
|
printf ("nl_langinfo_l(" #name ") in locale %s wrong " \
|
|
"(is \"%s\", should be \"%s\")\n", locname, str, exp); \
|
|
result = 1; \
|
|
}
|
|
#undef WSTRTEST
|
|
#define WSTRTEST(name, exp) \
|
|
wstr = (wchar_t *) nl_langinfo_l (name, loc); \
|
|
if (wcscmp (wstr, exp) != 0) \
|
|
{ \
|
|
printf ("nl_langinfo_l(" #name ") in locale %s wrong " \
|
|
"(is \"%S\", should be \"%S\")\n", locname, wstr, exp); \
|
|
result = 1; \
|
|
}
|
|
|
|
/* Unix stuff. */
|
|
STRTEST (ABDAY_1, "Sun");
|
|
STRTEST (ABDAY_2, "Mon");
|
|
STRTEST (ABDAY_3, "Tue");
|
|
STRTEST (ABDAY_4, "Wed");
|
|
STRTEST (ABDAY_5, "Thu");
|
|
STRTEST (ABDAY_6, "Fri");
|
|
STRTEST (ABDAY_7, "Sat");
|
|
STRTEST (DAY_1, "Sunday");
|
|
STRTEST (DAY_2, "Monday");
|
|
STRTEST (DAY_3, "Tuesday");
|
|
STRTEST (DAY_4, "Wednesday");
|
|
STRTEST (DAY_5, "Thursday");
|
|
STRTEST (DAY_6, "Friday");
|
|
STRTEST (DAY_7, "Saturday");
|
|
STRTEST (ABMON_1, "Jan");
|
|
STRTEST (ABMON_2, "Feb");
|
|
STRTEST (ABMON_3, "Mar");
|
|
STRTEST (ABMON_4, "Apr");
|
|
STRTEST (ABMON_5, "May");
|
|
STRTEST (ABMON_6, "Jun");
|
|
STRTEST (ABMON_7, "Jul");
|
|
STRTEST (ABMON_8, "Aug");
|
|
STRTEST (ABMON_9, "Sep");
|
|
STRTEST (ABMON_10, "Oct");
|
|
STRTEST (ABMON_11, "Nov");
|
|
STRTEST (ABMON_12, "Dec");
|
|
STRTEST (MON_1, "January");
|
|
STRTEST (MON_2, "February");
|
|
STRTEST (MON_3, "March");
|
|
STRTEST (MON_4, "April");
|
|
STRTEST (MON_5, "May");
|
|
STRTEST (MON_6, "June");
|
|
STRTEST (MON_7, "July");
|
|
STRTEST (MON_8, "August");
|
|
STRTEST (MON_9, "September");
|
|
STRTEST (MON_10, "October");
|
|
STRTEST (MON_11, "November");
|
|
STRTEST (MON_12, "December");
|
|
STRTEST (AM_STR, "AM");
|
|
STRTEST (PM_STR, "PM");
|
|
STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");
|
|
STRTEST (D_FMT, "%m/%d/%y");
|
|
STRTEST (T_FMT, "%H:%M:%S");
|
|
STRTEST (T_FMT_AMPM, "%I:%M:%S %p");
|
|
STRTEST (ERA, "");
|
|
STRTEST (ERA_D_FMT, "");
|
|
STRTEST (ERA_T_FMT, "");
|
|
STRTEST (ERA_D_T_FMT, "");
|
|
STRTEST (ALT_DIGITS, "");
|
|
|
|
STRTEST (RADIXCHAR, ".");
|
|
STRTEST (THOUSEP, "");
|
|
|
|
STRTEST (YESEXPR, "^[yY]");
|
|
STRTEST (NOEXPR, "^[nN]");
|
|
|
|
/* Extensions. */
|
|
WSTRTEST (_NL_WABDAY_1, L"Sun");
|
|
WSTRTEST (_NL_WABDAY_2, L"Mon");
|
|
WSTRTEST (_NL_WABDAY_3, L"Tue");
|
|
WSTRTEST (_NL_WABDAY_4, L"Wed");
|
|
WSTRTEST (_NL_WABDAY_5, L"Thu");
|
|
WSTRTEST (_NL_WABDAY_6, L"Fri");
|
|
WSTRTEST (_NL_WABDAY_7, L"Sat");
|
|
WSTRTEST (_NL_WDAY_1, L"Sunday");
|
|
WSTRTEST (_NL_WDAY_2, L"Monday");
|
|
WSTRTEST (_NL_WDAY_3, L"Tuesday");
|
|
WSTRTEST (_NL_WDAY_4, L"Wednesday");
|
|
WSTRTEST (_NL_WDAY_5, L"Thursday");
|
|
WSTRTEST (_NL_WDAY_6, L"Friday");
|
|
WSTRTEST (_NL_WDAY_7, L"Saturday");
|
|
WSTRTEST (_NL_WABMON_1, L"Jan");
|
|
WSTRTEST (_NL_WABMON_2, L"Feb");
|
|
WSTRTEST (_NL_WABMON_3, L"Mar");
|
|
WSTRTEST (_NL_WABMON_4, L"Apr");
|
|
WSTRTEST (_NL_WABMON_5, L"May");
|
|
WSTRTEST (_NL_WABMON_6, L"Jun");
|
|
WSTRTEST (_NL_WABMON_7, L"Jul");
|
|
WSTRTEST (_NL_WABMON_8, L"Aug");
|
|
WSTRTEST (_NL_WABMON_9, L"Sep");
|
|
WSTRTEST (_NL_WABMON_10, L"Oct");
|
|
WSTRTEST (_NL_WABMON_11, L"Nov");
|
|
WSTRTEST (_NL_WABMON_12, L"Dec");
|
|
WSTRTEST (_NL_WMON_1, L"January");
|
|
WSTRTEST (_NL_WMON_2, L"February");
|
|
WSTRTEST (_NL_WMON_3, L"March");
|
|
WSTRTEST (_NL_WMON_4, L"April");
|
|
WSTRTEST (_NL_WMON_5, L"May");
|
|
WSTRTEST (_NL_WMON_6, L"June");
|
|
WSTRTEST (_NL_WMON_7, L"July");
|
|
WSTRTEST (_NL_WMON_8, L"August");
|
|
WSTRTEST (_NL_WMON_9, L"September");
|
|
WSTRTEST (_NL_WMON_10, L"October");
|
|
WSTRTEST (_NL_WMON_11, L"November");
|
|
WSTRTEST (_NL_WMON_12, L"December");
|
|
WSTRTEST (_NL_WAM_STR, L"AM");
|
|
WSTRTEST (_NL_WPM_STR, L"PM");
|
|
WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");
|
|
WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");
|
|
WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");
|
|
WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");
|
|
WSTRTEST (_NL_WERA_D_FMT, L"");
|
|
WSTRTEST (_NL_WERA_T_FMT, L"");
|
|
WSTRTEST (_NL_WERA_D_T_FMT, L"");
|
|
WSTRTEST (_NL_WALT_DIGITS, L"");
|
|
|
|
STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");
|
|
WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");
|
|
|
|
STRTEST (INT_CURR_SYMBOL, "");
|
|
STRTEST (CURRENCY_SYMBOL, "");
|
|
STRTEST (MON_DECIMAL_POINT, "");
|
|
STRTEST (MON_THOUSANDS_SEP, "");
|
|
STRTEST (MON_GROUPING, "");
|
|
STRTEST (POSITIVE_SIGN, "");
|
|
STRTEST (NEGATIVE_SIGN, "");
|
|
STRTEST (GROUPING, "");
|
|
|
|
STRTEST (YESSTR, "");
|
|
STRTEST (NOSTR, "");
|
|
|
|
/* Character class tests. */
|
|
for (c = 0; c < 128; ++c)
|
|
{
|
|
#define CLASSTEST(name) \
|
|
if (is##name (c) != is##name##_l (c, loc)) \
|
|
{ \
|
|
printf ("is%s('\\%o') != is%s_l('\\%o')\n", \
|
|
#name, c, #name, c); \
|
|
result = 1; \
|
|
}
|
|
CLASSTEST (alnum);
|
|
CLASSTEST (alpha);
|
|
CLASSTEST (blank);
|
|
CLASSTEST (cntrl);
|
|
CLASSTEST (digit);
|
|
CLASSTEST (lower);
|
|
CLASSTEST (graph);
|
|
CLASSTEST (print);
|
|
CLASSTEST (punct);
|
|
CLASSTEST (space);
|
|
CLASSTEST (upper);
|
|
CLASSTEST (xdigit);
|
|
|
|
/* Character mapping tests. */
|
|
#define MAPTEST(name) \
|
|
if (to##name (c) != to##name##_l (c, loc)) \
|
|
{ \
|
|
printf ("to%s('\\%o') != to%s_l('\\%o'): '\\%o' vs '\\%o'\n", \
|
|
#name, c, #name, c, \
|
|
to##name (c), to##name##_l (c, loc)); \
|
|
result = 1; \
|
|
}
|
|
MAPTEST (lower);
|
|
MAPTEST (upper);
|
|
}
|
|
|
|
/* Character class tests, this time for wide characters. Note that
|
|
this only works because we know that the internal encoding is
|
|
UCS4. */
|
|
for (c = 0; c < 128; ++c)
|
|
{
|
|
#undef CLASSTEST
|
|
#define CLASSTEST(name) \
|
|
if (isw##name (c) != isw##name##_l (c, loc)) \
|
|
{ \
|
|
printf ("isw%s('\\%o') != isw%s_l('\\%o')\n", \
|
|
#name, c, #name, c); \
|
|
result = 1; \
|
|
}
|
|
CLASSTEST (alnum);
|
|
CLASSTEST (alpha);
|
|
CLASSTEST (blank);
|
|
CLASSTEST (cntrl);
|
|
CLASSTEST (digit);
|
|
CLASSTEST (lower);
|
|
CLASSTEST (graph);
|
|
CLASSTEST (print);
|
|
CLASSTEST (punct);
|
|
CLASSTEST (space);
|
|
CLASSTEST (upper);
|
|
CLASSTEST (xdigit);
|
|
|
|
/* Character mapping tests. Note that
|
|
this only works because we know that the internal encoding is
|
|
UCS4. */
|
|
#undef MAPTEST
|
|
#define MAPTEST(name) \
|
|
if (tow##name (c) != tow##name##_l (c, loc)) \
|
|
{ \
|
|
printf ("tow%s('\\%o') != tow%s_l('\\%o'): '\\%o' vs '\\%o'\n",\
|
|
#name, c, #name, c, \
|
|
tow##name (c), tow##name##_l (c, loc)); \
|
|
result = 1; \
|
|
}
|
|
MAPTEST (lower);
|
|
MAPTEST (upper);
|
|
}
|
|
|
|
freelocale (loc);
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
static int
|
|
do_test (void)
|
|
{
|
|
int result;
|
|
|
|
/* First use the name "C". */
|
|
if (setlocale (LC_ALL, "C") == NULL)
|
|
{
|
|
puts ("cannot set C locale");
|
|
result = 1;
|
|
}
|
|
else
|
|
result = run_test ("C");
|
|
|
|
/* Then the name "POSIX". */
|
|
if (setlocale (LC_ALL, "POSIX") == NULL)
|
|
{
|
|
puts ("cannot set POSIX locale");
|
|
result = 1;
|
|
}
|
|
else
|
|
result |= run_test ("POSIX");
|
|
|
|
return result;
|
|
}
|
|
|
|
#define TEST_FUNCTION do_test ()
|
|
#include "../test-skeleton.c"
|