add remaining tests from libc-testsuit

[libc-test] / src / stdlib / strtol.c

diff --git a/src/stdlib/strtol.c b/src/stdlib/strtol.c
new file mode 100644 (file)
index 0000000..7d9213f
--- /dev/null
+++ b/src/stdlib/strtol.c
@@ -0,0 +1,72 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include "test.h"
+
+/* r = place to store result
+ * f = function call to test (or any expression)
+ * x = expected result
+ * m = message to print on failure (with formats for r & x)
+**/
+
+#define TEST(r, f, x, m) ( \
+       errno = 0, msg = #f, ((r) = (f)) == (x) || \
+       (error("%s failed (" m ")\n", #f, r, x), 0) )
+
+#define TEST2(r, f, x, m) ( \
+       ((r) = (f)) == (x) || \
+       (error("%s failed (" m ")\n", msg, r, x), 0) )
+
+void test_strtol(void) {
+       int i;
+       long l;
+       unsigned long ul;
+       char *msg="";
+       char *s, *c;
+
+       TEST(l, atol("2147483647"), 2147483647L, "max 32bit signed %ld != %ld");
+       TEST(l, strtol("2147483647", 0, 0), 2147483647L, "max 32bit signed %ld != %ld");
+       TEST(ul, strtoul("4294967295", 0, 0), 4294967295UL, "max 32bit unsigned %lu != %lu");
+
+       if (sizeof(long) == 4) {
+               TEST(l, strtol(s="2147483648", &c, 0), 2147483647L, "uncaught overflow %ld != %ld");
+               TEST2(i, c-s, 10, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(l, strtol(s="-2147483649", &c, 0), -2147483647L-1, "uncaught overflow %ld != %ld");
+               TEST2(i, c-s, 11, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(ul, strtoul(s="4294967296", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
+               TEST2(i, c-s, 10, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(ul, strtoul(s="-1", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
+               TEST2(i, c-s, 2, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(ul, strtoul(s="-2", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
+               TEST2(i, c-s, 2, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(ul, strtoul(s="-2147483648", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
+               TEST2(i, c-s, 11, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+               TEST(ul, strtoul(s="-2147483649", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
+               TEST2(i, c-s, 11, "wrong final position %d != %d");
+               TEST2(i, errno, ERANGE, "missing errno %d != %d");
+       } else {
+               TEST(i, 0, 1, "64bit tests not implemented");
+       }
+
+       TEST(l, strtol("z", 0, 36), 35, "%ld != %ld");
+       TEST(l, strtol("00010010001101000101011001111000", 0, 2), 0x12345678, "%ld != %ld");
+       TEST(l, strtol(s="0F5F", &c, 16), 0x0f5f, "%ld != %ld");
+
+       TEST(l, strtol(s="0xz", &c, 16), 0, "%ld != %ld");
+       TEST2(i, c-s, 1, "wrong final position %ld != %ld");
+
+       TEST(l, strtol(s="0x1234", &c, 16), 0x1234, "%ld != %ld");
+       TEST2(i, c-s, 6, "wrong final position %ld != %ld");
+
+       c = NULL;
+       TEST(l, strtol(s="123", &c, 37), 0, "%ld != %ld");
+       TEST2(i, c-s, 0, "wrong final position %d != %d");
+       TEST2(i, errno, EINVAL, "%d != %d");
+}