]>
Commit | Line | Data |
---|---|---|
6c46718f UD |
1 | #include <float.h> |
2 | #include <math.h> | |
196980f5 | 3 | #include <stdio.h> |
6c46718f UD |
4 | #include <string.h> |
5 | #include <wchar.h> | |
196980f5 | 6 | |
1a511d31 | 7 | static int |
11336c16 | 8 | t1 (void) |
196980f5 RM |
9 | { |
10 | int n = -1; | |
11 | sscanf ("abc ", "abc %n", &n); | |
12 | printf ("t1: count=%d\n", n); | |
05be689b RM |
13 | |
14 | return n != 5; | |
196980f5 RM |
15 | } |
16 | ||
1a511d31 | 17 | static int |
11336c16 | 18 | t2 (void) |
196980f5 | 19 | { |
05be689b | 20 | int result = 0; |
196980f5 RM |
21 | int n; |
22 | long N; | |
23 | int retval; | |
05be689b | 24 | #define SCAN(INPUT, FORMAT, VAR, EXP_RES, EXP_VAL) \ |
196980f5 | 25 | VAR = -1; \ |
77d10f94 | 26 | retval = sscanf (INPUT, FORMAT, &VAR); \ |
196980f5 | 27 | printf ("sscanf (\"%s\", \"%s\", &x) => %d, x = %ld\n", \ |
27658f20 | 28 | INPUT, FORMAT, retval, (long int) VAR); \ |
05be689b RM |
29 | result |= retval != EXP_RES || VAR != EXP_VAL |
30 | ||
31 | SCAN ("12345", "%ld", N, 1, 12345); | |
27658f20 UD |
32 | SCAN ("12345", "%llllld", N, 0, -1); |
33 | SCAN ("12345", "%LLLLLd", N, 0, -1); | |
8d57beea | 34 | SCAN ("test ", "%*s%n", n, 0, 4); |
27658f20 UD |
35 | SCAN ("test ", "%2*s%n", n, 0, -1); |
36 | SCAN ("12 ", "%l2d", n, 0, -1); | |
05be689b RM |
37 | SCAN ("12 ", "%2ld", N, 1, 12); |
38 | ||
27658f20 UD |
39 | n = -1; |
40 | N = -1; | |
41 | retval = sscanf ("1 1", "%d %Z", &n, &N); | |
42 | printf ("sscanf (\"1 1\", \"%%d %%Z\", &n, &N) => %d, n = %d, N = %ld\n", \ | |
43 | retval, n, N); \ | |
44 | result |= retval != 1 || n != 1 || N != -1; | |
45 | ||
05be689b | 46 | return result; |
196980f5 RM |
47 | } |
48 | ||
38cbcf0a | 49 | volatile double nanval; |
003c9895 UD |
50 | volatile double infval; |
51 | volatile long double lnanval; | |
52 | volatile long double linfval; | |
38cbcf0a | 53 | |
11f685f5 | 54 | |
1a511d31 | 55 | static int |
6c46718f UD |
56 | F (void) |
57 | { | |
003c9895 UD |
58 | char buf[80]; |
59 | wchar_t wbuf[40]; | |
6c46718f UD |
60 | int result; |
61 | ||
38cbcf0a UD |
62 | nanval = NAN; |
63 | ||
003c9895 UD |
64 | snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G", |
65 | nanval, nanval, nanval, nanval, nanval, nanval, nanval, nanval); | |
66 | result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0; | |
67 | printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf); | |
68 | ||
69 | snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G", | |
70 | -nanval, -nanval, -nanval, -nanval, | |
71 | -nanval, -nanval, -nanval, -nanval); | |
72 | result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0; | |
73 | printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n", | |
74 | buf); | |
75 | ||
76 | infval = DBL_MAX * DBL_MAX; | |
77 | ||
78 | snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G", | |
79 | infval, infval, infval, infval, infval, infval, infval, infval); | |
80 | result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0; | |
81 | printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf); | |
82 | ||
83 | snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G", | |
84 | -infval, -infval, -infval, -infval, | |
85 | -infval, -infval, -infval, -infval); | |
86 | result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0; | |
87 | printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n", | |
88 | buf); | |
89 | ||
90 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G", | |
91 | nanval, nanval, nanval, nanval, nanval, nanval, nanval, nanval); | |
92 | result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0; | |
93 | printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf); | |
94 | ||
95 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G", | |
96 | -nanval, -nanval, -nanval, -nanval, | |
97 | -nanval, -nanval, -nanval, -nanval); | |
98 | result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0; | |
99 | printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n", | |
100 | wbuf); | |
101 | ||
102 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G", | |
103 | infval, infval, infval, infval, infval, infval, infval, infval); | |
104 | result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0; | |
105 | printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf); | |
106 | ||
107 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G", | |
108 | -infval, -infval, -infval, -infval, | |
109 | -infval, -infval, -infval, -infval); | |
110 | result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0; | |
111 | printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n", | |
112 | wbuf); | |
113 | ||
114 | lnanval = NAN; | |
115 | ||
116 | snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG", | |
117 | lnanval, lnanval, lnanval, lnanval, | |
118 | lnanval, lnanval, lnanval, lnanval); | |
119 | result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0; | |
120 | printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf); | |
121 | ||
122 | snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG", | |
123 | -lnanval, -lnanval, -lnanval, -lnanval, | |
124 | -lnanval, -lnanval, -lnanval, -lnanval); | |
125 | result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0; | |
126 | printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n", | |
127 | buf); | |
128 | ||
129 | linfval = LDBL_MAX * LDBL_MAX; | |
130 | ||
131 | snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG", | |
132 | linfval, linfval, linfval, linfval, | |
133 | linfval, linfval, linfval, linfval); | |
134 | result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0; | |
135 | printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf); | |
136 | ||
137 | snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG", | |
138 | -linfval, -linfval, -linfval, -linfval, | |
139 | -linfval, -linfval, -linfval, -linfval); | |
140 | result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0; | |
141 | printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n", | |
142 | buf); | |
143 | ||
144 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), | |
145 | L"%La %LA %Le %LE %Lf %LF %Lg %LG", | |
146 | lnanval, lnanval, lnanval, lnanval, | |
147 | lnanval, lnanval, lnanval, lnanval); | |
148 | result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0; | |
149 | printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf); | |
150 | ||
151 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), | |
152 | L"%La %LA %Le %LE %Lf %LF %Lg %LG", | |
153 | -lnanval, -lnanval, -lnanval, -lnanval, | |
154 | -lnanval, -lnanval, -lnanval, -lnanval); | |
155 | result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0; | |
156 | printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n", | |
157 | wbuf); | |
158 | ||
159 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), | |
160 | L"%La %LA %Le %LE %Lf %LF %Lg %LG", | |
161 | linfval, linfval, linfval, linfval, | |
162 | linfval, linfval, linfval, linfval); | |
163 | result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0; | |
164 | printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf); | |
165 | ||
166 | swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), | |
167 | L"%La %LA %Le %LE %Lf %LF %Lg %LG", | |
168 | -linfval, -linfval, -linfval, -linfval, | |
169 | -linfval, -linfval, -linfval, -linfval); | |
170 | result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0; | |
171 | printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n", | |
172 | wbuf); | |
6c46718f UD |
173 | |
174 | return result; | |
175 | } | |
176 | ||
196980f5 | 177 | int |
11336c16 | 178 | main (int argc, char *argv[]) |
196980f5 | 179 | { |
05be689b RM |
180 | int result = 0; |
181 | ||
182 | result |= t1 (); | |
183 | result |= t2 (); | |
6c46718f | 184 | result |= F (); |
05be689b RM |
185 | |
186 | result |= fflush (stdout) == EOF; | |
196980f5 | 187 | |
05be689b | 188 | return result; |
196980f5 | 189 | } |