aboutsummaryrefslogtreecommitdiff
path: root/localedata/tests-mbwc/tst_wcstod.c
blob: 5ee151bd5462013215dad7b12417e4b03e6e5325 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
/*
  WCSTOD: double wcstod (wchar_t *np, const wchar_t **endp);
*/

#define TST_FUNCTION wcstod

#include "tsp_common.c"
#include "dat_wcstod.c"

int
tst_wcstod (FILE * fp, int debug_flg)
{
  TST_DECL_VARS (double);
  wchar_t *np, *endp, fwc;
  double val;

  TST_DO_TEST (wcstod)
  {
    TST_HEAD_LOCALE (wcstod, S_WCSTOD);
    TST_DO_REC (wcstod)
    {
      TST_GET_ERRET (wcstod);
      np = TST_INPUT (wcstod).np;

      TST_CLEAR_ERRNO;
      ret = wcstod (np, &endp);
      TST_SAVE_ERRNO;

      if (debug_flg)
	{
	  fprintf (stdout, "wcstod() [ %s : %d ] ret  = %f\n", locale,
		   rec + 1, ret);
	  fprintf (stdout, "			  *endp = 0x%lx\n", *endp);
	}

      TST_IF_RETURN (S_WCSTOD)
      {
	if (ret != 0)
	  {
	    val = ret - TST_EXPECT (wcstod).val;
	    if (TST_ABS (val) < TST_DBL_EPS)
	      {
		Result (C_SUCCESS, S_WCSTOD, CASE_3, MS_PASSED);
	      }
	    else
	      {
		err_count++;
		Result (C_FAILURE, S_WCSTOD, CASE_3, "return value is wrong");
	      }
	  }
      }

      fwc = TST_EXPECT (wcstod).fwc;

      if (fwc == *endp)
	{
	  Result (C_SUCCESS, S_WCSTOD, CASE_4, MS_PASSED);
	}
      else
	{
	  err_count++;
	  Result (C_FAILURE, S_WCSTOD, CASE_4, "a final wc is wrong.");
	}
    }
  }

  return err_count;
}