1 /* My bet is this was written by Chris Torek.
2 I reformatted and ansidecl-ized it, and tweaked it a little. */
13 CONST
char *str
; /* Convert this. */
14 unsigned long int expect
; /* To get this. */
15 int base
; /* Use this base. */
16 char left
; /* With this left over. */
17 int err
; /* And this in errno. */
19 static CONST
struct ltest tests
[] =
21 /* First, signed numbers. */
22 { " -17", -17, 0, 0, 0 },
23 { " +0x123fg", 0x123f, 0, 'g', 0 },
24 { "2147483647", 2147483647, 0, 0, 0 },
25 { "2147483648", 2147483647, 0, 0, ERANGE
},
26 { "214748364888", 2147483647, 0, 0, ERANGE
},
27 { "2147483650", 2147483647, 0, 0, ERANGE
},
28 { "-2147483649", -2147483648, 0, 0, ERANGE
},
29 { "-2147483648", -2147483648, 0, 0, 0 },
30 { "0123", 0123, 0, 0, 0 },
31 { "0x1122334455z", 2147483647, 16, 'z', ERANGE
},
32 { "0x0xc", 0, 0, 'x', 0 },
33 { "yz!", 34*36+35, 36, '!', 0 },
38 { "0xffffffffg", 0xffffffff, 0, 'g', 0 },
39 { "0xf1f2f3f4f5", 0xffffffff, 0, 0, ERANGE
},
40 { "-0x123456789", 0xffffffff, 0, 0, ERANGE
},
41 { "-0xfedcba98", -0xfedcba98, 0, 0, 0 },
45 static void EXFUN(expand
, (char *dst
, int c
));
50 register CONST
struct ltest
*lt
;
54 for (lt
= tests
; lt
->str
!= NULL
; ++lt
)
59 l
= strtol(lt
->str
, &ep
, lt
->base
);
60 printf("strtol(\"%s\", , %d) test %u",
61 lt
->str
, lt
->base
, (unsigned int) (lt
- tests
));
62 if (l
== (long int) lt
->expect
&& *ep
== lt
->left
&& errno
== lt
->err
)
67 if (l
!= (long int) lt
->expect
)
68 printf(" returns %ld, expected %ld\n",
69 l
, (long int) lt
->expect
);
72 char exp1
[5], exp2
[5];
74 expand(exp2
, lt
->left
);
75 printf(" leaves '%s', expected '%s'\n", exp1
, exp2
);
78 printf(" errno %d (%s) instead of %d (%s)\n",
79 errno
, strerror(errno
), lt
->err
, strerror(lt
->err
));
84 for (++lt
; lt
->str
!= NULL
; lt
++)
86 register unsigned long int ul
;
89 ul
= strtoul(lt
->str
, &ep
, lt
->base
);
90 printf("strtoul(\"%s\", , %d) test %u",
91 lt
->str
, lt
->base
, (unsigned int) (lt
- tests
));
92 if (ul
== lt
->expect
&& *ep
== lt
->left
&& errno
== lt
->err
)
98 printf(" returns %lu, expected %lu\n",
102 char exp1
[5], exp2
[5];
104 expand(exp2
, lt
->left
);
105 printf(" leaves '%s', expected '%s'\n", exp1
, exp2
);
107 if (errno
!= lt
->err
)
108 printf(" errno %d (%s) instead of %d (%s)\n",
109 errno
, strerror(errno
), lt
->err
, strerror(lt
->err
));
114 exit(status
? EXIT_FAILURE
: EXIT_SUCCESS
);
118 DEFUN(expand
, (dst
, c
), register char *dst AND
register int c
)
126 (void) sprintf(dst
, "%#.3o", (unsigned int) c
);