/*
  STRCOLL: int strcoll (const char *s1, const char *s2)
*/

#define TST_FUNCTION strcoll

#include "tsp_common.c"
#include "dat_strcoll.c"

int
tst_strcoll (FILE * fp, int debug_flg)
{
  TST_DECL_VARS (int);
  const char *s1, *s2;

  TST_DO_TEST (strcoll)
  {
    TST_HEAD_LOCALE (strcoll, S_STRCOLL);
    TST_DO_REC (strcoll)
    {
      TST_GET_ERRET (strcoll);
      s1 = TST_INPUT (strcoll).s1;
      s2 = TST_INPUT (strcoll).s2;

      TST_CLEAR_ERRNO;
      ret = strcoll (s1, s2);
      TST_SAVE_ERRNO;

      if (debug_flg)
	{
	  fprintf (stdout, "strcoll() [ %s : %d ] ret = %d\n", locale,
		   rec + 1, ret);
	  fprintf (stdout, "			    errno = %d\n",
		   errno_save);
	  fprintf (stdout, "			    LC_COLLATE = %s\n",
		   (setlocale (LC_COLLATE, NULL)) ? setlocale (LC_COLLATE,
							       NULL) : "");
	}

      TST_IF_RETURN (S_STRCOLL)
      {
	if (ret_exp == +1)
	  {
	    if (ret > 0)
	      {
		Result (C_SUCCESS, S_STRCOLL, CASE_3, MS_PASSED);
	      }
	    else
	      {
		err_count++;
		Result (C_FAILURE, S_STRCOLL, CASE_3,
			"the return value should be greater than 0,"
			" but is not ...");
	      }
	  }
	else if (ret_exp == -1)
	  {
	    if (ret < 0)
	      {
		Result (C_SUCCESS, S_STRCOLL, CASE_3, MS_PASSED);
	      }
	    else
	      {
		err_count++;
		Result (C_FAILURE, S_STRCOLL, CASE_3,
			"the return value should less than 0, but not ...");
	      }
	  }
	else if (ret_exp != 0)
	  {
	    if (debug_flg)
	      {
		fprintf (stderr, "*** Warning *** : tst_strcoll : "
			 "(check the test data); should set ret_flg=1"
			 " to check a return value");
	      }

	    warn_count++;
	    Result (C_INVALID, S_WCSCHR, CASE_3, "(check the test data); "
		    "should set ret_flg=1 to check a return value");
	  }
      }
    }
  }

  return err_count;
}