Logo Search packages:      
Sourcecode: belocs-locales-data version File versions  Download package

tst_strfmon.c

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

Generated by  Doxygen 1.6.0   Back to index