#define TEST(r, f, x, m) ( \
errno = 0, msg = #f, ((r) = (f)) == (x) || \
- (error("%s failed (" m ")\n", #f, r, x), 0) )
+ (t_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) )
+ (t_error("%s failed (" m ")\n", msg, r, x), 0) )
int main(void)
{
TEST(ul, wcstoul(s=L"-2147483649", &c, 0), -2147483649UL, "rejected negative %lu != %lu");
TEST2(i, c-s, 11, "wrong final position %d != %d");
TEST2(i, errno, 0, "spurious errno %d != %d");
+ } else if (sizeof(long) == 8) {
+ TEST(l, wcstol(s=L"9223372036854775808", &c, 0), 9223372036854775807L, "uncaught overflow %ld != %ld");
+ TEST2(i, c-s, 19, "wrong final position %d != %d");
+ TEST2(i, errno, ERANGE, "missing errno %d != %d");
+ TEST(l, wcstol(s=L"-9223372036854775809", &c, 0), -9223372036854775807L-1, "uncaught overflow %ld != %ld");
+ TEST2(i, c-s, 20, "wrong final position %d != %d");
+ TEST2(i, errno, ERANGE, "missing errno %d != %d");
+ TEST(ul, wcstoul(s=L"18446744073709551616", &c, 0), 18446744073709551615UL, "uncaught overflow %lu != %lu");
+ TEST2(i, c-s, 20, "wrong final position %d != %d");
+ TEST2(i, errno, ERANGE, "missing errno %d != %d");
+ TEST(ul, wcstoul(s=L"-1", &c, 0), -1UL, "rejected negative %lu != %lu");
+ TEST2(i, c-s, 2, "wrong final position %d != %d");
+ TEST2(i, errno, 0, "spurious errno %d != %d");
+ TEST(ul, wcstoul(s=L"-2", &c, 0), -2UL, "rejected negative %lu != %lu");
+ TEST2(i, c-s, 2, "wrong final position %d != %d");
+ TEST2(i, errno, 0, "spurious errno %d != %d");
+ TEST(ul, wcstoul(s=L"-9223372036854775808", &c, 0), -9223372036854775808UL, "rejected negative %lu != %lu");
+ TEST2(i, c-s, 20, "wrong final position %d != %d");
+ TEST2(i, errno, 0, "spurious errno %d != %d");
+ TEST(ul, wcstoul(s=L"-9223372036854775809", &c, 0), -9223372036854775809UL, "rejected negative %lu != %lu");
+ TEST2(i, c-s, 20, "wrong final position %d != %d");
+ TEST2(i, errno, 0, "spurious errno %d != %d");
} else {
- TEST(i, 0, 1, "64bit tests not implemented");
+ t_error("sizeof(long) == %d, not implemented\n", (int)sizeof(long));
}
TEST(l, wcstol(L"z", 0, 36), 35, "%ld != %ld");
TEST(l, wcstol(s=L"123", &c, 37), 0, "%ld != %ld");
TEST2(i, c-s, 0, "wrong final position %d != %d");
TEST2(i, errno, EINVAL, "%d != %d");
- return test_status;
+ return t_status;
}