mirror of
git://sourceware.org/git/glibc.git
synced 2024-12-15 04:20:28 +08:00
58 lines
1.3 KiB
C
58 lines
1.3 KiB
C
#include <locale.h>
|
|
#include <math.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "tst-strtod.h"
|
|
|
|
static const char *tests[] =
|
|
{
|
|
"inf", "Inf", "iNf", "inF", "INf", "iNF", "INF", "InF",
|
|
"infinity", "Infinity", "InfInity", "INFINITY"
|
|
};
|
|
#define ntests (sizeof (tests) / sizeof (tests[0]))
|
|
|
|
#define TEST_STRTOD(FSUF, FTYPE, FTOSTR, LSUF, CSUF) \
|
|
static int \
|
|
test_strto ## FSUF (void) \
|
|
{ \
|
|
int res = 0; \
|
|
for (int i = 0; i < ntests; ++i) \
|
|
{ \
|
|
char *endp; \
|
|
FTYPE d = strto ## FSUF (tests[i], &endp); \
|
|
if (*endp != '\0') \
|
|
{ \
|
|
printf ("did not consume all of '%s'\n", tests[i]); \
|
|
res = 1; \
|
|
} \
|
|
if (!isinf (d)) \
|
|
{ \
|
|
printf ("'%s' does not pass isinf\n", tests[i]); \
|
|
res = 1; \
|
|
} \
|
|
} \
|
|
\
|
|
return res; \
|
|
}
|
|
|
|
GEN_TEST_STRTOD_FOREACH (TEST_STRTOD)
|
|
|
|
static int
|
|
do_test (void)
|
|
{
|
|
/* The Turkish locale is notorious because tolower() maps 'I' to the
|
|
dotless lowercase 'i' and toupper() maps 'i' to an 'I' with a dot
|
|
above. */
|
|
if (setlocale (LC_ALL, "tr_TR.UTF-8") == NULL)
|
|
{
|
|
puts ("cannot set locale");
|
|
return 0;
|
|
}
|
|
|
|
return STRTOD_TEST_FOREACH (test_strto);
|
|
}
|
|
|
|
#define TEST_FUNCTION do_test ()
|
|
#include "../test-skeleton.c"
|