/*

  WCTOMB: int wctomb (char *s, wchar_t wc)

*/

#define TST_FUNCTION wctomb

#include "tsp_common.c"

#include "dat_wctomb.c"

int

tst_wctomb (FILE * fp, int debug_flg)

{

  TST_DECL_VARS (int);

  wchar_t wc;

  char s[MBSSIZE], *s_in, *s_ex;

  int err, i;

  TST_DO_TEST (wctomb)

  {

    TST_HEAD_LOCALE (wctomb, S_WCTOMB);

    TST_DO_REC (wctomb)

    {

      TST_GET_ERRET (wctomb);

      wc = TST_INPUT (wctomb).wc;

      s_in = ((TST_INPUT (wctomb).s_flg) == 0) ? (char *) NULL : s;

      ret = wctomb (s_in, wc);

      if (debug_flg)

	{

	  fprintf (stdout, "wctomb() [ %s : %d ] ret  = %d\n", locale,

		   rec + 1, ret);

	}

      TST_IF_RETURN (S_WCTOMB)

      {

	if (s_in == NULL)	/* state dependency */

	  {

	    if (ret_exp == +1)	/* state-dependent  */

	      {

		if (ret != 0)

		  {

		    /* Non-zero means state-dependent encoding.	 */

		    Result (C_SUCCESS, S_WCTOMB, CASE_3, MS_PASSED);

		  }

		else

		  {

		    err_count++;

		    Result (C_FAILURE, S_WCTOMB, CASE_3,

			    "should be state-dependent encoding, "

			    "but a return value shows it is "

			    "state-independent");

		  }

	      }

	    if (ret_exp == 0)	/* state-independent */

	      {

		if (ret == 0)

		  {

		    /* Non-zero means state-dependent encoding.	 */

		    Result (C_SUCCESS, S_WCTOMB, CASE_3, MS_PASSED);

		  }

		else

		  {

		    err_count++;

		    Result (C_FAILURE, S_WCTOMB, CASE_3,

			    "should be state-independent encoding, "

			    "but a return value shows it is state-dependent");

		  }

	      }

	  }

      }

      s_ex = TST_EXPECT (wctomb).s;

      if (s_in)

	{

	  for (i = 0, err = 0; *(s_ex + i) != 0 && i < MBSSIZE; i++)

	    {

	      if (s_in[i] != s_ex[i])

		{

		  err++;

		  err_count++;

		  Result (C_FAILURE, S_WCTOMB, CASE_4,

			  "copied string is different from an"

			  " expected string");

		  break;

		}

	    }

	  if (!err)

	    {

	      Result (C_SUCCESS, S_WCTOMB, CASE_4, MS_PASSED);

	    }

	}

    }

  }

  return err_count;

}