• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1 #include <stdio.h>
2 #include <stdlib.h>
3 #include <string.h>
4 #include <errno.h>
5 #include "test.h"
6 
7 /* r = place to store result
8  * f = function call to test (or any expression)
9  * x = expected result
10  * m = message to print on failure (with formats for r & x)
11 **/
12 
13 #define TEST(r, f, x, m) ( \
14 	errno = 0, msg = #f, ((r) = (f)) == (x) || \
15 	(t_error("%s failed (" m ")\n", #f, r, x), 0) )
16 
17 #define TEST2(r, f, x, m) ( \
18 	((r) = (f)) == (x) || \
19 	(t_error("%s failed (" m ")\n", msg, r, x), 0) )
20 
main(void)21 int main(void)
22 {
23 	int i;
24 	long l;
25 	unsigned long ul;
26 	long long ll;
27 	unsigned long long ull;
28 	char *msg="";
29 	char *s, *c;
30 
31 	TEST(l, atol("2147483647"), 2147483647L, "max 32bit signed %ld != %ld");
32 	TEST(l, strtol("2147483647", 0, 0), 2147483647L, "max 32bit signed %ld != %ld");
33 	TEST(ul, strtoul("4294967295", 0, 0), 4294967295UL, "max 32bit unsigned %lu != %lu");
34 
35 	if (sizeof(long) == 4) {
36 		TEST(l, strtol(s="2147483648", &c, 0), 2147483647L, "uncaught overflow %ld != %ld");
37 		TEST2(i, c-s, 10, "wrong final position %d != %d");
38 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
39 		TEST(l, strtol(s="-2147483649", &c, 0), -2147483647L-1, "uncaught overflow %ld != %ld");
40 		TEST2(i, c-s, 11, "wrong final position %d != %d");
41 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
42 		TEST(ul, strtoul(s="4294967296", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
43 		TEST2(i, c-s, 10, "wrong final position %d != %d");
44 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
45 		TEST(ul, strtoul(s="-1", &c, 0), -1UL, "rejected negative %lu != %lu");
46 		TEST2(i, c-s, 2, "wrong final position %d != %d");
47 		TEST2(i, errno, 0, "spurious errno %d != %d");
48 		TEST(ul, strtoul(s="-2", &c, 0), -2UL, "rejected negative %lu != %lu");
49 		TEST2(i, c-s, 2, "wrong final position %d != %d");
50 		TEST2(i, errno, 0, "spurious errno %d != %d");
51 		TEST(ul, strtoul(s="-2147483648", &c, 0), -2147483648UL, "rejected negative %lu != %lu");
52 		TEST2(i, c-s, 11, "wrong final position %d != %d");
53 		TEST2(i, errno, 0, "spurious errno %d != %d");
54 		TEST(ul, strtoul(s="-2147483649", &c, 0), -2147483649UL, "rejected negative %lu != %lu");
55 		TEST2(i, c-s, 11, "wrong final position %d != %d");
56 		TEST2(i, errno, 0, "spurious errno %d != %d");
57 		TEST(ul, strtoul(s="-4294967296", &c, 0), 4294967295UL, "uncaught negative overflow %lu != %lu");
58 		TEST2(i, c-s, 11, "wrong final position %d != %d");
59 		TEST2(i, errno, ERANGE, "spurious errno %d != %d");
60 	} else if (sizeof(long) == 8) {
61 		TEST(l, strtol(s="9223372036854775808", &c, 0), 9223372036854775807L, "uncaught overflow %ld != %ld");
62 		TEST2(i, c-s, 19, "wrong final position %d != %d");
63 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
64 		TEST(l, strtol(s="-9223372036854775809", &c, 0), -9223372036854775807L-1, "uncaught overflow %ld != %ld");
65 		TEST2(i, c-s, 20, "wrong final position %d != %d");
66 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
67 		TEST(ul, strtoul(s="18446744073709551616", &c, 0), 18446744073709551615UL, "uncaught overflow %lu != %lu");
68 		TEST2(i, c-s, 20, "wrong final position %d != %d");
69 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
70 		TEST(ul, strtoul(s="-1", &c, 0), -1UL, "rejected negative %lu != %lu");
71 		TEST2(i, c-s, 2, "wrong final position %d != %d");
72 		TEST2(i, errno, 0, "spurious errno %d != %d");
73 		TEST(ul, strtoul(s="-2", &c, 0), -2UL, "rejected negative %lu != %lu");
74 		TEST2(i, c-s, 2, "wrong final position %d != %d");
75 		TEST2(i, errno, 0, "spurious errno %d != %d");
76 		TEST(ul, strtoul(s="-9223372036854775808", &c, 0), -9223372036854775808UL, "rejected negative %lu != %lu");
77 		TEST2(i, c-s, 20, "wrong final position %d != %d");
78 		TEST2(i, errno, 0, "spurious errno %d != %d");
79 		TEST(ul, strtoul(s="-9223372036854775809", &c, 0), -9223372036854775809UL, "rejected negative %lu != %lu");
80 		TEST2(i, c-s, 20, "wrong final position %d != %d");
81 		TEST2(i, errno, 0, "spurious errno %d != %d");
82 		TEST(ul, strtoul(s="-18446744073709551616", &c, 0), 18446744073709551615UL, "uncaught negative overflow %lu != %lu");
83 		TEST2(i, c-s, 21, "wrong final position %d != %d");
84 		TEST2(i, errno, ERANGE, "spurious errno %d != %d");
85 	} else {
86 		t_error("sizeof(long) == %d, not implemented\n", (int)sizeof(long));
87 	}
88 
89 	if (sizeof(long long) == 8) {
90 		TEST(ll, strtoll(s="9223372036854775808", &c, 0), 9223372036854775807LL, "uncaught overflow %lld != %lld");
91 		TEST2(i, c-s, 19, "wrong final position %d != %d");
92 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
93 		TEST(ll, strtoll(s="-9223372036854775809", &c, 0), -9223372036854775807LL-1, "uncaught overflow %lld != %lld");
94 		TEST2(i, c-s, 20, "wrong final position %d != %d");
95 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
96 		TEST(ull, strtoull(s="18446744073709551616", &c, 0), 18446744073709551615ULL, "uncaught overflow %llu != %llu");
97 		TEST2(i, c-s, 20, "wrong final position %d != %d");
98 		TEST2(i, errno, ERANGE, "missing errno %d != %d");
99 		TEST(ull, strtoull(s="-1", &c, 0), -1ULL, "rejected negative %llu != %llu");
100 		TEST2(i, c-s, 2, "wrong final position %d != %d");
101 		TEST2(i, errno, 0, "spurious errno %d != %d");
102 		TEST(ull, strtoull(s="-2", &c, 0), -2ULL, "rejected negative %llu != %llu");
103 		TEST2(i, c-s, 2, "wrong final position %d != %d");
104 		TEST2(i, errno, 0, "spurious errno %d != %d");
105 		TEST(ull, strtoull(s="-9223372036854775808", &c, 0), -9223372036854775808ULL, "rejected negative %llu != %llu");
106 		TEST2(i, c-s, 20, "wrong final position %d != %d");
107 		TEST2(i, errno, 0, "spurious errno %d != %d");
108 		TEST(ull, strtoull(s="-9223372036854775809", &c, 0), -9223372036854775809ULL, "rejected negative %llu != %llu");
109 		TEST2(i, c-s, 20, "wrong final position %d != %d");
110 		TEST2(i, errno, 0, "spurious errno %d != %d");
111 		TEST(ull, strtoull(s="-18446744073709551616", &c, 0), 18446744073709551615ULL, "uncaught negative overflow %llu != %llu");
112 		TEST2(i, c-s, 21, "wrong final position %d != %d");
113 		TEST2(i, errno, ERANGE, "spurious errno %d != %d");
114 	} else {
115 		t_error("sizeof(long long) == %d, not implemented\n", (int)sizeof(long long));
116 	}
117 
118 	TEST(l, strtol("z", 0, 36), 35, "%ld != %ld");
119 	TEST(l, strtol("00010010001101000101011001111000", 0, 2), 0x12345678, "%ld != %ld");
120 	TEST(l, strtol(s="0F5F", &c, 16), 0x0f5f, "%ld != %ld");
121 
122 	TEST(l, strtol(s="0xz", &c, 16), 0, "%ld != %ld");
123 	TEST2(i, c-s, 1, "wrong final position %ld != %ld");
124 
125 	TEST(l, strtol(s="0x1234", &c, 16), 0x1234, "%ld != %ld");
126 	TEST2(i, c-s, 6, "wrong final position %ld != %ld");
127 
128 	c = NULL;
129 	TEST(l, strtol(s="123", &c, 37), 0, "%ld != %ld");
130 	TEST2(i, c-s, 0, "wrong final position %d != %d");
131 	TEST2(i, errno, EINVAL, "%d != %d");
132 
133 	TEST(l, strtol(s="  15437", &c, 8), 015437, "%ld != %ld");
134 	TEST2(i, c-s, 7, "wrong final position %d != %d");
135 
136 	TEST(l, strtol(s="  1", &c, 0), 1, "%ld != %ld");
137 	TEST2(i, c-s, 3, "wrong final position %d != %d");
138 	return t_status;
139 }
140