1/*	$NetBSD: t_strtol.c,v 1.4 2011/06/08 05:31:43 jruoho Exp $ */
2
3/*-
4 * Copyright (c) 2011 The NetBSD Foundation, Inc.
5 * All rights reserved.
6 *
7 * This code is derived from software contributed to The NetBSD Foundation
8 * by Jukka Ruohonen.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 *    notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 *    notice, this list of conditions and the following disclaimer in the
17 *    documentation and/or other materials provided with the distribution.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29 * POSSIBILITY OF SUCH DAMAGE.
30 */
31
32#include <sys/cdefs.h>
33__RCSID("$NetBSD: t_strtol.c,v 1.4 2011/06/08 05:31:43 jruoho Exp $");
34
35#include <atf-c.h>
36#include <errno.h>
37#include <stdlib.h>
38#include <string.h>
39#include <limits.h>
40
41struct test {
42	const char	*str;
43	int64_t		 res;
44	int		 base;
45	const char	*end;
46};
47
48static void	check(struct test *, long int, long long int, char *);
49
50static void
51check(struct test *t, long int li, long long int lli, char *end)
52{
53
54	if (li != -1 && li != t->res)
55		atf_tc_fail_nonfatal("strtol(%s, &end, %d) failed "
56		    "(rv = %ld)", t->str, t->base, li);
57
58	if (lli != -1 && lli != t->res)
59		atf_tc_fail_nonfatal("strtoll(%s, NULL, %d) failed "
60		    "(rv = %lld)", t->str, t->base, lli);
61
62	if (t->end != NULL && strcmp(t->end, end) != 0)
63		atf_tc_fail_nonfatal("invalid end pointer ('%s') from "
64		    "strtol(%s, &end, %d)", end, t->str, t->base);
65}
66
67ATF_TC(strtol_base);
68ATF_TC_HEAD(strtol_base, tc)
69{
70	atf_tc_set_md_var(tc, "descr", "Test strtol(3) with different bases");
71}
72
73ATF_TC_BODY(strtol_base, tc)
74{
75	struct test t[] = {
76		{ "123456789",			 123456789,  0, NULL	},
77		{ "111010110111100110100010101", 123456789,  2, NULL	},
78		{ "22121022020212200",		 123456789,  3, NULL	},
79		{ "13112330310111",		 123456789,  4, NULL	},
80		{ "223101104124",		 123456789,  5, NULL	},
81		{ "20130035113",		 123456789,  6, NULL	},
82		{ "3026236221",			 123456789,  7, NULL	},
83		{ "726746425",			 123456789,  8, NULL	},
84		{ "277266780",			 123456789,  9, NULL	},
85		{ "123456789",			 123456789, 10, NULL	},
86		{ "63762A05",			 123456789, 11, NULL	},
87		{ "35418A99",			 123456789, 12, NULL	},
88		{ "1C767471",			 123456789, 13, NULL	},
89		{ "12579781",			 123456789, 14, NULL	},
90		{ "AC89BC9",			 123456789, 15, NULL	},
91		{ "75BCD15",			 123456789, 16, NULL	},
92		{ "123456789",			    342391,  8, NULL	},
93		{ "0123456789",			    342391,  0, NULL	},
94		{ "0123456789",			 123456789, 10, NULL	},
95		{ "0x75bcd15",		         123456789,  0, NULL	},
96	};
97
98	long long int lli;
99	long int li;
100	char *end;
101	size_t i;
102
103	for (i = 0; i < __arraycount(t); i++) {
104
105		li = strtol(t[i].str, &end, t[i].base);
106		lli = strtoll(t[i].str, NULL, t[i].base);
107
108		check(&t[i], li, lli, end);
109	}
110}
111
112ATF_TC(strtol_case);
113ATF_TC_HEAD(strtol_case, tc)
114{
115	atf_tc_set_md_var(tc, "descr", "Case insensitivity with strtol(3)");
116}
117
118ATF_TC_BODY(strtol_case, tc)
119{
120	struct test t[] = {
121		{ "abcd",	0xabcd, 16, NULL	},
122		{ "     dcba",	0xdcba, 16, NULL	},
123		{ "abcd dcba",	0xabcd, 16, " dcba"	},
124		{ "abc0x123",	0xabc0, 16, NULL	},
125		{ "abcd\0x123",	0xabcd, 16, "\0x123"	},
126		{ "ABCD",	0xabcd, 16, NULL	},
127		{ "aBcD",	0xabcd, 16, NULL	},
128		{ "0xABCD",	0xabcd, 16, NULL	},
129		{ "0xABCDX",	0xabcd, 16, "X"		},
130	};
131
132	long long int lli;
133	long int li;
134	char *end;
135	size_t i;
136
137	for (i = 0; i < __arraycount(t); i++) {
138
139		li = strtol(t[i].str, &end, t[i].base);
140		lli = strtoll(t[i].str, NULL, t[i].base);
141
142		check(&t[i], li, lli, end);
143	}
144}
145
146ATF_TC(strtol_range);
147ATF_TC_HEAD(strtol_range, tc)
148{
149	atf_tc_set_md_var(tc, "descr", "Test ERANGE from strtol(3)");
150}
151
152ATF_TC_BODY(strtol_range, tc)
153{
154
155#if LONG_MAX == 0x7fffffff	/* XXX: Is this portable? */
156
157	struct test t[] = {
158		{ "20000000000", 2147483647, 8, NULL },
159		{ "2147483648",  2147483647, 10, NULL },
160		{ "80000000",	 2147483647, 16, NULL },
161	};
162#else
163	struct test t[] = {
164		{ "1000000000000000000000", 9223372036854775807, 8, NULL },
165		{ "9223372036854775808",    9223372036854775807, 10, NULL },
166		{ "8000000000000000",       9223372036854775807, 16, NULL },
167	};
168#endif
169
170	long int li;
171	char *end;
172	size_t i;
173
174	for (i = 0; i < __arraycount(t); i++) {
175
176		errno = 0;
177		li = strtol(t[i].str, &end, t[i].base);
178
179		if (errno != ERANGE)
180			atf_tc_fail("strtol(3) did not catch ERANGE");
181
182		check(&t[i], li, -1, end);
183	}
184}
185
186ATF_TC(strtol_signed);
187ATF_TC_HEAD(strtol_signed, tc)
188{
189	atf_tc_set_md_var(tc, "descr", "A basic test of strtol(3)");
190}
191
192ATF_TC_BODY(strtol_signed, tc)
193{
194	struct test t[] = {
195		{ "1",		 1, 0, NULL	},
196		{ " 2",		 2, 0, NULL	},
197		{ "  3",	 3, 0, NULL	},
198		{ " -3",	-3, 0, NULL	},
199		{ "--1",	 0, 0, "--1"	},
200		{ "+-2",	 0, 0, "+-2"	},
201		{ "++3",	 0, 0, "++3"	},
202		{ "+9",		 9, 0, NULL	},
203		{ "+123",      123, 0, NULL	},
204		{ "-1 3",       -1, 0, " 3"	},
205		{ "-1.3",       -1, 0, ".3"	},
206		{ "-  3",        0, 0, "-  3"	},
207		{ "+33.",       33, 0, "."	},
208		{ "30x0",       30, 0, "x0"	},
209	};
210
211	long long int lli;
212	long int li;
213	char *end;
214	size_t i;
215
216	for (i = 0; i < __arraycount(t); i++) {
217
218		li = strtol(t[i].str, &end, t[i].base);
219		lli = strtoll(t[i].str, NULL, t[i].base);
220
221		check(&t[i], li, lli, end);
222	}
223}
224
225ATF_TP_ADD_TCS(tp)
226{
227
228	ATF_TP_ADD_TC(tp, strtol_base);
229	ATF_TP_ADD_TC(tp, strtol_case);
230	ATF_TP_ADD_TC(tp, strtol_range);
231	ATF_TP_ADD_TC(tp, strtol_signed);
232
233	return atf_no_error();
234}
235