1 | /* Copyright (C) 2000-2022 Free Software Foundation, Inc. |
2 | This file is part of the GNU C Library. |
3 | |
4 | The GNU C Library is free software; you can redistribute it and/or |
5 | modify it under the terms of the GNU Lesser General Public |
6 | License as published by the Free Software Foundation; either |
7 | version 2.1 of the License, or (at your option) any later version. |
8 | |
9 | The GNU C Library is distributed in the hope that it will be useful, |
10 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
12 | Lesser General Public License for more details. |
13 | |
14 | You should have received a copy of the GNU Lesser General Public |
15 | License along with the GNU C Library; if not, see |
16 | <https://www.gnu.org/licenses/>. */ |
17 | |
18 | #include <locale.h> |
19 | #include <stdio.h> |
20 | #include <wchar.h> |
21 | |
22 | |
23 | /* Currently selected locale. */ |
24 | static const char *current_locale; |
25 | |
26 | |
27 | /* Test which should succeed. */ |
28 | static int |
29 | ok_test (int c, wint_t expwc) |
30 | { |
31 | wint_t wc = btowc (c: c); |
32 | |
33 | if (wc != expwc) |
34 | { |
35 | printf (format: "%s: btowc('%c') failed, returned L'\\x%x' instead of L'\\x%x'\n" , |
36 | current_locale, c, wc, expwc); |
37 | return 1; |
38 | } |
39 | |
40 | return 0; |
41 | } |
42 | |
43 | /* Test which should fail. */ |
44 | static int |
45 | fail_test (int c) |
46 | { |
47 | wint_t wc = btowc (c: c); |
48 | |
49 | if (wc != WEOF) |
50 | { |
51 | printf (format: "%s: btowc('%c') succeded, returned L'\\x%x' instead of WEOF\n" , |
52 | current_locale, c, wc); |
53 | return 1; |
54 | } |
55 | |
56 | return 0; |
57 | } |
58 | |
59 | |
60 | /* Test EOF handling. */ |
61 | static int |
62 | eof_test (void) |
63 | { |
64 | wint_t wc = btowc (EOF); |
65 | if (wc != WEOF) |
66 | { |
67 | printf (format: "%s: btowc(EOF) returned L'\\x%x', not WEOF\n" , |
68 | current_locale, wc); |
69 | } |
70 | |
71 | return 0; |
72 | } |
73 | |
74 | |
75 | /* Test the btowc() function for a few locales with known character sets. */ |
76 | static int |
77 | do_test (void) |
78 | { |
79 | int result = 0; |
80 | |
81 | current_locale = setlocale (LC_ALL, "en_US.ANSI_X3.4-1968" ); |
82 | if (current_locale == NULL) |
83 | { |
84 | puts (s: "cannot set locale \"en_US.ANSI_X3.4-1968\"" ); |
85 | result = 1; |
86 | } |
87 | else |
88 | { |
89 | int c; |
90 | |
91 | for (c = 0; c < 128; ++c) |
92 | result |= ok_test (c, expwc: c); |
93 | |
94 | for (c = 128; c < 256; ++c) |
95 | result |= fail_test (c); |
96 | |
97 | result |= eof_test (); |
98 | } |
99 | |
100 | current_locale = setlocale (LC_ALL, "de_DE.ISO-8859-1" ); |
101 | if (current_locale == NULL) |
102 | { |
103 | puts (s: "cannot set locale \"de_DE.ISO-8859-1\"" ); |
104 | result = 1; |
105 | } |
106 | else |
107 | { |
108 | int c; |
109 | |
110 | for (c = 0; c < 256; ++c) |
111 | result |= ok_test (c, expwc: c); |
112 | |
113 | result |= eof_test (); |
114 | } |
115 | |
116 | current_locale = setlocale (LC_ALL, "de_DE.UTF-8" ); |
117 | if (current_locale == NULL) |
118 | { |
119 | puts (s: "cannot set locale \"de_DE.UTF-8\"" ); |
120 | result = 1; |
121 | } |
122 | else |
123 | { |
124 | int c; |
125 | |
126 | for (c = 0; c < 128; ++c) |
127 | result |= ok_test (c, expwc: c); |
128 | |
129 | for (c = 128; c < 256; ++c) |
130 | result |= fail_test (c); |
131 | |
132 | result |= eof_test (); |
133 | } |
134 | |
135 | current_locale = setlocale (LC_ALL, "hr_HR.ISO-8859-2" ); |
136 | if (current_locale == NULL) |
137 | { |
138 | puts (s: "cannot set locale \"hr_HR.ISO-8859-2\"" ); |
139 | result = 1; |
140 | } |
141 | else |
142 | { |
143 | static const wint_t upper_half[] = |
144 | { |
145 | 0x0104, 0x02D8, 0x0141, 0x00A4, 0x013D, 0x015A, 0x00A7, 0x00A8, |
146 | 0x0160, 0x015E, 0x0164, 0x0179, 0x00AD, 0x017D, 0x017B, 0x00B0, |
147 | 0x0105, 0x02DB, 0x0142, 0x00B4, 0x013E, 0x015B, 0x02C7, 0x00B8, |
148 | 0x0161, 0x015F, 0x0165, 0x017A, 0x02DD, 0x017E, 0x017C, 0x0154, |
149 | 0x00C1, 0x00C2, 0x0102, 0x00C4, 0x0139, 0x0106, 0x00C7, 0x010C, |
150 | 0x00C9, 0x0118, 0x00CB, 0x011A, 0x00CD, 0x00CE, 0x010E, 0x0110, |
151 | 0x0143, 0x0147, 0x00D3, 0x00D4, 0x0150, 0x00D6, 0x00D7, 0x0158, |
152 | 0x016E, 0x00DA, 0x0170, 0x00DC, 0x00DD, 0x0162, 0x00DF, 0x0155, |
153 | 0x00E1, 0x00E2, 0x0103, 0x00E4, 0x013A, 0x0107, 0x00E7, 0x010D, |
154 | 0x00E9, 0x0119, 0x00EB, 0x011B, 0x00ED, 0x00EE, 0x010F, 0x0111, |
155 | 0x0144, 0x0148, 0x00F3, 0x00F4, 0x0151, 0x00F6, 0x00F7, 0x0159, |
156 | 0x016F, 0x00FA, 0x0171, 0x00FC, 0x00FD, 0x0163, 0x02D9 |
157 | }; |
158 | int c; |
159 | |
160 | for (c = 0; c < 161; ++c) |
161 | result |= ok_test (c, expwc: c); |
162 | |
163 | for (c = 161; c < 256; ++c) |
164 | result |= ok_test (c, expwc: upper_half[c - 161]); |
165 | |
166 | result |= eof_test (); |
167 | } |
168 | |
169 | if (result == 0) |
170 | puts (s: "all OK" ); |
171 | |
172 | return result; |
173 | } |
174 | |
175 | #include <support/test-driver.c> |
176 | |