]> git.ipfire.org Git - thirdparty/glibc.git/blame - intl/tst-gettext.c
Sync move-if-change from Gnulib, updating copyright
[thirdparty/glibc.git] / intl / tst-gettext.c
CommitLineData
abbffdf9 1/* Test of the gettext functions.
581c785b 2 Copyright (C) 2000-2022 Free Software Foundation, Inc.
41bdb6e2 3 This file is part of the GNU C Library.
abbffdf9
UD
4
5 The GNU C Library is free software; you can redistribute it and/or
41bdb6e2
AJ
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
abbffdf9
UD
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
41bdb6e2 13 Lesser General Public License for more details.
abbffdf9 14
41bdb6e2 15 You should have received a copy of the GNU Lesser General Public
59ba27a6 16 License along with the GNU C Library; if not, see
5a82c748 17 <https://www.gnu.org/licenses/>. */
abbffdf9
UD
18
19#include <libintl.h>
a8e4c924 20#include <locale.h>
55e2d5c7 21#include <mcheck.h>
abbffdf9
UD
22#include <stdio.h>
23#include <stdlib.h>
24#include <string.h>
5d0bbaaf
RM
25#include <error.h>
26#include <errno.h>
abbffdf9
UD
27
28
29const struct
30{
31 const char *msgid;
32 const char *msgstr;
33} msgs[] =
34{
35#define INPUT(Str) { Str,
36#define OUTPUT(Str) Str },
37#include TESTSTRS_H
38};
39
40const char *catname[] =
41{
42 [LC_MESSAGES] = "LC_MESSAGES",
43 [LC_TIME] = "LC_TIME",
44 [LC_NUMERIC] = "LC_NUMERIC"
45};
46
47
48static int positive_gettext_test (void);
49static int negative_gettext_test (void);
50static int positive_dgettext_test (const char *domain);
51static int positive_dcgettext_test (const char *domain, int category);
52static int negative_dcgettext_test (const char *domain, int category);
53
54
5d0bbaaf
RM
55#define check_setlocale(cat, name) do { \
56 if (setlocale (cat, name) == NULL) \
57 { \
58 printf ("%s:%u: setlocale (%s, \"%s\"): %m\n", \
59 __FILE__, __LINE__, #cat, name); \
60 result = 1; \
61 } \
62 } while (0)
63
abbffdf9
UD
64int
65main (int argc, char *argv[])
66{
67 int result = 0;
68
55e2d5c7
UD
69 /* For debugging. */
70 mtrace ();
71
abbffdf9
UD
72 /* This is the place where the .mo files are placed. */
73 if (argc > 1)
74 {
75 bindtextdomain ("existing-domain", argv[1]);
76 bindtextdomain ("existing-time-domain", argv[1]);
77 bindtextdomain ("non-existing-domain", argv[1]);
78 }
79
80 /* The locale the catalog is created for is "existing-category". Now
81 set the various variables in question to this value and run the
82 test. */
83 setenv ("LANGUAGE", "existing-locale", 1);
84 setenv ("LC_ALL", "non-existing-locale", 1);
85 setenv ("LC_MESSAGES", "non-existing-locale", 1);
45eca4d1 86 setenv ("LC_CTYPE", "non-existing-locale", 1);
abbffdf9 87 setenv ("LANG", "non-existing-locale", 1);
1e6d2101
UD
88 check_setlocale (LC_CTYPE, "de_DE.UTF-8");
89 check_setlocale (LC_MESSAGES, "de_DE.UTF-8");
45eca4d1 90 unsetenv ("OUTPUT_CHARSET");
abbffdf9
UD
91 /* This is the name of the existing domain with a catalog for the
92 LC_MESSAGES category. */
93 textdomain ("existing-domain");
94 puts ("test `gettext' with LANGUAGE set");
95 if (positive_gettext_test () != 0)
96 {
97 puts ("FAILED");
98 result = 1;
99 }
100 /* This is the name of a non-existing domain with a catalog for the
101 LC_MESSAGES category. We leave this value set for the `dgettext'
102 and `dcgettext' tests. */
103 textdomain ("non-existing-domain");
104 puts ("test `gettext' with LANGUAGE set");
105 if (negative_gettext_test () != 0)
106 {
107 puts ("FAILED");
108 result = 1;
109 }
110 puts ("test `dgettext' with LANGUAGE set");
111 if (positive_dgettext_test ("existing-domain") != 0)
112 {
113 puts ("FAILED");
114 result = 1;
115 }
116
117 /* Now the same tests with LC_ALL deciding. */
118 unsetenv ("LANGUAGE");
119 setenv ("LC_ALL", "existing-locale", 1);
5d0bbaaf 120 check_setlocale (LC_ALL, "");
abbffdf9
UD
121 puts ("test `gettext' with LC_ALL set");
122 /* This is the name of the existing domain with a catalog for the
123 LC_MESSAGES category. */
124 textdomain ("existing-domain");
125 if (positive_gettext_test () != 0)
126 {
127 puts ("FAILED");
128 result = 1;
129 }
130 /* This is the name of a non-existing domain with a catalog for the
131 LC_MESSAGES category. We leave this value set for the `dgettext'
132 and `dcgettext' tests. */
133 textdomain ("non-existing-domain");
cdfb970d 134 puts ("test `gettext' with LC_ALL deciding");
abbffdf9
UD
135 if (negative_gettext_test () != 0)
136 {
137 puts ("FAILED");
138 result = 1;
139 }
cdfb970d 140 puts ("test `dgettext' with LC_ALL deciding");
abbffdf9
UD
141 if (positive_dgettext_test ("existing-domain") != 0)
142 {
143 puts ("FAILED");
144 result = 1;
145 }
146
147 /* Now the same tests with LC_MESSAGES deciding. */
148 unsetenv ("LC_ALL");
149 setenv ("LC_MESSAGES", "existing-locale", 1);
5d0bbaaf 150 check_setlocale (LC_MESSAGES, "");
abbffdf9 151 setenv ("LC_TIME", "existing-locale", 1);
5d0bbaaf 152 check_setlocale (LC_TIME, "");
abbffdf9 153 setenv ("LC_NUMERIC", "non-existing-locale", 1);
5d0bbaaf
RM
154 char *what = setlocale (LC_NUMERIC, "");
155 if (what != NULL)
156 {
157 printf ("setlocale succeeded (%s), expected failure\n", what);
158 result = 1;
159 }
160
f58dc022 161 puts ("test `gettext' with LC_MESSAGES set");
abbffdf9
UD
162 /* This is the name of the existing domain with a catalog for the
163 LC_MESSAGES category. */
164 textdomain ("existing-domain");
165 if (positive_gettext_test () != 0)
166 {
167 puts ("FAILED");
168 result = 1;
169 }
170 /* This is the name of a non-existing domain with a catalog for the
171 LC_MESSAGES category. We leave this value set for the `dgettext'
172 and `dcgettext' tests. */
173 textdomain ("non-existing-domain");
f58dc022 174 puts ("test `gettext' with LC_MESSAGES deciding");
abbffdf9
UD
175 if (negative_gettext_test () != 0)
176 {
177 puts ("FAILED");
178 result = 1;
179 }
f58dc022 180 puts ("test `dgettext' with LC_MESSAGES deciding");
abbffdf9
UD
181 if (positive_dgettext_test ("existing-domain") != 0)
182 {
183 puts ("FAILED");
184 result = 1;
185 }
cdfb970d 186 puts ("test `dcgettext' with category == LC_MESSAGES");
abbffdf9
UD
187 if (positive_dcgettext_test ("existing-domain", LC_MESSAGES) != 0)
188 {
189 puts ("FAILED");
190 result = 1;
191 }
192 /* Try a different category. For this we also switch the domain. */
cdfb970d 193 puts ("test `dcgettext' with LANGUAGE == LC_TIME");
abbffdf9
UD
194 if (positive_dcgettext_test ("existing-time-domain", LC_TIME) != 0)
195 {
196 puts ("FAILED");
197 result = 1;
198 }
199 /* This time use a category for which there is no catalog. */
cdfb970d 200 puts ("test `dcgettext' with LANGUAGE == LC_NUMERIC");
abbffdf9
UD
201 if (negative_dcgettext_test ("existing-domain", LC_NUMERIC) != 0)
202 {
203 puts ("FAILED");
204 result = 1;
205 }
206
207 /* Now the same tests with LANG deciding. */
208 unsetenv ("LC_MESSAGES");
5d0bbaaf
RM
209 unsetenv ("LC_CTYPE");
210 unsetenv ("LC_TIME");
211 unsetenv ("LC_NUMERIC");
abbffdf9 212 setenv ("LANG", "existing-locale", 1);
5d0bbaaf 213 check_setlocale (LC_ALL, "");
abbffdf9
UD
214 /* This is the name of the existing domain with a catalog for the
215 LC_MESSAGES category. */
216 textdomain ("existing-domain");
cdfb970d 217 puts ("test `gettext' with LANG set");
abbffdf9
UD
218 if (positive_gettext_test () != 0)
219 {
220 puts ("FAILED");
221 result = 1;
222 }
223 /* This is the name of a non-existing domain with a catalog for the
224 LC_MESSAGES category. We leave this value set for the `dgettext'
225 and `dcgettext' tests. */
226 textdomain ("non-existing-domain");
cdfb970d 227 puts ("test `gettext' with LANG set");
abbffdf9
UD
228 if (negative_gettext_test () != 0)
229 {
230 puts ("FAILED");
231 result = 1;
232 }
cdfb970d 233 puts ("test `dgettext' with LANG set");
abbffdf9
UD
234 if (positive_dgettext_test ("existing-domain") != 0)
235 {
236 puts ("FAILED");
237 result = 1;
238 }
239
5d0bbaaf 240 check_setlocale (LC_ALL, "C");
cdfb970d 241
abbffdf9
UD
242 return result;
243}
244
245
246static int
247positive_gettext_test (void)
248{
249 size_t cnt;
250 int result = 0;
251
252 for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
253 {
254 const char *found = gettext (msgs[cnt].msgid);
255
d2afebcc
UD
256 if (found == NULL
257 || (msgs[cnt].msgstr[0] != '\0'
258 && strcmp (found, msgs[cnt].msgstr) != 0))
abbffdf9
UD
259 {
260 /* Oops, shouldn't happen. */
7f455351
UD
261 printf ("\
262 gettext (\"%s\") failed, returned \"%s\", expected \"%s\"\n",
263 msgs[cnt].msgid, found, msgs[cnt].msgstr);
abbffdf9
UD
264 result = 1;
265 }
266 }
267
268 return result;
269}
270
271
272static int
273negative_gettext_test (void)
274{
275 size_t cnt;
276 int result = 0;
277
278 for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
279 {
280 const char *found = gettext (msgs[cnt].msgid);
281
282 if (found != msgs[cnt].msgid)
283 {
284 /* Oops, shouldn't happen. */
285 printf (" gettext (\"%s\") failed\n", msgs[cnt].msgid);
286 result = 1;
287 }
288 }
289
290 return result;
291}
292
293
294static int
295positive_dgettext_test (const char *domain)
296{
297 size_t cnt;
298 int result = 0;
299
300 for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
301 {
302 const char *found = dgettext (domain, msgs[cnt].msgid);
303
d2afebcc
UD
304 if (found == NULL
305 || (msgs[cnt].msgstr[0] != '\0'
306 && strcmp (found, msgs[cnt].msgstr) != 0))
abbffdf9
UD
307 {
308 /* Oops, shouldn't happen. */
7f455351
UD
309 printf ("\
310 dgettext (\"%s\", \"%s\") failed, returned \"%s\", expected \"%s\"\n",
311 domain, msgs[cnt].msgid, found, msgs[cnt].msgstr);
abbffdf9
UD
312 result = 1;
313 }
314 }
315
316 return result;
317}
318
319
320static int
321positive_dcgettext_test (const char *domain, int category)
322{
323 size_t cnt;
324 int result = 0;
325
326 for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
327 {
328 const char *found = dcgettext (domain, msgs[cnt].msgid, category);
329
d2afebcc
UD
330 if (found == NULL
331 || (msgs[cnt].msgstr[0] != '\0'
332 && strcmp (found, msgs[cnt].msgstr) != 0))
abbffdf9
UD
333 {
334 /* Oops, shouldn't happen. */
7f455351
UD
335 printf ("\
336 dcgettext (\"%s\", \"%s\", %s) failed, returned \"%s\", expected \"%s\"\n",
337 domain, msgs[cnt].msgid, catname[category], found,
338 msgs[cnt].msgstr);
abbffdf9
UD
339 result = 1;
340 }
341 }
342
343 return result;
344}
345
346
347static int
348negative_dcgettext_test (const char *domain, int category)
349{
350 size_t cnt;
351 int result = 0;
352
353 for (cnt = 0; cnt < sizeof (msgs) / sizeof (msgs[0]); ++cnt)
354 {
355 const char *found = dcgettext (domain, msgs[cnt].msgid, category);
356
357 if (found != msgs[cnt].msgid)
358 {
359 /* Oops, shouldn't happen. */
360 printf (" dcgettext (\"%s\", \"%s\", %s) failed\n",
361 domain, msgs[cnt].msgid, catname[category]);
362 result = 1;
363 }
364 }
365
366 return result;
367}