/*

  MBLEN: int mblen (char *s, size_t n)

*/

#define TST_FUNCTION mblen

#include "tsp_common.c"

#include "dat_mblen.c"

int

tst_mblen (FILE * fp, int debug_flg)

{

  TST_DECL_VARS (int);

  char s_flg;

  const char *s_in;

  size_t n;

  TST_DO_TEST (mblen)

  {

    TST_HEAD_LOCALE (mblen, S_MBLEN);

    TST_DO_REC (mblen)

    {

      TST_GET_ERRET (mblen);

      s_flg = TST_INPUT (mblen).s_flg;

      s_in = TST_INPUT (mblen).s;

      n = TST_INPUT (mblen).n;

      if (s_flg == 0)

	{

	  s_in = NULL;

	}

      if (n == USE_MBCURMAX)

	{

	  n = MB_CUR_MAX;

	}

      TST_CLEAR_ERRNO;

      ret = mblen (s_in, n);

      TST_SAVE_ERRNO;

      TST_IF_RETURN (S_MBLEN)

      {

	if (s_in == NULL)

	  {			/* state dependency */

	    if (ret_exp == +1)

	      {			/* state-dependent  */

		if (ret != 0)

		  {

		    /* non-zero: state-dependent encoding */

		    Result (C_SUCCESS, S_MBLEN, CASE_3, MS_PASSED);

		  }

		else

		  {

		    err_count++;

		    Result (C_FAILURE, S_MBLEN, CASE_3,

			    "should be state-dependent encoding, "

			    "but the return value shows it is"

			    " state-independent");

		  }

	      }

	    if (ret_exp == 0)

	      {			/* state-independent */

		if (ret == 0)

		  {

		    /* non-zero: state-dependent encoding */

		    Result (C_SUCCESS, S_MBLEN, CASE_3, MS_PASSED);

		  }

		else

		  {

		    err_count++;

		    Result (C_FAILURE, S_MBLEN, CASE_3,

			    "should be state-independent encoding, "

			    "but the return value shows it is"

			    " state-dependent");

		  }

	      }

	  }

      }

    }

  }

  return err_count;

}