diff options
Diffstat (limited to 'stdlib/tst-strtol.c')
| -rw-r--r-- | stdlib/tst-strtol.c | 127 |
1 files changed, 127 insertions, 0 deletions
diff --git a/stdlib/tst-strtol.c b/stdlib/tst-strtol.c new file mode 100644 index 0000000..0682da3 --- /dev/null +++ b/stdlib/tst-strtol.c @@ -0,0 +1,127 @@ +/* My bet is this was written by Chris Torek. + I reformatted and ansidecl-ized it, and tweaked it a little. */ + +#include <ansidecl.h> +#include <ctype.h> +#include <stdio.h> +#include <errno.h> +#include <stdlib.h> +#include <strings.h> + +struct ltest + { + CONST char *str; /* Convert this. */ + unsigned long int expect; /* To get this. */ + int base; /* Use this base. */ + char left; /* With this left over. */ + int err; /* And this in errno. */ + }; +static CONST struct ltest tests[] = + { + /* First, signed numbers. */ + { " -17", -17, 0, 0, 0 }, + { " +0x123fg", 0x123f, 0, 'g', 0 }, + { "2147483647", 2147483647, 0, 0, 0 }, + { "2147483648", 2147483647, 0, 0, ERANGE }, + { "214748364888", 2147483647, 0, 0, ERANGE }, + { "2147483650", 2147483647, 0, 0, ERANGE }, + { "-2147483649", -2147483648, 0, 0, ERANGE }, + { "-2147483648", -2147483648, 0, 0, 0 }, + { "0123", 0123, 0, 0, 0 }, + { "0x1122334455z", 2147483647, 16, 'z', ERANGE }, + { "0x0xc", 0, 0, 'x', 0 }, + { "yz!", 34*36+35, 36, '!', 0 }, + { NULL, 0, 0, 0, 0 }, + + /* Then unsigned. */ + { " 0", 0, 0, 0, 0 }, + { "0xffffffffg", 0xffffffff, 0, 'g', 0 }, + { "0xf1f2f3f4f5", 0xffffffff, 0, 0, ERANGE }, + { "-0x123456789", 0xffffffff, 0, 0, ERANGE }, + { "-0xfedcba98", -0xfedcba98, 0, 0, 0 }, + { NULL, 0, 0, 0, 0 }, + }; + +static void EXFUN(expand, (char *dst, int c)); + +int +DEFUN_VOID(main) +{ + register CONST struct ltest *lt; + char *ep; + int status = 0; + + for (lt = tests; lt->str != NULL; ++lt) + { + register long int l; + + errno = 0; + l = strtol(lt->str, &ep, lt->base); + printf("strtol(\"%s\", , %d) test %u", + lt->str, lt->base, (unsigned int) (lt - tests)); + if (l == (long int) lt->expect && *ep == lt->left && errno == lt->err) + puts("\tOK"); + else + { + puts("\tBAD"); + if (l != (long int) lt->expect) + printf(" returns %ld, expected %ld\n", + l, (long int) lt->expect); + if (lt->left != *ep) + { + char exp1[5], exp2[5]; + expand(exp1, *ep); + expand(exp2, lt->left); + printf(" leaves '%s', expected '%s'\n", exp1, exp2); + } + if (errno != lt->err) + printf(" errno %d (%s) instead of %d (%s)\n", + errno, strerror(errno), lt->err, strerror(lt->err)); + status = 1; + } + } + + for (++lt; lt->str != NULL; lt++) + { + register unsigned long int ul; + + errno = 0; + ul = strtoul(lt->str, &ep, lt->base); + printf("strtoul(\"%s\", , %d) test %u", + lt->str, lt->base, (unsigned int) (lt - tests)); + if (ul == lt->expect && *ep == lt->left && errno == lt->err) + puts("\tOK"); + else + { + puts("\tBAD"); + if (ul != lt->expect) + printf(" returns %lu, expected %lu\n", + ul, lt->expect); + if (lt->left != *ep) + { + char exp1[5], exp2[5]; + expand(exp1, *ep); + expand(exp2, lt->left); + printf(" leaves '%s', expected '%s'\n", exp1, exp2); + } + if (errno != lt->err) + printf(" errno %d (%s) instead of %d (%s)\n", + errno, strerror(errno), lt->err, strerror(lt->err)); + status = 1; + } + } + + exit(status ? EXIT_FAILURE : EXIT_SUCCESS); +} + +static void +DEFUN(expand, (dst, c), register char *dst AND register int c) +{ + if (isprint(c)) + { + dst[0] = c; + dst[1] = '\0'; + } + else + (void) sprintf(dst, "%#.3o", (unsigned int) c); +} |