1 /* Test of ulc_v[a]s[n]printf() functions.
2 Copyright (C) 2007, 2009, 2010 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 3 of the License, or
7 (at your option) any later version.
9 This program 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
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
17 /* Written by Bruno Haible <bruno@clisp.org>, 2007. */
20 test_xfunction (char * (*my_xasprintf) (const char *, ...))
22 /* Test support of size specifiers as in C99. */
26 my_xasprintf ("%ju %d", (uintmax_t) 12345671, 33, 44, 55);
27 ASSERT (result != NULL);
28 ASSERT (strcmp (result, "12345671 33") == 0);
34 my_xasprintf ("%zu %d", (size_t) 12345672, 33, 44, 55);
35 ASSERT (result != NULL);
36 ASSERT (strcmp (result, "12345672 33") == 0);
42 my_xasprintf ("%tu %d", (ptrdiff_t) 12345673, 33, 44, 55);
43 ASSERT (result != NULL);
44 ASSERT (strcmp (result, "12345673 33") == 0);
50 my_xasprintf ("%Lg %d", (long double) 1.5, 33, 44, 55);
51 ASSERT (result != NULL);
52 ASSERT (strcmp (result, "1.5 33") == 0);
56 /* Test the support of the 'U' conversion specifier for Unicode strings. */
59 static const uint8_t unicode_string[] = "Hello";
62 my_xasprintf ("%U %d", unicode_string, 33, 44, 55);
63 ASSERT (result != NULL);
64 ASSERT (strcmp (result, "Hello 33") == 0);
69 my_xasprintf ("%10U %d", unicode_string, 33, 44, 55);
70 ASSERT (result != NULL);
71 ASSERT (strcmp (result, " Hello 33") == 0);
76 my_xasprintf ("%-10U %d", unicode_string, 33, 44, 55);
77 ASSERT (result != NULL);
78 ASSERT (strcmp (result, "Hello 33") == 0);
81 { /* FLAG_ZERO: no effect. */
83 my_xasprintf ("%010U %d", unicode_string, 33, 44, 55);
84 ASSERT (result != NULL);
85 ASSERT (strcmp (result, " Hello 33") == 0);
91 static const uint16_t unicode_string[] = { 'H', 'e', 'l', 'l', 'o', 0 };
94 my_xasprintf ("%lU %d", unicode_string, 33, 44, 55);
95 ASSERT (result != NULL);
96 ASSERT (strcmp (result, "Hello 33") == 0);
101 my_xasprintf ("%10lU %d", unicode_string, 33, 44, 55);
102 ASSERT (result != NULL);
103 ASSERT (strcmp (result, " Hello 33") == 0);
108 my_xasprintf ("%-10lU %d", unicode_string, 33, 44, 55);
109 ASSERT (result != NULL);
110 ASSERT (strcmp (result, "Hello 33") == 0);
113 { /* FLAG_ZERO: no effect. */
115 my_xasprintf ("%010lU %d", unicode_string, 33, 44, 55);
116 ASSERT (result != NULL);
117 ASSERT (strcmp (result, " Hello 33") == 0);
123 static const uint32_t unicode_string[] = { 'H', 'e', 'l', 'l', 'o', 0 };
126 my_xasprintf ("%llU %d", unicode_string, 33, 44, 55);
127 ASSERT (result != NULL);
128 ASSERT (strcmp (result, "Hello 33") == 0);
133 my_xasprintf ("%10llU %d", unicode_string, 33, 44, 55);
134 ASSERT (result != NULL);
135 ASSERT (strcmp (result, " Hello 33") == 0);
140 my_xasprintf ("%-10llU %d", unicode_string, 33, 44, 55);
141 ASSERT (result != NULL);
142 ASSERT (strcmp (result, "Hello 33") == 0);
145 { /* FLAG_ZERO: no effect. */
147 my_xasprintf ("%010llU %d", unicode_string, 33, 44, 55);
148 ASSERT (result != NULL);
149 ASSERT (strcmp (result, " Hello 33") == 0);
154 /* Test the support of the 's' conversion specifier for strings. */
158 my_xasprintf ("Mr. %s %d", "Ronald Reagan", 33, 44, 55);
159 ASSERT (result != NULL);
160 ASSERT (strcmp (result, "Mr. Ronald Reagan 33") == 0);
166 my_xasprintf ("Mr. %20s %d", "Ronald Reagan", 33, 44, 55);
167 ASSERT (result != NULL);
168 ASSERT (strcmp (result, "Mr. Ronald Reagan 33") == 0);
174 my_xasprintf ("Mr. %-20s %d", "Ronald Reagan", 33, 44, 55);
175 ASSERT (result != NULL);
176 ASSERT (strcmp (result, "Mr. Ronald Reagan 33") == 0);
180 { /* FLAG_ZERO: no effect. */
182 my_xasprintf ("Mr. %020s %d", "Ronald Reagan", 33, 44, 55);
183 ASSERT (result != NULL);
184 ASSERT (strcmp (result, "Mr. Ronald Reagan 33") == 0);
188 /* Test the support of the 'a' and 'A' conversion specifier for hexadecimal
189 output of floating-point numbers. */
191 { /* A positive number. */
193 my_xasprintf ("%a %d", 3.1416015625, 33, 44, 55);
194 ASSERT (result != NULL);
195 ASSERT (strcmp (result, "0x1.922p+1 33") == 0
196 || strcmp (result, "0x3.244p+0 33") == 0
197 || strcmp (result, "0x6.488p-1 33") == 0
198 || strcmp (result, "0xc.91p-2 33") == 0);
204 my_xasprintf ("%10a %d", 1.75, 33, 44, 55);
205 ASSERT (result != NULL);
206 ASSERT (strcmp (result, " 0x1.cp+0 33") == 0
207 || strcmp (result, " 0x3.8p-1 33") == 0
208 || strcmp (result, " 0x7p-2 33") == 0
209 || strcmp (result, " 0xep-3 33") == 0);
213 { /* Small precision. */
215 my_xasprintf ("%.10a %d", 1.75, 33, 44, 55);
216 ASSERT (result != NULL);
217 ASSERT (strcmp (result, "0x1.c000000000p+0 33") == 0
218 || strcmp (result, "0x3.8000000000p-1 33") == 0
219 || strcmp (result, "0x7.0000000000p-2 33") == 0
220 || strcmp (result, "0xe.0000000000p-3 33") == 0);
224 { /* Large precision. */
226 my_xasprintf ("%.50a %d", 1.75, 33, 44, 55);
227 ASSERT (result != NULL);
228 ASSERT (strcmp (result, "0x1.c0000000000000000000000000000000000000000000000000p+0 33") == 0
229 || strcmp (result, "0x3.80000000000000000000000000000000000000000000000000p-1 33") == 0
230 || strcmp (result, "0x7.00000000000000000000000000000000000000000000000000p-2 33") == 0
231 || strcmp (result, "0xe.00000000000000000000000000000000000000000000000000p-3 33") == 0);
235 { /* A positive number. */
237 my_xasprintf ("%La %d", 3.1416015625L, 33, 44, 55);
238 ASSERT (result != NULL);
239 ASSERT (strcmp (result, "0x1.922p+1 33") == 0
240 || strcmp (result, "0x3.244p+0 33") == 0
241 || strcmp (result, "0x6.488p-1 33") == 0
242 || strcmp (result, "0xc.91p-2 33") == 0);
248 my_xasprintf ("%10La %d", 1.75L, 33, 44, 55);
249 ASSERT (result != NULL);
250 ASSERT (strcmp (result, " 0x1.cp+0 33") == 0
251 || strcmp (result, " 0x3.8p-1 33") == 0
252 || strcmp (result, " 0x7p-2 33") == 0
253 || strcmp (result, " 0xep-3 33") == 0);
257 { /* Small precision. */
259 my_xasprintf ("%.10La %d", 1.75L, 33, 44, 55);
260 ASSERT (result != NULL);
261 ASSERT (strcmp (result, "0x1.c000000000p+0 33") == 0
262 || strcmp (result, "0x3.8000000000p-1 33") == 0
263 || strcmp (result, "0x7.0000000000p-2 33") == 0
264 || strcmp (result, "0xe.0000000000p-3 33") == 0);
268 { /* Large precision. */
270 my_xasprintf ("%.50La %d", 1.75L, 33, 44, 55);
271 ASSERT (result != NULL);
272 ASSERT (strcmp (result, "0x1.c0000000000000000000000000000000000000000000000000p+0 33") == 0
273 || strcmp (result, "0x3.80000000000000000000000000000000000000000000000000p-1 33") == 0
274 || strcmp (result, "0x7.00000000000000000000000000000000000000000000000000p-2 33") == 0
275 || strcmp (result, "0xe.00000000000000000000000000000000000000000000000000p-3 33") == 0);
279 /* Test the support of the %f format directive. */
281 { /* A positive number. */
283 my_xasprintf ("%f %d", 12.75, 33, 44, 55);
284 ASSERT (result != NULL);
285 ASSERT (strcmp (result, "12.750000 33") == 0);
291 my_xasprintf ("%10f %d", 1.75, 33, 44, 55);
292 ASSERT (result != NULL);
293 ASSERT (strcmp (result, " 1.750000 33") == 0);
299 my_xasprintf ("%.f %d", 1234.0, 33, 44, 55);
300 ASSERT (result != NULL);
301 ASSERT (strcmp (result, "1234 33") == 0);
305 { /* A positive number. */
307 my_xasprintf ("%Lf %d", 12.75L, 33, 44, 55);
308 ASSERT (result != NULL);
309 ASSERT (strcmp (result, "12.750000 33") == 0);
315 my_xasprintf ("%10Lf %d", 1.75L, 33, 44, 55);
316 ASSERT (result != NULL);
317 ASSERT (strcmp (result, " 1.750000 33") == 0);
323 my_xasprintf ("%.Lf %d", 1234.0L, 33, 44, 55);
324 ASSERT (result != NULL);
325 ASSERT (strcmp (result, "1234 33") == 0);
329 /* Test the support of the %F format directive. */
331 { /* A positive number. */
333 my_xasprintf ("%F %d", 12.75, 33, 44, 55);
334 ASSERT (result != NULL);
335 ASSERT (strcmp (result, "12.750000 33") == 0);
341 my_xasprintf ("%.F %d", 1234.0, 33, 44, 55);
342 ASSERT (result != NULL);
343 ASSERT (strcmp (result, "1234 33") == 0);
347 { /* A positive number. */
349 my_xasprintf ("%LF %d", 12.75L, 33, 44, 55);
350 ASSERT (result != NULL);
351 ASSERT (strcmp (result, "12.750000 33") == 0);
357 my_xasprintf ("%.LF %d", 1234.0L, 33, 44, 55);
358 ASSERT (result != NULL);
359 ASSERT (strcmp (result, "1234 33") == 0);
363 /* Test the support of the %e format directive. */
365 { /* A positive number. */
367 my_xasprintf ("%e %d", 12.75, 33, 44, 55);
368 ASSERT (result != NULL);
369 ASSERT (strcmp (result, "1.275000e+01 33") == 0
370 || strcmp (result, "1.275000e+001 33") == 0);
376 my_xasprintf ("%15e %d", 1.75, 33, 44, 55);
377 ASSERT (result != NULL);
378 ASSERT (strcmp (result, " 1.750000e+00 33") == 0
379 || strcmp (result, " 1.750000e+000 33") == 0);
385 my_xasprintf ("%.e %d", 1234.0, 33, 44, 55);
386 ASSERT (result != NULL);
387 ASSERT (strcmp (result, "1e+03 33") == 0
388 || strcmp (result, "1e+003 33") == 0);
392 { /* A positive number. */
394 my_xasprintf ("%Le %d", 12.75L, 33, 44, 55);
395 ASSERT (result != NULL);
396 ASSERT (strcmp (result, "1.275000e+01 33") == 0);
402 my_xasprintf ("%15Le %d", 1.75L, 33, 44, 55);
403 ASSERT (result != NULL);
404 ASSERT (strcmp (result, " 1.750000e+00 33") == 0);
410 my_xasprintf ("%.Le %d", 1234.0L, 33, 44, 55);
411 ASSERT (result != NULL);
412 ASSERT (strcmp (result, "1e+03 33") == 0);
416 /* Test the support of the %g format directive. */
418 { /* A positive number. */
420 my_xasprintf ("%g %d", 12.75, 33, 44, 55);
421 ASSERT (result != NULL);
422 ASSERT (strcmp (result, "12.75 33") == 0);
428 my_xasprintf ("%10g %d", 1.75, 33, 44, 55);
429 ASSERT (result != NULL);
430 ASSERT (strcmp (result, " 1.75 33") == 0);
436 my_xasprintf ("%.g %d", 1234.0, 33, 44, 55);
437 ASSERT (result != NULL);
438 ASSERT (strcmp (result, "1e+03 33") == 0
439 || strcmp (result, "1e+003 33") == 0);
443 { /* A positive number. */
445 my_xasprintf ("%Lg %d", 12.75L, 33, 44, 55);
446 ASSERT (result != NULL);
447 ASSERT (strcmp (result, "12.75 33") == 0);
453 my_xasprintf ("%10Lg %d", 1.75L, 33, 44, 55);
454 ASSERT (result != NULL);
455 ASSERT (strcmp (result, " 1.75 33") == 0);
461 my_xasprintf ("%.Lg %d", 1234.0L, 33, 44, 55);
462 ASSERT (result != NULL);
463 ASSERT (strcmp (result, "1e+03 33") == 0);
467 /* Test the support of the %n format directive. */
472 my_xasprintf ("%d %n", 123, &count, 33, 44, 55);
473 ASSERT (result != NULL);
474 ASSERT (strcmp (result, "123 ") == 0);
479 /* Test the support of the POSIX/XSI format strings with positions. */
483 my_xasprintf ("%2$d %1$d", 33, 55);
484 ASSERT (result != NULL);
485 ASSERT (strcmp (result, "55 33") == 0);
489 /* Test the support of the grouping flag. */
493 my_xasprintf ("%'d %d", 1234567, 99);
494 ASSERT (result != NULL);
495 ASSERT (result[strlen (result) - 1] == '9');