1/* Regression test for setlocale invalid environment variable handling.
2 Copyright (C) 2014-2024 Free Software Foundation, Inc.
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
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.
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
13 Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <https://www.gnu.org/licenses/>. */
18
19#include <locale.h>
20#include <stdio.h>
21#include <stdlib.h>
22#include <string.h>
23
24/* The result of setlocale may be overwritten by subsequent calls, so
25 this wrapper makes a copy. */
26static char *
27setlocale_copy (int category, const char *locale)
28{
29 const char *result = setlocale (category, locale);
30 if (result == NULL)
31 return NULL;
32 return strdup (s: result);
33}
34
35static char *de_locale;
36
37static void
38setlocale_fail (const char *envstring)
39{
40 setenv (name: "LC_CTYPE", value: envstring, replace: 1);
41 if (setlocale (LC_CTYPE, "") != NULL)
42 {
43 printf (format: "unexpected setlocale success for \"%s\" locale\n", envstring);
44 exit (1);
45 }
46 const char *newloc = setlocale (LC_CTYPE, NULL);
47 if (strcmp (newloc, de_locale) != 0)
48 {
49 printf (format: "failed setlocale call \"%s\" changed locale to \"%s\"\n",
50 envstring, newloc);
51 exit (1);
52 }
53}
54
55static void
56setlocale_success (const char *envstring)
57{
58 setenv (name: "LC_CTYPE", value: envstring, replace: 1);
59 char *newloc = setlocale_copy (LC_CTYPE, locale: "");
60 if (newloc == NULL)
61 {
62 printf (format: "setlocale for \"%s\": %m\n", envstring);
63 exit (1);
64 }
65 if (strcmp (newloc, de_locale) == 0)
66 {
67 printf (format: "setlocale with LC_CTYPE=\"%s\" left locale at \"%s\"\n",
68 envstring, de_locale);
69 exit (1);
70 }
71 if (setlocale (LC_CTYPE, de_locale) == NULL)
72 {
73 printf (format: "restoring locale \"%s\" with LC_CTYPE=\"%s\": %m\n",
74 de_locale, envstring);
75 exit (1);
76 }
77 char *newloc2 = setlocale_copy (LC_CTYPE, locale: newloc);
78 if (newloc2 == NULL)
79 {
80 printf (format: "restoring locale \"%s\" following \"%s\": %m\n",
81 newloc, envstring);
82 exit (1);
83 }
84 if (strcmp (newloc, newloc2) != 0)
85 {
86 printf (format: "representation of locale \"%s\" changed from \"%s\" to \"%s\"",
87 envstring, newloc, newloc2);
88 exit (1);
89 }
90 free (ptr: newloc);
91 free (ptr: newloc2);
92
93 if (setlocale (LC_CTYPE, de_locale) == NULL)
94 {
95 printf (format: "restoring locale \"%s\" with LC_CTYPE=\"%s\": %m\n",
96 de_locale, envstring);
97 exit (1);
98 }
99}
100
101/* Checks that a known-good locale still works if LC_ALL contains a
102 value which should be ignored. */
103static void
104setlocale_ignore (const char *to_ignore)
105{
106 const char *fr_locale = "fr_FR.UTF-8";
107 setenv (name: "LC_CTYPE", value: fr_locale, replace: 1);
108 char *expected_locale = setlocale_copy (LC_CTYPE, locale: "");
109 if (expected_locale == NULL)
110 {
111 printf (format: "setlocale with LC_CTYPE=\"%s\" failed: %m\n", fr_locale);
112 exit (1);
113 }
114 if (setlocale (LC_CTYPE, de_locale) == NULL)
115 {
116 printf (format: "failed to restore locale: %m\n");
117 exit (1);
118 }
119 unsetenv (name: "LC_CTYPE");
120
121 setenv (name: "LC_ALL", value: to_ignore, replace: 1);
122 setenv (name: "LC_CTYPE", value: fr_locale, replace: 1);
123 const char *actual_locale = setlocale (LC_CTYPE, "");
124 if (actual_locale == NULL)
125 {
126 printf (format: "setlocale with LC_ALL, LC_CTYPE=\"%s\" failed: %m\n",
127 fr_locale);
128 exit (1);
129 }
130 if (strcmp (actual_locale, expected_locale) != 0)
131 {
132 printf (format: "setlocale under LC_ALL failed: got \"%s\", expected \"%s\"\n",
133 actual_locale, expected_locale);
134 exit (1);
135 }
136 unsetenv (name: "LC_CTYPE");
137 setlocale_success (fr_locale);
138 unsetenv (name: "LC_ALL");
139 free (ptr: expected_locale);
140}
141
142static int
143do_test (void)
144{
145 /* The glibc test harness sets this environment variable
146 uncondionally. */
147 unsetenv (name: "LC_ALL");
148
149 de_locale = setlocale_copy (LC_CTYPE, locale: "de_DE.UTF-8");
150 if (de_locale == NULL)
151 {
152 printf (format: "setlocale (LC_CTYPE, \"de_DE.UTF-8\"): %m\n");
153 return 1;
154 }
155 setlocale_success ("C");
156 setlocale_success ("en_US.UTF-8");
157 setlocale_success ("/en_US.UTF-8");
158 setlocale_success ("//en_US.UTF-8");
159 setlocale_ignore ("");
160
161 setlocale_fail ("does-not-exist");
162 setlocale_fail ("/");
163 setlocale_fail ("/../localedata/en_US.UTF-8");
164 setlocale_fail ("en_US.UTF-8/");
165 setlocale_fail ("en_US.UTF-8/..");
166 setlocale_fail ("en_US.UTF-8/../en_US.UTF-8");
167 setlocale_fail ("../localedata/en_US.UTF-8");
168 {
169 size_t large_length = 1024;
170 char *large_name = malloc (size: large_length + 1);
171 if (large_name == NULL)
172 {
173 puts (s: "malloc failure");
174 return 1;
175 }
176 memset (large_name, '/', large_length);
177 const char *suffix = "en_US.UTF-8";
178 strcpy (large_name + large_length - strlen (suffix), suffix);
179 setlocale_fail (large_name);
180 free (ptr: large_name);
181 }
182 {
183 size_t huge_length = 64 * 1024 * 1024;
184 char *huge_name = malloc (size: huge_length + 1);
185 if (huge_name == NULL)
186 {
187 puts (s: "malloc failure");
188 return 1;
189 }
190 memset (huge_name, 'X', huge_length);
191 huge_name[huge_length] = '\0';
192 /* Construct a composite locale specification. */
193 const char *prefix = "LC_CTYPE=de_DE.UTF-8;LC_TIME=";
194 memcpy (huge_name, prefix, strlen (prefix));
195 setlocale_fail (huge_name);
196 free (ptr: huge_name);
197 }
198
199 return 0;
200}
201
202#define TEST_FUNCTION do_test ()
203#include "../test-skeleton.c"
204

source code of glibc/localedata/tst-setlocale3.c