text: /*
    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;
  }
  