hjl / source-git / glibc

Forked from source-git/glibc 4 years ago
Clone
Blob Blame History Raw
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "tst-strtod.h"

#define TEST_STRTOD(FSUF, FTYPE, FTOSTR, LSUF, CSUF)	  \
static int						  \
test_strto ## FSUF (const char str[])			  \
{							  \
  char *endp;						  \
  int result = 0;					  \
  puts (str);						  \
  FTYPE d = strto ## FSUF (str, &endp);			  \
  if (!isnan (d))					  \
    {							  \
      puts ("strto" #FSUF " did not return NAN");	  \
      result = 1;					  \
    }							  \
  if (issignaling (d))					  \
    {							  \
      puts ("strto" #FSUF " returned a sNAN");		  \
      result = 1;					  \
    }							  \
  if (strcmp (endp, "something") != 0)			  \
    {							  \
      puts ("strto" #FSUF " set incorrect end pointer");  \
      result = 1;					  \
    }							  \
  return result;					  \
}

GEN_TEST_STRTOD_FOREACH (TEST_STRTOD);

static int
do_test (void)
{
  int result = 0;

  result |= STRTOD_TEST_FOREACH (test_strto, "NaN(blabla)something");
  result |= STRTOD_TEST_FOREACH (test_strto, "NaN(1234)something");
  /* UINT32_MAX.  */
  result |= STRTOD_TEST_FOREACH (test_strto, "NaN(4294967295)something");
  /* UINT64_MAX.  */
  result |= STRTOD_TEST_FOREACH (test_strto,
				 "NaN(18446744073709551615)something");
  /* The case of zero is special in that "something" has to be done to make the
     mantissa different from zero, which would mean infinity instead of
     NaN.  */
  result |= STRTOD_TEST_FOREACH (test_strto, "NaN(0)something");

  return result;
}

#define TEST_FUNCTION do_test ()
#include "../test-skeleton.c"