/*
  MBSTOWCS: size_t mbstowcs (wchar_t *ws, char *s, size_t n)
*/

#define TST_FUNCTION mbstowcs

#include "tsp_common.c"
#include "dat_mbstowcs.c"

int
tst_mbstowcs (FILE * fp, int debug_flg)
{
  TST_DECL_VARS (size_t);
  char w_flg, s_flg;
  const char *s;
  size_t n;
  wchar_t ws[WCSSIZE], *ws_ex, *wp;
  int err, i;

  TST_DO_TEST (mbstowcs)
  {
    TST_HEAD_LOCALE (mbstowcs, S_MBSTOWCS);
    TST_DO_REC (mbstowcs)
    {
      if (mbstowcs (NULL, "", 0) != 0)
	{
	  err_count++;
	  Result (C_FAILURE, S_MBSTOWCS, CASE_3,
		  "Initialization failed - skipping this test case.");
	  continue;
	}

      TST_DO_SEQ (MBSTOWCS_SEQNUM)
      {
	TST_GET_ERRET_SEQ (mbstowcs);
	w_flg = TST_INPUT_SEQ (mbstowcs).w_flg;
	s_flg = TST_INPUT_SEQ (mbstowcs).s_flg;
	n = TST_INPUT_SEQ (mbstowcs).n;

	if (s_flg == 0)
	  s = NULL;
	else
	  s = TST_INPUT_SEQ (mbstowcs).s;


	wp = (wchar_t *) ((w_flg == 0) ? NULL : ws);

	TST_CLEAR_ERRNO;
	ret = mbstowcs (wp, s, n);
	TST_SAVE_ERRNO;

	if (debug_flg)
	  {
	    fprintf (stderr, "mbstowcs: ret = %zd\n", ret);
	  }

	TST_IF_RETURN (S_MBSTOWCS)
	{
	};

	if (s == NULL || wp == NULL || ret == (size_t) - 1)
	  {
	    continue;
	  }

	ws_ex = TST_EXPECT_SEQ (mbstowcs).ws;

	for (err = 0, i = 0; i < ret; i++)
	  {
	    if (debug_flg)
	      {
		fprintf (stderr,
			 "mbstowcs: ws[%d] => 0x%lx : 0x%lx <= ws_ex[%d]\n",
			 i, (unsigned long int) ws[i],
			 (unsigned long int) ws_ex[i], i);
	      }

	    if (ws[i] != ws_ex[i])
	      {
		err++;
		err_count++;
		Result (C_FAILURE, S_MBSTOWCS, CASE_4,
			"the converted wc string has "
			"different value from an expected string");
		break;
	      }
	  }

	if (!err)
	  {
	    Result (C_SUCCESS, S_MBSTOWCS, CASE_4, MS_PASSED);
	  }
      }
    }
  }

  return err_count;
}