@@@ mostly bench docs

[mLib] / test / example / adhoc.c

/* -*-c-*-
 *
 * Demonstration of ad-doc testing
 *
 * (c) 2024 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of the mLib utilities library.
 *
 * mLib is free software: you can redistribute it and/or modify it under
 * the terms of the GNU Library General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 *
 * mLib 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 Library General Public
 * License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with mLib.  If not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 * USA.
 */

/*----- Header files ------------------------------------------------------*/

#include <stdio.h>

#include "macros.h"
#include "report.h"
#include "tvec.h"
#include "tvec-adhoc.h"
#include "tvec-bench.h"
#include "tvec-types.h"

#include "example.h"

/*----- Main code ---------------------------------------------------------*/

int main(int argc, char *argv[])
{
  struct tvec_state tvstate;
  int argpos;
  unsigned long i, a, b, t;
  dstr d = DSTR_INIT;

  tvec_parseargs(argc, argv, &tvstate, &argpos, &tvec_adhocconfig);
  if (argpos < argc) die(2, "no input files expected");
  tvec_adhoc(&tvstate);

  TVEC_TESTGROUP(&tvstate, "fib-test") {
    for (i = 0, a = 0, b = 1; i < FIBLIMIT; i++, t = b, b = a, a += t)
      TVEC_TEST(&tvstate) {
	if (i < 40) TVEC_CLAIMEQ_UINT(&tvstate, a, recfib(i));
	TVEC_CLAIMEQ_UINT(&tvstate, a, iterfib(i));
	TVEC_CLAIMEQ_UINT(&tvstate, a, expfib(i));
      }
  }

  TVEC_TESTGROUP(&tvstate, "fib-bench") {
    TVEC_BENCHMARK_DECLS;

    if (tvec_benchprep(&tvstate, &tvec_benchstate, 0)) break;

    dstr_reset(&d); dstr_putf(&d, "recfib, n = %u", RECFIBLIMIT);
    TVEC_BENCHMARK(d.buf, &tvstate, tvec_benchstate, BTU_OP, 1)
      while (_bench_n--) ADMIRE(recfib(RECFIBLIMIT));

    dstr_reset(&d); dstr_putf(&d, "iterfib, n = %u", FIBLIMIT);
    TVEC_BENCHMARK(d.buf, &tvstate, tvec_benchstate, BTU_OP, 1)
      while (_bench_n--) ADMIRE(iterfib(FIBLIMIT));

    dstr_reset(&d); dstr_putf(&d, "expfib, n = %u", FIBLIMIT);
    TVEC_BENCHMARK(d.buf, &tvstate, tvec_benchstate, BTU_OP, 1)
      while (_bench_n--) ADMIRE(expfib(FIBLIMIT));
  }

  dstr_destroy(&d);
  return (tvec_end(&tvstate));
}

/*----- That's all, folks -------------------------------------------------*/