/*

  WCSNCPY: wchar_t *wcsncpy (wchar_t *ws1, const wchar_t *ws2, size_t n);

*/

#define TST_FUNCTION wcsncpy

#include "tsp_common.c"

#include "dat_wcsncpy.c"

#define WCSNUM_NCPY 7

int

tst_wcsncpy (FILE *fp, int debug_flg)

{

  TST_DECL_VARS (wchar_t *);

  wchar_t ws1[WCSSIZE] =

    { 0x9999, 0x9999, 0x9999, 0x9999, 0x9999, 0x9999, 0x0000 };

  wchar_t *ws2, *ws_ex;

  int err, i;

  size_t n;

  TST_DO_TEST (wcsncpy)

  {

    TST_HEAD_LOCALE (wcsncpy, S_WCSNCPY);

    TST_DO_REC (wcsncpy)

    {

      TST_GET_ERRET (wcsncpy);

      for (n = 0; n < WCSNUM_NCPY - 1; ++n)

	{

	  ws1[n] = 0x9999;

	}

      ws1[n] = 0;

      ws2 = TST_INPUT (wcsncpy).ws;	/* external value: size WCSSIZE */

      n = TST_INPUT (wcsncpy).n;

      ret = wcsncpy (ws1, ws2, n);

      TST_IF_RETURN (S_WCSNCPY)

      {

	if (ret == ws1)

	  {

	    Result (C_SUCCESS, S_WCSNCPY, CASE_3, MS_PASSED);

	  }

	else

	  {

	    err_count++;

	    Result (C_FAILURE, S_WCSNCPY, CASE_3,

		    "the return address may not be correct");

	  }

      }

      if (ret == ws1)

	{

	  if (debug_flg)

	    {

	      fprintf (stderr, "\nwcsncpy: n = %zu\n\n", n);

	    }

	  ws_ex = TST_EXPECT (wcsncpy).ws;

	  for (err = 0, i = 0; i < WCSNUM_NCPY && i < WCSSIZE; i++)

	    {

	      if (debug_flg)

		fprintf (stderr,

			 "wcsncpy: ws1[ %d ] = 0x%lx <-> wx_ex[ %d ] = 0x%lx\n",

			 i, (unsigned long int) ws1[i], i,

			 (unsigned long int) ws_ex[i]);

	      if (ws1[i] != ws_ex[i])

		{

		  err++;

		  err_count++;

		  Result (C_FAILURE, S_WCSNCPY, CASE_4,

			  "copied string is different from an "

			  "expected string");

		  break;

		}

	    }

	  if (!err)

	    {

	      Result (C_SUCCESS, S_WCSNCPY, CASE_4, MS_PASSED);

	    }

	  /* A null terminate character is not supposed to be copied

	     unless (num chars of ws2)

	}

    }

  }

  return err_count;

}