aboutsummaryrefslogtreecommitdiff
path: root/stdlib/tst-strtol.c
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/tst-strtol.c')
-rw-r--r--stdlib/tst-strtol.c127
1 files changed, 127 insertions, 0 deletions
diff --git a/stdlib/tst-strtol.c b/stdlib/tst-strtol.c
new file mode 100644
index 0000000000..0682da3f09
--- /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);
+}