1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
|
/* PDCLib testing suite <_PDCLIB_test.h>
This file is part of the Public Domain C Library (PDCLib).
Permission is granted to use, modify, and / or redistribute at will.
*/
/* -------------------------------------------------------------------------- */
/* Helper macros for printf() / scanf() tests */
/* -------------------------------------------------------------------------- */
/* Tucked away in a separate header because these are ugly, complex, and not */
/* needed in 95% of all test cases. */
/* -------------------------------------------------------------------------- */
/* ...printf() tests */
#if defined( _PDCLIB_FILEIO )
#define GET_RESULT \
rewind( target ); \
if ( (int)fread( result_buffer, 1, actual_rc, target ) != actual_rc ) \
{ \
fprintf( stderr, "GET_RESULT failed." ); \
}
#define RESULT_MISMATCH( act, exp ) strcmp( result_buffer, exp ) != 0
#define RESULT_STRING( tgt ) result_buffer
#elif defined( _PDCLIB_STRINGIO )
#define RESULT_MISMATCH( act, exp ) strcmp( act, exp ) != 0
#define GET_RESULT
#define RESULT_STRING( tgt ) tgt
#endif
#ifdef _PDCLIB_FILEIO
#define PREP_RESULT_BUFFER char result_buffer[100] = { 0 }; rewind( target );
#else
#define PREP_RESULT_BUFFER
#endif
#define GETFMT( fmt, ... ) (fmt)
#define PRINTF_TEST( expected_rc, expected_string, ... ) do { \
int actual_rc; \
PREP_RESULT_BUFFER \
actual_rc = testprintf( target, __VA_ARGS__ ); \
GET_RESULT \
if ( ( actual_rc != expected_rc ) || \
( RESULT_MISMATCH( target, expected_string ) ) ) \
{ \
++TEST_RESULTS; \
fprintf( stderr, \
"FAILED: " __FILE__ " (" _PDCLIB_FILEID "), line %d\n" \
" format string \"%s\"\n" \
" expected %2d, \"%s\"\n" \
" actual %2d, \"%s\"\n", \
__LINE__, GETFMT(__VA_ARGS__, 0), expected_rc, \
expected_string, actual_rc, RESULT_STRING( target ) ); \
} \
} while ( 0 )
/* ...scanf() tests */
#if defined( _PDCLIB_FILEIO )
#define PREPARE_SOURCE( input_string ) \
source = freopen( NULL, "wb+", source ); \
fwrite( input_string, 1, strlen( input_string ), source ); \
rewind( source );
#elif defined( _PDCLIB_STRINGIO )
#define PREPARE_SOURCE( input_string ) \
memcpy( source, input_string, sizeof( input_string ) );
#endif
#define SCANF_TEST( expected_rc, input_string, ... ) do { \
int actual_rc; \
PREPARE_SOURCE( input_string ); \
actual_rc = testscanf( source, __VA_ARGS__ ); \
if ( actual_rc != expected_rc ) \
{ \
++TEST_RESULTS; \
fprintf( stderr, "FAILED: " __FILE__ " (" _PDCLIB_FILEID "), line %d\n expected %2d, actual %2d\n", __LINE__, expected_rc, actual_rc ); \
} \
} while ( 0 )
/* Virtually everything in the printf() / scanf() test drivers is heavily
depending on the platform, i.e. the width of the integer values. To do
proper domain tests, we need the limits of the integers (largest and
smallest value), which we can get from <limits.h>. But we also need the
string representations of these numbers, to the various bases, which of
course vary depending on how the platform defines 'int' and 'long'.
*/
#define sym2v( x ) #x
#define sym2s( x ) sym2v( x )
#if INT_MAX >> 15 == 1
#define UINT_DIG 5
#define INT_DIG 5
#define INT_DIG_LESS1 "4"
#define INT_DIG_PLUS1 "6"
#define INT_DIG_PLUS2 "7"
#define INT_HEXDIG "FFF"
#define INT_hexdig "fff"
#define INT_OCTDIG "177777"
#define INT_MAX_DEZ_STR "32767"
#define INT_MIN_DEZ_STR "32768"
#define UINT_MAX_DEZ_STR "65535"
#define INT_MAX_OCT_STR
#define INT_MIN_OCT_STR
#define UINT_MAX_OCT_STR
#define INT_MAX_HEX_STR
#define INT_MIN_HEX_STR
#define UINT_MAX_HEX_STR
#elif UINT_MAX >> 31 == 1
#define UINT_DIG 10
#define INT_DIG 10
#define INT_DIG_LESS1 "9"
#define INT_DIG_PLUS1 "11"
#define INT_DIG_PLUS2 "12"
#define INT_HEXDIG "FFFFFFF"
#define INT_hexdig "fffffff"
#define INT_OCTDIG "37777777777"
#define INT_MAX_DEZ_STR "2147483647"
#define INT_MIN_DEZ_STR "2147483648"
#define UINT_MAX_DEZ_STR "4294967295"
#define INT_MAX_OCT_STR
#define INT_MIN_OCT_STR
#define UINT_MAX_OCT_STR
#define INT_MAX_HEX_STR
#define INT_MIN_HEX_STR
#define UINT_MAX_HEX_STR
#elif UINT_MAX >> 63 == 1
#define UINT_DIG 20
#define INT_DIG 19
#define INT_DIG_LESS1 "18"
#define INT_DIG_PLUS1 "20"
#define INT_DIG_PLUS2 "21"
#define INT_HEXDIG "FFFFFFFFFFFFFFF"
#define INT_hexdig "fffffffffffffff"
#define INT_OCTDIG "1777777777777777777777"
#define INT_MAX_DEZ_STR "9223372036854775807"
#define INT_MIN_DEZ_STR "9223372036854775808"
#define UINT_MAX_DEZ_STR "18446744073709551615"
#define INT_MAX_OCT_STR
#define INT_MIN_OCT_STR
#define UINT_MAX_OCT_STR
#define INT_MAX_HEX_STR
#define INT_MIN_HEX_STR
#define UINT_MAX_HEX_STR
#else
#error Unsupported width of 'int' (neither 16, 32, nor 64 bit).
#endif
#if ULONG_MAX >> 31 == 1
#define ULONG_DIG 10
#define LONG_DIG 10
#define LONG_MAX_DEZ_STR "2147483647"
#define LONG_MIN_DEZ_STR "2147483648"
#define ULONG_MAX_DEZ_STR "4294967295"
#define LONG_MAX_OCT_STR
#define LONG_MIN_OCT_STR
#define ULONG_MAX_OCT_STR
#define LONG_MAX_HEX_STR
#define LONG_MIN_HEX_STR
#define ULONG_MAX_HEX_STR
#elif ULONG_MAX >> 63 == 1
#define ULONG_DIG 20
#define LONG_DIG 19
#define LONG_MAX_DEZ_STR "9223372036854775807"
#define LONG_MIN_DEZ_STR "9223372036854775808"
#define ULONG_MAX_DEZ_STR "18446744073709551615"
#define LONG_MAX_OCT_STR
#define LONG_MIN_OCT_STR
#define ULONG_MAX_OCT_STR
#define LONG_MAX_HEX_STR
#define LONG_MIN_HEX_STR
#define ULONG_MAX_HEX_STR
#else
#error Unsupported width of 'long' (neither 32 nor 64 bit).
#endif
#if ULLONG_MAX >> 63 == 1
#define ULLONG_DIG 20
#define LLONG_DIG 19
#define LLONG_MAX_DEZ_STR "9223372036854775807"
#define LLONG_MIN_DEZ_STR "9223372036854775808"
#define ULLONG_MAX_DEZ_STR "18446744073709551615"
#define LLONG_MAX_OCT_STR
#define LLONG_MIN_OCT_STR
#define ULLONG_MAX_OCT_STR
#define LLONG_MAX_HEX_STR
#define LLONG_MIN_HEX_STR
#define ULLONG_MAX_HEX_STR
#elif ULLONG_MAX >> 127 == 1
#define ULLONG_DIG 38
#define LLONG_DIG 38
#define LLONG_MAX_DEZ_STR "170141183460469231731687303715884105727"
#define LLONG_MIN_DEZ_STR "170141183460469231731687303715884105728"
#define ULLONG_MAX_DEZ_STR "340282366920938463463374607431768211455"
#define LLONG_MAX_OCT_STR
#define LLONG_MIN_OCT_STR
#define ULLONG_MAX_OCT_STR
#define LLONG_MAX_HEX_STR
#define LLONG_MIN_HEX_STR
#define ULLONG_MAX_HEX_STR
#else
#error Unsupported width of 'long long' (neither 64 nor 128 bit).
#endif
|
