Update from author.
[kopensolaris-gnu/glibc.git] / localedata / tst-ctype.c
index 729ff66..fb2e78c 100644 (file)
@@ -1,24 +1,25 @@
-/* Copyright (C) 2000 Free Software Foundation, Inc.
+/* Copyright (C) 2000,02 Free Software Foundation, Inc.
    This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@gnu.org>, 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 <locale.h>
+#include <langinfo.h>
 #include <stdio.h>
 #include <string.h>
 
@@ -26,6 +27,9 @@
 static const char lower[] = "abcdefghijklmnopqrstuvwxyz";
 static const char upper[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
 static const char digits[] = "0123456789";
+static const char cntrl[] = "\
+\x01\x02\x03\x04\x05\x06\x07\x08\x09\x0a\x0b\x0c\x0d\x0e\x0f\
+\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f ";
 
 
 static struct classes
@@ -68,13 +72,16 @@ main (void)
   size_t inplinelen = 0;
   char *resline = NULL;
   size_t reslinelen = 0;
-  int n;
+  size_t n;
+  const unsigned short int *__ctype_b;
 
   setlocale (LC_ALL, "");
 
   printf ("Testing the ctype data of the `%s' locale\n",
          setlocale (LC_CTYPE, NULL));
 
+  __ctype_b = ((const unsigned short *) nl_langinfo (_NL_CTYPE_CLASS)) + 128;
+
 #if 0
   /* Just for debugging.  */
 
@@ -115,8 +122,8 @@ punct = %04x  alnum = %04x\n",
     FAIL ("isgraph ('\\0') is true");
   if (isblank ('\0'))
     FAIL ("isblank ('\\0') is true");
-  if (iscntrl ('\0'))
-    FAIL ("iscntrl ('\\0') is true");
+  if (iscntrl ('\0'))
+    FAIL ("iscntrl ('\\0') not true");
   if (ispunct ('\0'))
     FAIL ("ispunct ('\\0') is true");
   if (isalnum ('\0'))
@@ -132,6 +139,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (islower (*cp))
       FAIL ("islower ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (islower (*cp))
+      FAIL ("islower ('\\x%02x') is true", *cp);
 
   puts ("    isupper()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -143,6 +153,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (isupper (*cp))
       FAIL ("isupper ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isupper (*cp))
+      FAIL ("isupper ('\\x%02x') is true", *cp);
 
   puts ("    isalpha()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -154,6 +167,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (isalpha (*cp))
       FAIL ("isalpha ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isalpha (*cp))
+      FAIL ("isalpha ('\\x%02x') is true", *cp);
 
   puts ("    isdigit()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -165,6 +181,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (! isdigit (*cp))
       FAIL ("isdigit ('%c') not true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isdigit (*cp))
+      FAIL ("isdigit ('\\x%02x') is true", *cp);
 
   puts ("    isxdigit()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -178,6 +197,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (! isxdigit (*cp))
       FAIL ("isxdigit ('%c') not true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isxdigit (*cp))
+      FAIL ("isxdigit ('\\x%02x') is true", *cp);
 
   puts ("    isspace()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -189,6 +211,12 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (isspace (*cp))
       FAIL ("isspace ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if ((isspace (*cp) && ((*cp < '\x09' || *cp > '\x0d') && *cp != ' '))
+       || (! isspace (*cp)
+           && ((*cp >= '\x09' && *cp <= '\x0d') || *cp == ' ')))
+      FAIL ("isspace ('\\x%02x') %s true", *cp,
+           (*cp < '\x09' || *cp > '\x0d') ? "is" : "not");
 
   puts ("    isprint()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -200,6 +228,10 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (! isprint (*cp))
       FAIL ("isprint ('%c') not true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if ((isprint (*cp) && *cp != ' ')
+       || (! isprint (*cp) && *cp == ' '))
+      FAIL ("isprint ('\\x%02x') is true", *cp);
 
   puts ("    isgraph()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -211,6 +243,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (! isgraph (*cp))
       FAIL ("isgraph ('%c') not true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isgraph (*cp))
+      FAIL ("isgraph ('\\x%02x') is true", *cp);
 
   puts ("    isblank()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -222,6 +257,10 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (isblank (*cp))
       FAIL ("isblank ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if ((isblank (*cp) && *cp != '\x09' && *cp != ' ')
+       || (! isblank (*cp) && (*cp == '\x09' || *cp == ' ')))
+      FAIL ("isblank ('\\x%02x') %s true", *cp, *cp != '\x09' ? "is" : "not");
 
   puts ("    iscntrl()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -233,6 +272,10 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (iscntrl (*cp))
       FAIL ("iscntrl ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if ((iscntrl (*cp) && *cp == ' ')
+       || (! iscntrl (*cp) && *cp != ' '))
+      FAIL ("iscntrl ('\\x%02x') not true", *cp);
 
   puts ("    ispunct()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -244,6 +287,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (ispunct (*cp))
       FAIL ("ispunct ('%c') is true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (ispunct (*cp))
+      FAIL ("ispunct ('\\x%02x') is true", *cp);
 
   puts ("    isalnum()");
   for (cp = lower; *cp != '\0'; ++cp)
@@ -255,6 +301,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (! isalnum (*cp))
       FAIL ("isalnum ('%c') not true", *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (isalnum (*cp))
+      FAIL ("isalnum ('\\x%02x') is true", *cp);
 
 
   puts ("    tolower()");
@@ -267,6 +316,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (tolower (*cp) != *cp)
       FAIL ("tolower ('%c') != '%c'", *cp, *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (tolower (*cp) != *cp)
+      FAIL ("tolower ('\\x%02x') != '\\x%02x'", *cp, *cp);
 
   puts ("    toupper()");
   for (cp = lower, cp2 = upper; *cp != '\0'; ++cp, ++cp2)
@@ -278,6 +330,9 @@ punct = %04x  alnum = %04x\n",
   for (cp = digits; *cp != '\0'; ++cp)
     if (toupper (*cp) != *cp)
       FAIL ("toupper ('%c') != '%c'", *cp, *cp);
+  for (cp = cntrl; *cp != '\0'; ++cp)
+    if (toupper (*cp) != *cp)
+      FAIL ("toupper ('\\x%02x') != '\\x%02x'", *cp, *cp);
 
 
   /* Now some locale specific tests.  */