2004-06-14 Andreas Schwab <schwab@suse.de>
[kopensolaris-gnu/glibc.git] / stdio-common / tst-printf.c
1 /* Copyright (C) 1991,92,93,95,96,97,98,99, 2000, 2002
2      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, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #ifdef  BSD
21 #include </usr/include/stdio.h>
22 #define EXIT_SUCCESS 0
23 #else
24 #include <limits.h>
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <string.h>
28 #endif
29
30 #include <float.h>
31
32 static void rfg1 (void);
33 static void rfg2 (void);
34 static void rfg3 (void);
35
36
37 static void
38 fmtchk (const char *fmt)
39 {
40   (void) fputs(fmt, stdout);
41   (void) printf(":\t`");
42   (void) printf(fmt, 0x12);
43   (void) printf("'\n");
44 }
45
46 static void
47 fmtst1chk (const char *fmt)
48 {
49   (void) fputs(fmt, stdout);
50   (void) printf(":\t`");
51   (void) printf(fmt, 4, 0x12);
52   (void) printf("'\n");
53 }
54
55 static void
56 fmtst2chk (const char *fmt)
57 {
58   (void) fputs(fmt, stdout);
59   (void) printf(":\t`");
60   (void) printf(fmt, 4, 4, 0x12);
61   (void) printf("'\n");
62 }
63 \f
64 /* This page is covered by the following copyright: */
65
66 /* (C) Copyright C E Chew
67  *
68  * Feel free to copy, use and distribute this software provided:
69  *
70  *      1. you do not pretend that you wrote it
71  *      2. you leave this copyright notice intact.
72  */
73
74 /*
75  * Extracted from exercise.c for glibc-1.05 bug report by Bruce Evans.
76  */
77
78 #define DEC -123
79 #define INT 255
80 #define UNS (~0)
81
82 /* Formatted Output Test
83  *
84  * This exercises the output formatting code.
85  */
86
87 static void
88 fp_test (void)
89 {
90   int i, j, k, l;
91   char buf[7];
92   char *prefix = buf;
93   char tp[20];
94
95   puts("\nFormatted output test");
96   printf("prefix  6d      6o      6x      6X      6u\n");
97   strcpy(prefix, "%");
98   for (i = 0; i < 2; i++) {
99     for (j = 0; j < 2; j++) {
100       for (k = 0; k < 2; k++) {
101         for (l = 0; l < 2; l++) {
102           strcpy(prefix, "%");
103           if (i == 0) strcat(prefix, "-");
104           if (j == 0) strcat(prefix, "+");
105           if (k == 0) strcat(prefix, "#");
106           if (l == 0) strcat(prefix, "0");
107           printf("%5s |", prefix);
108           strcpy(tp, prefix);
109           strcat(tp, "6d |");
110           printf(tp, DEC);
111           strcpy(tp, prefix);
112           strcat(tp, "6o |");
113           printf(tp, INT);
114           strcpy(tp, prefix);
115           strcat(tp, "6x |");
116           printf(tp, INT);
117           strcpy(tp, prefix);
118           strcat(tp, "6X |");
119           printf(tp, INT);
120           strcpy(tp, prefix);
121           strcat(tp, "6u |");
122           printf(tp, UNS);
123           printf("\n");
124         }
125       }
126     }
127   }
128   printf("%10s\n", (char *) NULL);
129   printf("%-10s\n", (char *) NULL);
130 }
131 \f
132 int
133 main (int argc, char *argv[])
134 {
135   static char shortstr[] = "Hi, Z.";
136   static char longstr[] = "Good morning, Doctor Chandra.  This is Hal.  \
137 I am ready for my first lesson today.";
138   int result = 0;
139
140   fmtchk("%.4x");
141   fmtchk("%04x");
142   fmtchk("%4.4x");
143   fmtchk("%04.4x");
144   fmtchk("%4.3x");
145   fmtchk("%04.3x");
146
147   fmtst1chk("%.*x");
148   fmtst1chk("%0*x");
149   fmtst2chk("%*.*x");
150   fmtst2chk("%0*.*x");
151
152 #ifndef BSD
153   printf("bad format:\t\"%b\"\n");
154   printf("nil pointer (padded):\t\"%10p\"\n", (void *) NULL);
155 #endif
156
157   printf("decimal negative:\t\"%d\"\n", -2345);
158   printf("octal negative:\t\"%o\"\n", -2345);
159   printf("hex negative:\t\"%x\"\n", -2345);
160   printf("long decimal number:\t\"%ld\"\n", -123456L);
161   printf("long octal negative:\t\"%lo\"\n", -2345L);
162   printf("long unsigned decimal number:\t\"%lu\"\n", -123456L);
163   printf("zero-padded LDN:\t\"%010ld\"\n", -123456L);
164   printf("left-adjusted ZLDN:\t\"%-010ld\"\n", -123456L);
165   printf("space-padded LDN:\t\"%10ld\"\n", -123456L);
166   printf("left-adjusted SLDN:\t\"%-10ld\"\n", -123456L);
167
168   printf("zero-padded string:\t\"%010s\"\n", shortstr);
169   printf("left-adjusted Z string:\t\"%-010s\"\n", shortstr);
170   printf("space-padded string:\t\"%10s\"\n", shortstr);
171   printf("left-adjusted S string:\t\"%-10s\"\n", shortstr);
172   printf("null string:\t\"%s\"\n", (char *)NULL);
173   printf("limited string:\t\"%.22s\"\n", longstr);
174
175   printf("e-style >= 1:\t\"%e\"\n", 12.34);
176   printf("e-style >= .1:\t\"%e\"\n", 0.1234);
177   printf("e-style < .1:\t\"%e\"\n", 0.001234);
178   printf("e-style big:\t\"%.60e\"\n", 1e20);
179   printf ("e-style == .1:\t\"%e\"\n", 0.1);
180   printf("f-style >= 1:\t\"%f\"\n", 12.34);
181   printf("f-style >= .1:\t\"%f\"\n", 0.1234);
182   printf("f-style < .1:\t\"%f\"\n", 0.001234);
183   printf("g-style >= 1:\t\"%g\"\n", 12.34);
184   printf("g-style >= .1:\t\"%g\"\n", 0.1234);
185   printf("g-style < .1:\t\"%g\"\n", 0.001234);
186   printf("g-style big:\t\"%.60g\"\n", 1e20);
187
188   printf (" %6.5f\n", .099999999860301614);
189   printf (" %6.5f\n", .1);
190   printf ("x%5.4fx\n", .5);
191
192   printf ("%#03x\n", 1);
193
194   printf ("something really insane: %.10000f\n", 1.0);
195
196   {
197     double d = FLT_MIN;
198     int niter = 17;
199
200     while (niter-- != 0)
201       printf ("%.17e\n", d / 2);
202     fflush (stdout);
203   }
204
205   printf ("%15.5e\n", 4.9406564584124654e-324);
206
207 #define FORMAT "|%12.4f|%12.4e|%12.4g|\n"
208   printf (FORMAT, 0.0, 0.0, 0.0);
209   printf (FORMAT, 1.0, 1.0, 1.0);
210   printf (FORMAT, -1.0, -1.0, -1.0);
211   printf (FORMAT, 100.0, 100.0, 100.0);
212   printf (FORMAT, 1000.0, 1000.0, 1000.0);
213   printf (FORMAT, 10000.0, 10000.0, 10000.0);
214   printf (FORMAT, 12345.0, 12345.0, 12345.0);
215   printf (FORMAT, 100000.0, 100000.0, 100000.0);
216   printf (FORMAT, 123456.0, 123456.0, 123456.0);
217 #undef  FORMAT
218
219   {
220     char buf[20];
221     char buf2[512];
222     printf ("snprintf (\"%%30s\", \"foo\") == %d, \"%.*s\"\n",
223             snprintf (buf, sizeof (buf), "%30s", "foo"), (int) sizeof (buf),
224             buf);
225     printf ("snprintf (\"%%.999999u\", 10) == %d\n",
226             snprintf(buf2, sizeof(buf2), "%.999999u", 10));
227   }
228
229   fp_test ();
230
231   printf ("%e should be 1.234568e+06\n", 1234567.8);
232   printf ("%f should be 1234567.800000\n", 1234567.8);
233   printf ("%g should be 1.23457e+06\n", 1234567.8);
234   printf ("%g should be 123.456\n", 123.456);
235   printf ("%g should be 1e+06\n", 1000000.0);
236   printf ("%g should be 10\n", 10.0);
237   printf ("%g should be 0.02\n", 0.02);
238
239 #if 0
240   /* This test rather checks the way the compiler handles constant
241      folding.  gcc behavior wrt to this changed in 3.2 so it is not a
242      portable test.  */
243   {
244     double x=1.0;
245     printf("%.17f\n",(1.0/x/10.0+1.0)*x-x);
246   }
247 #endif
248
249   {
250     char buf[200];
251
252     sprintf(buf,"%*s%*s%*s",-1,"one",-20,"two",-30,"three");
253
254     result |= strcmp (buf,
255                       "onetwo                 three                         ");
256
257     puts (result != 0 ? "Test failed!" : "Test ok.");
258   }
259
260   {
261     char buf[200];
262
263     sprintf (buf, "%07Lo", 040000000000ll);
264     printf ("sprintf (buf, \"%%07Lo\", 040000000000ll) = %s", buf);
265
266     if (strcmp (buf, "40000000000") != 0)
267       {
268         result = 1;
269         fputs ("\tFAILED", stdout);
270       }
271     puts ("");
272   }
273
274   printf ("printf (\"%%hhu\", %u) = %hhu\n", UCHAR_MAX + 2, UCHAR_MAX + 2);
275   printf ("printf (\"%%hu\", %u) = %hu\n", USHRT_MAX + 2, USHRT_MAX + 2);
276
277   puts ("--- Should be no further output. ---");
278   rfg1 ();
279   rfg2 ();
280   rfg3 ();
281
282   {
283     char bytes[7];
284     char buf[20];
285
286     memset (bytes, '\xff', sizeof bytes);
287     sprintf (buf, "foo%hhn\n", &bytes[3]);
288     if (bytes[0] != '\xff' || bytes[1] != '\xff' || bytes[2] != '\xff'
289         || bytes[4] != '\xff' || bytes[5] != '\xff' || bytes[6] != '\xff')
290       {
291         puts ("%hhn overwrite more bytes");
292         result = 1;
293       }
294     if (bytes[3] != 3)
295       {
296         puts ("%hhn wrote incorrect value");
297         result = 1;
298       }
299   }
300
301   return result != 0;
302 }
303 \f
304 static void
305 rfg1 (void)
306 {
307   char buf[100];
308
309   sprintf (buf, "%5.s", "xyz");
310   if (strcmp (buf, "     ") != 0)
311     printf ("got: '%s', expected: '%s'\n", buf, "     ");
312   sprintf (buf, "%5.f", 33.3);
313   if (strcmp (buf, "   33") != 0)
314     printf ("got: '%s', expected: '%s'\n", buf, "   33");
315   sprintf (buf, "%8.e", 33.3e7);
316   if (strcmp (buf, "   3e+08") != 0)
317     printf ("got: '%s', expected: '%s'\n", buf, "   3e+08");
318   sprintf (buf, "%8.E", 33.3e7);
319   if (strcmp (buf, "   3E+08") != 0)
320     printf ("got: '%s', expected: '%s'\n", buf, "   3E+08");
321   sprintf (buf, "%.g", 33.3);
322   if (strcmp (buf, "3e+01") != 0)
323     printf ("got: '%s', expected: '%s'\n", buf, "3e+01");
324   sprintf (buf, "%.G", 33.3);
325   if (strcmp (buf, "3E+01") != 0)
326     printf ("got: '%s', expected: '%s'\n", buf, "3E+01");
327 }
328
329 static void
330 rfg2 (void)
331 {
332   int prec;
333   char buf[100];
334
335   prec = 0;
336   sprintf (buf, "%.*g", prec, 3.3);
337   if (strcmp (buf, "3") != 0)
338     printf ("got: '%s', expected: '%s'\n", buf, "3");
339   prec = 0;
340   sprintf (buf, "%.*G", prec, 3.3);
341   if (strcmp (buf, "3") != 0)
342     printf ("got: '%s', expected: '%s'\n", buf, "3");
343   prec = 0;
344   sprintf (buf, "%7.*G", prec, 3.33);
345   if (strcmp (buf, "      3") != 0)
346     printf ("got: '%s', expected: '%s'\n", buf, "      3");
347   prec = 3;
348   sprintf (buf, "%04.*o", prec, 33);
349   if (strcmp (buf, " 041") != 0)
350     printf ("got: '%s', expected: '%s'\n", buf, " 041");
351   prec = 7;
352   sprintf (buf, "%09.*u", prec, 33);
353   if (strcmp (buf, "  0000033") != 0)
354     printf ("got: '%s', expected: '%s'\n", buf, "  0000033");
355   prec = 3;
356   sprintf (buf, "%04.*x", prec, 33);
357   if (strcmp (buf, " 021") != 0)
358     printf ("got: '%s', expected: '%s'\n", buf, " 021");
359   prec = 3;
360   sprintf (buf, "%04.*X", prec, 33);
361   if (strcmp (buf, " 021") != 0)
362     printf ("got: '%s', expected: '%s'\n", buf, " 021");
363 }
364
365 static void
366 rfg3 (void)
367 {
368   char buf[100];
369   double g = 5.0000001;
370   unsigned long l = 1234567890;
371   double d = 321.7654321;
372   const char s[] = "test-string";
373   int i = 12345;
374   int h = 1234;
375
376   sprintf (buf,
377            "%1$*5$d %2$*6$hi %3$*7$lo %4$*8$f %9$*12$e %10$*13$g %11$*14$s",
378            i, h, l, d, 8, 5, 14, 14, d, g, s, 14, 3, 14);
379   if (strcmp (buf,
380               "   12345  1234    11145401322     321.765432   3.217654e+02   5    test-string") != 0)
381     printf ("got: '%s', expected: '%s'\n", buf,
382             "   12345  1234    11145401322     321.765432   3.217654e+02   5    test-string");
383 }