.
[kopensolaris-gnu/glibc.git] / locale / tst-C-locale.c
index b31ac56..c568cf4 100644 (file)
@@ -1,28 +1,31 @@
-/* Tests of X and POSIX locale contents.
-   Copyright (C) 2000 Free Software Foundation, Inc.
+/* Tests of C and POSIX locale contents.
+   Copyright (C) 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.
 
    The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Library General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
+   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
-   Library General Public License for more details.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
+#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
@@ -32,6 +35,7 @@ run_test (const char *locname)
   const char *str;
   const wchar_t *wstr;
   int result = 0;
+  locale_t loc;
 
   /* ISO C stuff.  */
   lc = localeconv ();
@@ -92,7 +96,7 @@ run_test (const char *locname)
   str = nl_langinfo (name);                                                  \
   if (strcmp (str, exp) != 0)                                                \
     {                                                                        \
-      printf ("nl_langinfo(" #name ") int locale %s wrong "                  \
+      printf ("nl_langinfo(" #name ") in locale %s wrong "                   \
              "(is \"%s\", should be \"%s\")\n", locname, str, exp);          \
       result = 1;                                                            \
     }
@@ -100,7 +104,7 @@ run_test (const char *locname)
   wstr = (wchar_t *) nl_langinfo (name);                                     \
   if (wcscmp (wstr, exp) != 0)                                               \
     {                                                                        \
-      printf ("nl_langinfo(" #name ") int locale %s wrong "                  \
+      printf ("nl_langinfo(" #name ") in locale %s wrong "                   \
              "(is \"%S\", should be \"%S\")\n", locname, wstr, exp);         \
       result = 1;                                                            \
     }
@@ -150,6 +154,11 @@ run_test (const char *locname)
   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, "");
@@ -202,6 +211,10 @@ run_test (const char *locname)
   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");
@@ -218,12 +231,245 @@ run_test (const char *locname)
   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;
 }
 
 
-int
-main (void)
+static int
+do_test (void)
 {
   int result;
 
@@ -247,3 +493,6 @@ main (void)
 
   return result;
 }
+
+#define TEST_FUNCTION do_test ()
+#include "../test-skeleton.c"