source: trunk/libs/newlib/src/newlib/testsuite/newlib.wctype/twctype.c @ 577

Last change on this file since 577 was 444, checked in by satin@…, 6 years ago

add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc

File size: 1.6 KB
Line 
1#include <wctype.h>
2#include <ctype.h>
3#include <stdio.h>
4#include <string.h>
5#include <newlib.h>
6#include <locale.h>
7#include "check.h"
8
9int main()
10{
11#if !defined(_ELIX_LEVEL) || _ELIX_LEVEL > 1
12  if (_MB_LEN_MAX == 1)
13    {
14      CHECK (iswalpha(L'a'));
15      CHECK (!iswalpha(L'3'));
16      CHECK (iswalnum(L'9'));
17      CHECK (!iswalnum(L'$'));
18      CHECK (iswcntrl(L'\n'));
19      CHECK (!iswcntrl(L'#'));
20      CHECK (iswdigit(L'2'));
21      CHECK (!iswdigit(L'a'));
22      CHECK (iswgraph(L'2'));
23      CHECK (!iswgraph(L' '));
24      CHECK (iswlower(L'g'));
25      CHECK (!iswlower(L'G'));
26      CHECK (iswprint(L'*'));
27      CHECK (!iswprint(L'\n'));
28      CHECK (iswpunct(L','));
29      CHECK (!iswpunct(L'\n'));
30      CHECK (iswspace(L'\t'));
31      CHECK (!iswspace(L':'));
32      CHECK (iswupper(L'G'));
33      CHECK (!iswupper(L'g'));
34      CHECK (iswxdigit(L'A'));
35      CHECK (!iswxdigit(L'g'));
36    }
37  else
38    {
39      setlocale (LC_CTYPE, "C-UTF-8");
40      CHECK (iswalpha(0x0967));
41      CHECK (!iswalpha(0x128e));
42      CHECK (iswalnum(0x1d7ce));
43      CHECK (!iswalnum(0x1d800));
44      CHECK (iswcntrl(0x007f));
45      CHECK (!iswcntrl(0x2027));
46      CHECK (iswdigit(L'2'));
47      CHECK (!iswdigit(0x0009));
48      CHECK (iswlower(0x03b3));
49      CHECK (!iswlower(0x04aa));
50      CHECK (iswprint(0x0b13));
51      CHECK (!iswprint(0x0ce4));
52      CHECK (iswpunct(0x002d));
53      CHECK (!iswpunct(0x0a84));
54      CHECK (iswspace(0x000a));
55      CHECK (!iswspace(0x2060));
56      CHECK (iswupper(0x01a4));
57      CHECK (!iswupper(0x1e6d));
58      CHECK (iswxdigit(L'A'));
59      CHECK (!iswxdigit(0x1f48));
60    }
61#endif
62
63  exit (0);
64}
Note: See TracBrowser for help on using the repository browser.