(run_test): Add tests for locale objects.
[kopensolaris-gnu/glibc.git] / 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 }