1 | /* Test locale dependence of strfmon_l. |
2 | Copyright (C) 2016-2022 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 <stdbool.h> |
20 | #include <stdio.h> |
21 | #include <monetary.h> |
22 | #include <string.h> |
23 | #include <stdlib.h> |
24 | #include <locale.h> |
25 | |
26 | static const char *const en_us_name = "en_US.ISO-8859-1" ; |
27 | |
28 | /* Locale value to be used by tests. */ |
29 | static locale_t loc; |
30 | static const char *loc_name; |
31 | |
32 | /* Set the global locale to GLOBAL_NAME, and the locale referenced by |
33 | the loc variable above to LOCAL_NAME. */ |
34 | static void |
35 | init_loc (const char *global_name, const char *local_name) |
36 | { |
37 | loc = newlocale (LC_ALL_MASK, locale: local_name, base: 0); |
38 | if (loc == 0) |
39 | { |
40 | printf (format: "error: newlocale (%s): %m\n" , local_name); |
41 | abort (); |
42 | } |
43 | loc_name = local_name; |
44 | |
45 | if (setlocale (LC_ALL, global_name) == NULL) |
46 | { |
47 | printf (format: "error: setlocale (%s): %m\n" , global_name); |
48 | abort (); |
49 | } |
50 | } |
51 | |
52 | /* Expected strings for a positive or negative value. */ |
53 | struct testcase |
54 | { |
55 | const char *i; /* %i */ |
56 | const char *n; /* %n */ |
57 | const char *i_ungrouped; /* %^i */ |
58 | const char *n_ungrouped; /* %^n */ |
59 | }; |
60 | |
61 | /* Collected expected strings for both positive and negative |
62 | values. */ |
63 | struct testcase_pair |
64 | { |
65 | struct testcase positive; /* 1234567.89 */ |
66 | struct testcase negative; /* -1234567.89 */ |
67 | }; |
68 | |
69 | static bool errors; |
70 | |
71 | /* Test one value using the locale loc. */ |
72 | static void |
73 | test_one (const char *format, double value, const char *ldformat, |
74 | long double ldvalue, const char *expected) |
75 | { |
76 | static char actual[64], actualld[64]; |
77 | int result = strfmon_l (s: actual, maxsize: sizeof (actual), loc: loc, format: format, value); |
78 | int res_ld = strfmon_l (s: actualld, maxsize: sizeof (actualld), loc: loc, format: ldformat, ldvalue); |
79 | if (result < 0) |
80 | { |
81 | printf (format: "error: locale %s, format \"%s\", value %g: strfmon_l: %m\n" , |
82 | loc_name, format, value); |
83 | errors = true; |
84 | } |
85 | else if (res_ld < 0) |
86 | { |
87 | printf (format: "error: locale %s, format \"%s\", value %Lg: strfmon_l: %m\n" , |
88 | loc_name, ldformat, ldvalue); |
89 | errors = true; |
90 | } |
91 | else if (strcmp (actual, expected) != 0) |
92 | { |
93 | printf (format: "error: locale %s, format \"%s\", value %g: mismatch\n" , |
94 | loc_name, format, value); |
95 | printf (format: "error: expected: \"%s\"\n" , expected); |
96 | printf (format: "error: actual: \"%s\"\n" , actual); |
97 | errors = true; |
98 | } |
99 | else if (strcmp (actualld, expected) != 0) |
100 | { |
101 | printf (format: "error: locale %s, format \"%s\", value %Lg: mismatch\n" , |
102 | loc_name, ldformat, ldvalue); |
103 | printf (format: "error: expected: \"%s\"\n" , expected); |
104 | printf (format: "error: actual: \"%s\"\n" , actualld); |
105 | errors = true; |
106 | } |
107 | } |
108 | |
109 | static void |
110 | test_pair (const struct testcase_pair *pair) |
111 | { |
112 | double positive = 1234567.89; |
113 | long double pos = 1234567.89L; |
114 | test_one (format: "%i" , value: positive, ldformat: "%Li" , ldvalue: pos, expected: pair->positive.i); |
115 | test_one (format: "%n" , value: positive, ldformat: "%Ln" , ldvalue: pos, expected: pair->positive.n); |
116 | test_one (format: "%^i" , value: positive, ldformat: "%^Li" , ldvalue: pos, expected: pair->positive.i_ungrouped); |
117 | test_one (format: "%^n" , value: positive, ldformat: "%^Ln" , ldvalue: pos, expected: pair->positive.n_ungrouped); |
118 | double negative = -1234567.89; |
119 | long double neg = -1234567.89L; |
120 | test_one (format: "%i" , value: negative, ldformat: "%Li" , ldvalue: neg, expected: pair->negative.i); |
121 | test_one (format: "%n" , value: negative, ldformat: "%Ln" , ldvalue: neg, expected: pair->negative.n); |
122 | test_one (format: "%^i" , value: negative, ldformat: "%^Li" , ldvalue: neg, expected: pair->negative.i_ungrouped); |
123 | test_one (format: "%^n" , value: negative, ldformat: "%^Ln" , ldvalue: neg, expected: pair->negative.n_ungrouped); |
124 | } |
125 | |
126 | static const struct testcase_pair en_us = |
127 | { |
128 | { |
129 | "USD 1,234,567.89" , "$1,234,567.89" , |
130 | "USD 1234567.89" , "$1234567.89" |
131 | }, |
132 | { |
133 | "-USD 1,234,567.89" , "-$1,234,567.89" , |
134 | "-USD 1234567.89" , "-$1234567.89" |
135 | } |
136 | }; |
137 | |
138 | static void |
139 | test_en_us (const char *other_name) |
140 | { |
141 | init_loc (global_name: other_name, local_name: en_us_name); |
142 | test_pair (pair: &en_us); |
143 | freelocale (dataset: loc); |
144 | } |
145 | |
146 | struct locale_pair |
147 | { |
148 | const char *locale_name; |
149 | struct testcase_pair pair; |
150 | }; |
151 | |
152 | static const struct locale_pair tests[] = |
153 | { |
154 | { |
155 | "de_DE.UTF-8" , |
156 | { |
157 | { |
158 | "1.234.567,89 EUR" , "1.234.567,89 \u20ac" , |
159 | "1234567,89 EUR" , "1234567,89 \u20ac" |
160 | }, |
161 | { |
162 | "-1.234.567,89 EUR" , "-1.234.567,89 \u20ac" , |
163 | "-1234567,89 EUR" , "-1234567,89 \u20ac" |
164 | } |
165 | }, |
166 | }, |
167 | { |
168 | "tg_TJ.UTF-8" , |
169 | { |
170 | { |
171 | "1\u202f234\u202f567.89 TJS" , "1\u202f234\u202f567.89 \u0440\u0443\u0431" , |
172 | "1234567.89 TJS" , "1234567.89 \u0440\u0443\u0431" |
173 | }, |
174 | { |
175 | "-1\u202f234\u202f567.89 TJS" , "-1\u202f234\u202f567.89 \u0440\u0443\u0431" , |
176 | "-1234567.89 TJS" , "-1234567.89 \u0440\u0443\u0431" |
177 | } |
178 | } |
179 | }, |
180 | { |
181 | "hr_HR.UTF-8" , |
182 | { |
183 | { |
184 | "HRK 1.234.567,89" , "1.234.567,89 kn" , |
185 | "HRK 1234567,89" , "1234567,89 kn" |
186 | }, |
187 | { |
188 | "-HRK 1.234.567,89" , "-1.234.567,89 kn" , |
189 | "-HRK 1234567,89" , "-1234567,89 kn" |
190 | } |
191 | } |
192 | }, |
193 | { |
194 | "hi_IN.UTF-8" , |
195 | { |
196 | { |
197 | "INR12,34,567.89" , "\u20b912,34,567.89" , |
198 | "INR1234567.89" , "\u20b91234567.89" |
199 | }, |
200 | { |
201 | "-INR12,34,567.89" , "-\u20b912,34,567.89" , |
202 | "-INR1234567.89" , "-\u20b91234567.89" |
203 | } |
204 | } |
205 | }, |
206 | { |
207 | "el_GR.UTF-8" , |
208 | { |
209 | { |
210 | "1.234.567,89EUR" , "1.234.567,89\u20ac" , |
211 | "1234567,89EUR" , "1234567,89\u20ac" |
212 | }, |
213 | { |
214 | "-1.234.567,89EUR" , "-1.234.567,89\u20ac" , |
215 | "-1234567,89EUR" , "-1234567,89\u20ac" , |
216 | } |
217 | } |
218 | }, |
219 | {} |
220 | }; |
221 | |
222 | static int |
223 | do_test (void) |
224 | { |
225 | for (const struct locale_pair *test = tests; |
226 | test->locale_name != NULL; ++test) |
227 | { |
228 | init_loc (global_name: en_us_name, local_name: test->locale_name); |
229 | test_pair (pair: &test->pair); |
230 | freelocale (dataset: loc); |
231 | test_en_us (other_name: test->locale_name); |
232 | } |
233 | |
234 | return errors; |
235 | } |
236 | |
237 | #define TEST_FUNCTION do_test () |
238 | #include "../test-skeleton.c" |
239 | |