/*

 * Check: a unit test framework for C

 * Copyright (C) 2001, 2002 Arien Malec

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,

 * MA 02110-1301, USA.

 */

#include "libcompat/libcompat.h"

#include <stdio.h>

#include <stdarg.h>

#include "internal-check.h"

#include "check_list.h"

#include "check_error.h"

#include "check_impl.h"

#include "check_str.h"

static const char *tr_type_str (TestResult * tr);

static int percent_passed (TestStats * t);

char *

tr_str (TestResult * tr)

{

  const char *exact_msg;

  char *rstr;

  exact_msg = (tr->rtype == CK_ERROR) ? "(after this point) " : "";

  rstr = ck_strdup_printf ("%s:%d:%s:%s:%s:%d: %s%s",

      tr->file, tr->line,

      tr_type_str (tr), tr->tcname, tr->tname, tr->iter, exact_msg, tr->msg);

  return rstr;

}

char *

tr_short_str (TestResult * tr)

{

  const char *exact_msg;

  char *rstr;

  exact_msg = (tr->rtype == CK_ERROR) ? "(after this point) " : "";

  rstr = ck_strdup_printf ("%s:%d: %s%s",

      tr->file, tr->line, exact_msg, tr->msg);

  return rstr;

}

char *

sr_stat_str (SRunner * sr)

{

  char *str;

  TestStats *ts;

  ts = sr->stats;

  str = ck_strdup_printf ("%d%%: Checks: %d, Failures: %d, Errors: %d",

      percent_passed (ts), ts->n_checked, ts->n_failed, ts->n_errors);

  return str;

}

char *

ck_strdup_printf (const char *fmt, ...)

{

  /* Guess we need no more than 100 bytes. */

  int n;

  size_t size = 100;

  char *p;

  va_list ap;

  p = (char *) emalloc (size);

  while (1) {

    /* Try to print in the allocated space. */

    va_start (ap, fmt);

    n = vsnprintf (p, size, fmt, ap);

    va_end (ap);

    /* If that worked, return the string. */

    if (n > -1 && n < (int) size)

      return p;

    /* Else try again with more space. */

    if (n > -1)                 /* C99 conform vsnprintf() */

      size = (size_t) n + 1;    /* precisely what is needed */

    else                        /* glibc 2.0 */

      size *= 2;                /* twice the old size */

    p = (char *) erealloc (p, size);

  }

}

static const char *

tr_type_str (TestResult * tr)

{

  const char *str = NULL;

  if (tr->ctx == CK_CTX_TEST) {

    if (tr->rtype == CK_PASS)

      str = "P";

    else if (tr->rtype == CK_FAILURE)

      str = "F";

    else if (tr->rtype == CK_ERROR)

      str = "E";

  } else

    str = "S";

  return str;

}

static int

percent_passed (TestStats * t)

{

  if (t->n_failed == 0 && t->n_errors == 0)

    return 100;

  else if (t->n_checked == 0)

    return 0;

  else

    return (int) ((float) (t->n_checked - (t->n_failed + t->n_errors)) /

        (float) t->n_checked * 100);

}