/*

  STRFMON: size_t strfmon (char *buf, size_t nbyte, const char *fmt, ...)

*/

#define TST_FUNCTION strfmon

#include "tsp_common.c"

#include "dat_strfmon.c"

#include <monetary.h>

int

tst_strfmon (FILE * fp, int debug_flg)

{

  TST_DECL_VARS (size_t);

  char buf[MONSIZE], *mon;

  size_t nbt;

  char *fmt;

  double val;

  TST_DO_TEST (strfmon)

  {

    TST_HEAD_LOCALE (strfmon, S_STRFMON);

    TST_DO_REC (strfmon)

    {

      TST_GET_ERRET (strfmon);

      nbt = TST_INPUT (strfmon).nbytes;

      fmt = TST_INPUT (strfmon).fmt;

      val = TST_INPUT (strfmon).val;

      memset (buf, 0, MONSIZE);

      if (nbt > MONSIZE)

	{

	  err_count++;

	  Result (C_FAILURE, S_STRFMON, CASE_3, "buffer too small in test");

	  continue;

	}

      TST_CLEAR_ERRNO;

      ret = strfmon (buf, nbt, fmt, val, val, val);

      TST_SAVE_ERRNO;

      if (debug_flg)		/* seems fprintf doesn't update the errno */

	{

	  fprintf (stdout, "strfmon() [ %s : %d ]\n", locale, rec + 1);

	  fprintf (stdout, "	  : err = %d | %s\n", errno_save,

		   strerror (errno));

	  fprintf (stdout, "	  : ret = %zd; \t fmt = |%s|\n", ret, fmt);

	  fprintf (stdout, "	  : buf = |%s|\n\n", buf);

	}

      TST_IF_RETURN (S_STRFMON)

      {

      };

      if (errno != 0 || ret == -1)

	{

	  continue;

	}

      mon = TST_EXPECT (strfmon).mon;

      if (!strcmp (buf, mon))

	{

	  Result (C_SUCCESS, S_STRFMON, CASE_3, MS_PASSED);

	}

      else

	{

	  err_count++;

	  Result (C_FAILURE, S_STRFMON, CASE_3, "the formatted string is "

		  "different from an expected result");

	}

    }

  }

  return err_count;

}