glibc/stdlib/tst-strtod2.c
Joseph Myers fcdf98f38c Add tests of more strtod special cases
There is very little test coverage of inputs to strtod-family
functions that don't contain anything that can be parsed as a number
(one test of ".y" in tst-strtod2), and none that I can see of skipping
initial whitespace.  Add some tests of these things to tst-strtod2.

Tested for x86_64.

(cherry picked from commit 378039ca57)
2024-09-27 17:25:43 +02:00

114 lines
3.4 KiB
C

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include "tst-strtod.h"
#define TEST_STRTOD(FSUF, FTYPE, FTOSTR, LSUF, CSUF) \
struct test_strto ## FSUF \
{ \
const char *str; \
FTYPE result; \
size_t offset; \
} tests_strto ## FSUF[] = \
{ \
{ "0xy", 0.0 ## LSUF, 1 }, \
{ "0x.y", 0.0 ## LSUF, 1 }, \
{ "0x0.y", 0.0 ## LSUF, 4 }, \
{ "0x.0y", 0.0 ## LSUF, 4 }, \
{ ".y", 0.0 ## LSUF, 0 }, \
{ "0.y", 0.0 ## LSUF, 2 }, \
{ ".0y", 0.0 ## LSUF, 2 }, \
{ "1.0e", 1.0 ## LSUF, 3 }, \
{ "1.0e+", 1.0 ## LSUF, 3 }, \
{ "1.0e-", 1.0 ## LSUF, 3 }, \
{ "1.0ex", 1.0 ## LSUF, 3 }, \
{ "1.0e+x", 1.0 ## LSUF, 3 }, \
{ "1.0e-x", 1.0 ## LSUF, 3 }, \
{ "0x1p", 1.0 ## LSUF, 3 }, \
{ "0x1p+", 1.0 ## LSUF, 3 }, \
{ "0x1p-", 1.0 ## LSUF, 3 }, \
{ "0x1px", 1.0 ## LSUF, 3 }, \
{ "0x1p+x", 1.0 ## LSUF, 3 }, \
{ "0x1p-x", 1.0 ## LSUF, 3 }, \
{ "", 0.0 ## LSUF, 0 }, \
{ ".", 0.0 ## LSUF, 0 }, \
{ "-", 0.0 ## LSUF, 0 }, \
{ "-.", 0.0 ## LSUF, 0 }, \
{ ".e", 0.0 ## LSUF, 0 }, \
{ "-.e", 0.0 ## LSUF, 0 }, \
{ " \t", 0.0 ## LSUF, 0 }, \
{ " \t.", 0.0 ## LSUF, 0 }, \
{ " \t-", 0.0 ## LSUF, 0 }, \
{ " \t-.", 0.0 ## LSUF, 0 }, \
{ " \t.e", 0.0 ## LSUF, 0 }, \
{ " \t-.e", 0.0 ## LSUF, 0 }, \
{ " \t\f\r\n\v1", 1.0 ## LSUF, 7 }, \
{ " \t\f\r\n\v-1.5e2", -150.0 ## LSUF, 12 }, \
{ "INFx", INFINITY, 3 }, \
{ "infx", INFINITY, 3 }, \
{ "INFINITx", INFINITY, 3 }, \
{ "infinitx", INFINITY, 3 }, \
{ "INFINITYY", INFINITY, 8 }, \
{ "infinityy", INFINITY, 8 }, \
{ "NANx", NAN, 3 }, \
{ "nanx", NAN, 3 }, \
{ "NAN(", NAN, 3 }, \
{ "nan(", NAN, 3 }, \
{ "NAN(x", NAN, 3 }, \
{ "nan(x", NAN, 3 }, \
{ "NAN(x)y", NAN, 6 }, \
{ "nan(x)y", NAN, 6 }, \
{ "NAN(*)y", NAN, 3 }, \
{ "nan(*)y", NAN, 3 } \
}; \
\
static int \
compare_strto ## FSUF (FTYPE x, FTYPE y) \
{ \
if (isnan (x) && isnan (y)) \
return 1; \
return x == y; \
} \
\
static int \
test_strto ## FSUF (void) \
{ \
int status = 0; \
for (size_t i = 0; \
i < sizeof (tests_strto ## FSUF) / sizeof (tests_strto ## FSUF[0]); \
++i) \
{ \
char *ep; \
FTYPE r = strto ## FSUF (tests_strto ## FSUF[i].str, &ep); \
if (!compare_strto ## FSUF (r, tests_strto ## FSUF[i].result)) \
{ \
char buf1[FSTRLENMAX], buf2[FSTRLENMAX]; \
FTOSTR (buf1, sizeof (buf1), "%g", r); \
FTOSTR (buf2, sizeof (buf2), "%g", tests_strto ## FSUF[i].result); \
printf ("test %zu r = %s, expect %s\n", i, buf1, buf2); \
status = 1; \
} \
if (ep != tests_strto ## FSUF[i].str + tests_strto ## FSUF[i].offset) \
{ \
printf ("test %zu strto" #FSUF \
" parsed %tu characters, expected %zu\n", \
i, ep - tests_strto ## FSUF[i].str, \
tests_strto ## FSUF[i].offset); \
status = 1; \
} \
} \
return status; \
}
GEN_TEST_STRTOD_FOREACH (TEST_STRTOD)
static int
do_test (void)
{
return STRTOD_TEST_FOREACH (test_strto);
}
#define TEST_FUNCTION do_test ()
#include "../test-skeleton.c"