|
nsz |
1be84a |
#include <stdio.h>
|
|
nsz |
1be84a |
#include <stdlib.h>
|
|
nsz |
1be84a |
#include <string.h>
|
|
nsz |
1be84a |
#include <errno.h>
|
|
nsz |
1be84a |
#include <wchar.h>
|
|
nsz |
1be84a |
#include "test.h"
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
#define TEST(r, f, x, m) ( \
|
|
nsz |
1be84a |
errno = 0, msg = #f, ((r) = (f)) == (x) || \
|
|
nsz |
1be84a |
(error("%s failed (" m ")\n", #f, r, x), 0) )
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
#define TEST2(r, f, x, m) ( \
|
|
nsz |
1be84a |
((r) = (f)) == (x) || \
|
|
nsz |
1be84a |
(error("%s failed (" m ")\n", msg, r, x), 0) )
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
void test_wcstol(void) {
|
|
nsz |
1be84a |
int i;
|
|
nsz |
1be84a |
long l;
|
|
nsz |
1be84a |
unsigned long ul;
|
|
nsz |
1be84a |
char *msg="";
|
|
nsz |
1be84a |
wchar_t *s, *c;
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
TEST(l, wcstol(L"2147483647", 0, 0), 2147483647L, "max 32bit signed %ld != %ld");
|
|
nsz |
1be84a |
TEST(ul, wcstoul(L"4294967295", 0, 0), 4294967295UL, "max 32bit unsigned %lu != %lu");
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
if (sizeof(long) == 4) {
|
|
nsz |
1be84a |
TEST(l, wcstol(s=L"2147483648", &c, 0), 2147483647L, "uncaught overflow %ld != %ld");
|
|
nsz |
1be84a |
TEST2(i, c-s, 10, "wrong final position %d != %d");
|
|
nsz |
1be84a |
TEST2(i, errno, ERANGE, "missing errno %d != %d");
|
|
nsz |
1be84a |
TEST(l, wcstol(s=L"-2147483649", &c, 0), -2147483647L-1, "uncaught overflow %ld != %ld");
|
|
nsz |
1be84a |
TEST2(i, c-s, 11, "wrong final position %d != %d");
|
|
nsz |
1be84a |
TEST2(i, errno, ERANGE, "missing errno %d != %d");
|
|
nsz |
1be84a |
TEST(ul, wcstoul(s=L"4294967296", &c, 0), 4294967295UL, "uncaught overflow %lu != %lu");
|
|
nsz |
1be84a |
TEST2(i, c-s, 10, "wrong final position %d != %d");
|
|
nsz |
1be84a |
TEST2(i, errno, ERANGE, "missing errno %d != %d");
|
|
nsz |
8f27a3 |
TEST(ul, wcstoul(s=L"-1", &c, 0), -1UL, "rejected negative %lu != %lu");
|
|
nsz |
1be84a |
TEST2(i, c-s, 2, "wrong final position %d != %d");
|
|
nsz |
8f27a3 |
TEST2(i, errno, 0, "spurious errno %d != %d");
|
|
nsz |
8f27a3 |
TEST(ul, wcstoul(s=L"-2", &c, 0), -2UL, "rejected negative %lu != %lu");
|
|
nsz |
1be84a |
TEST2(i, c-s, 2, "wrong final position %d != %d");
|
|
nsz |
8f27a3 |
TEST2(i, errno, 0, "spurious errno %d != %d");
|
|
nsz |
8f27a3 |
TEST(ul, wcstoul(s=L"-2147483648", &c, 0), -2147483648UL, "rejected negative %lu != %lu");
|
|
nsz |
1be84a |
TEST2(i, c-s, 11, "wrong final position %d != %d");
|
|
nsz |
8f27a3 |
TEST2(i, errno, 0, "spurious errno %d != %d");
|
|
nsz |
8f27a3 |
TEST(ul, wcstoul(s=L"-2147483649", &c, 0), -2147483649UL, "rejected negative %lu != %lu");
|
|
nsz |
086c6a |
TEST2(i, c-s, 11, "wrong final position %d != %d");
|
|
nsz |
8f27a3 |
TEST2(i, errno, 0, "spurious errno %d != %d");
|
|
nsz |
1be84a |
} else {
|
|
nsz |
1be84a |
TEST(i, 0, 1, "64bit tests not implemented");
|
|
nsz |
1be84a |
}
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
TEST(l, wcstol(L"z", 0, 36), 35, "%ld != %ld");
|
|
nsz |
1be84a |
TEST(l, wcstol(L"00010010001101000101011001111000", 0, 2), 0x12345678, "%ld != %ld");
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
TEST(l, wcstol(s=L"0xz", &c, 16), 0, "%ld != %ld");
|
|
nsz |
1be84a |
TEST2(i, c-s, 1, "wrong final position %ld != %ld");
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
TEST(l, wcstol(s=L"0x1234", &c, 16), 0x1234, "%ld != %ld");
|
|
nsz |
1be84a |
TEST2(i, c-s, 6, "wrong final position %ld != %ld");
|
|
nsz |
1be84a |
|
|
nsz |
1be84a |
c = NULL;
|
|
nsz |
1be84a |
TEST(l, wcstol(s=L"123", &c, 37), 0, "%ld != %ld");
|
|
nsz |
1be84a |
TEST2(i, c-s, 0, "wrong final position %d != %d");
|
|
nsz |
1be84a |
TEST2(i, errno, EINVAL, "%d != %d");
|
|
nsz |
1be84a |
}
|