/*

  WCSCAT: wchar_t *wcscat (wchar_t *ws1, const wchar_t *ws2);

*/

#define TST_FUNCTION wcscat

#include "tsp_common.c"

#include "dat_wcscat.c"

int

tst_wcscat (FILE * fp, int debug_flg)

{

  TST_DECL_VARS (wchar_t *);

  wchar_t *ws1, *ws2, *ws_ex;

  int i, err;

  TST_DO_TEST (wcscat)

  {

    TST_HEAD_LOCALE (wcscat, S_WCSCAT);

    TST_DO_REC (wcscat)

    {

      TST_GET_ERRET (wcscat);

      ws1 = TST_INPUT (wcscat).ws1;	/* external value: size WCSSIZE */

      ws2 = TST_INPUT (wcscat).ws2;

      TST_CLEAR_ERRNO;

      ret = wcscat (ws1, ws2);

      TST_SAVE_ERRNO;

      TST_IF_RETURN (S_WCSCAT)

      {

	if (ret == ws1)

	  {

	    Result (C_SUCCESS, S_WCSCAT, CASE_3, MS_PASSED);

	  }

	else

	  {

	    err_count++;

	    Result (C_FAILURE, S_WCSCAT, CASE_3,

		    "the return address may not be correct");

	  }

      }

      /* function specific test cases here */

      if (ret == ws1)

	{

	  ws_ex = TST_EXPECT (wcscat).ws;

	  for (err = 0, i = 0;

	       (ws1[i] != 0L || ws_ex[i] != 0L) && i < WCSSIZE; i++)

	    {

	      if (debug_flg)

		{

		  fprintf (stdout, "tst_wcscat() : ws1[%d] = 0x%lx\n", i,

			   (unsigned long int) ws1[i]);

		}

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

		{

		  err++;

		  err_count++;

		  Result (C_FAILURE, S_WCSCAT, CASE_4,

			  "concatinated string is different from an "

			  "expected string");

		  break;

		}

	    }

	  if (!err)

	    {

	      Result (C_SUCCESS, S_WCSCAT, CASE_4, MS_PASSED);

	    }

	}

    }

  }

  return err_count;

}