2002-10-18 Jeff Johnston <jjohnstn@redhat.com>

* testsuite/newlib.wctype/tiswctype.c: New test case.
        * testsuite/newlib.wctype/twctrans.c: Ditto.

newlib/ChangeLog

@@ -1,3 +1,8 @@
+2002-10-18  Jeff Johnston  <jjohnstn@redhat.com>
+
+        * testsuite/newlib.wctype/tiswctype.c: New test case.
+        * testsuite/newlib.wctype/twctrans.c: Ditto.
+
 2002-10-18  Jeff Johnston  <jjohnstn@redhat.com>
 
         * libc/sys/linux/machine/i386/include/endian.h: New file.

newlib/testsuite/newlib.wctype/tiswctype.c

@@ -0,0 +1,61 @@
+#include <wctype.h>
+#include <newlib.h>
+#include "check.h"
+
+int main()
+{
+  wctype_t x;
+
+  x = wctype ("alpha");
+  CHECK (x != 0);
+  CHECK (iswctype (L'a', x) && isalpha ('a'));
+
+  x = wctype ("alnum");
+  CHECK (x != 0);
+  CHECK (iswctype (L'0', x) && isalnum ('0'));
+
+  x = wctype ("blank");
+  CHECK (x != 0);
+  CHECK (iswctype (L' ', x) && isblank (' '));
+
+  x = wctype ("cntrl");
+  CHECK (x != 0);
+  CHECK (iswctype (L'\n', x) && iscntrl ('\n'));
+
+  x = wctype ("digit");
+  CHECK (x != 0);
+  CHECK (iswctype (L'7', x) && isdigit ('7'));
+
+  x = wctype ("graph");
+  CHECK (x != 0);
+  CHECK (iswctype (L'!', x) && isgraph ('!'));
+
+  x = wctype ("lower");
+  CHECK (x != 0);
+  CHECK (iswctype (L'k', x) && islower ('k'));
+
+  x = wctype ("print");
+  CHECK (x != 0);
+  CHECK (iswctype (L'@', x) && isprint ('@'));
+
+  x = wctype ("punct");
+  CHECK (x != 0);
+  CHECK (iswctype (L'.', x) && ispunct ('.'));
+
+  x = wctype ("space");
+  CHECK (x != 0);
+  CHECK (iswctype (L'\t', x) && isspace ('\t'));
+
+  x = wctype ("upper");
+  CHECK (x != 0);
+  CHECK (iswctype (L'T', x) && isupper ('T'));
+
+  x = wctype ("xdigit");
+  CHECK (x != 0);
+  CHECK (iswctype (L'B', x) && isxdigit ('B'));
+
+  x = wctype ("unknown");
+  CHECK (x == 0);
+
+  exit (0);
+}

newlib/testsuite/newlib.wctype/twctrans.c

@@ -0,0 +1,23 @@
+#include <wctype.h>
+#include <newlib.h>
+#include "check.h"
+
+int main()
+{
+  wctrans_t x;
+
+  x = wctrans ("tolower");
+  CHECK (x != 0);
+  CHECK (towctrans (L'A', x) == tolower ('A'));
+  CHECK (towctrans (L'5', x) == tolower ('5'));
+
+  x = wctrans ("toupper");
+  CHECK (x != 0);
+  CHECK (towctrans (L'c', x) == toupper ('c'));
+  CHECK (towctrans (L'9', x) == toupper ('9'));
+
+  x = wctrans ("unknown");
+  CHECK (x == 0);
+
+  exit (0);
+}