/* Charmonizer/Test.h - test Charmonizer's output.
 */

#ifndef H_CHAZ_TEST
#define H_CHAZ_TEST

#ifdef __cplusplus
extern "C" {
#endif

#include "Charmonizer/Core/Defines.h"

typedef struct chaz_TestBatch chaz_TestBatch;

/* Destructor.
 */
typedef void
(*chaz_TestBatch_destroy_t)(chaz_TestBatch *batch);

/* This function, which is unique to each TestBatch, actually runs the test
 * sequence.
 */
typedef void
(*chaz_TestBatch_test_func_t)(chaz_TestBatch *batch);

/* Print a header, execute the test sequence, print a report.
 */
typedef void
(*chaz_TestBatch_run_test_t)(chaz_TestBatch *batch);

struct chaz_TestBatch {
    char         *name;
    unsigned      test_num;
    unsigned      num_tests;
    unsigned      num_passed;
    unsigned      num_failed; 
    unsigned      num_skipped;
    chaz_TestBatch_destroy_t      destroy;
    chaz_TestBatch_test_func_t    test_func;
    chaz_TestBatch_run_test_t     run_test;
};

/* Unbuffer stdout.  Perform any other setup needed.
 */
void
chaz_Test_init(void);

/* Constructor for TestBatch.
 */
chaz_TestBatch* 
chaz_Test_new_batch(const char *batch_name, unsigned num_tests,
                    chaz_TestBatch_test_func_t test_func);

/* Note: maybe add line numbers later.
 */
#define CHAZ_TEST_PLAN              chaz_Test_plan
#define CHAZ_TEST_TEST_TRUE         chaz_Test_test_true
#define CHAZ_TEST_TEST_FALSE        chaz_Test_test_false
#define CHAZ_TEST_TEST_STR_EQ       chaz_Test_test_str_eq
#define CHAZ_TEST_PASS              chaz_Test_pass
#define CHAZ_TEST_FAIL              chaz_Test_fail
#define CHAZ_TEST_TEST_INT_EQ       chaz_Test_test_int_eq
#define CHAZ_TEST_TEST_FLOAT_EQ     chaz_Test_test_float_eq

/* Print a message indicating that a test was skipped and update batch.
 */
#define CHAZ_TEST_SKIP(batch, message) \
        chaz_Test_skip(batch, message)

/* Print a message indicating that all remaining tests will be skipped and
 * return.
 */
#define CHAZ_TEST_SKIP_REMAINING(batch, message) \
    do { \
        chaz_Test_report_skip_remaining(batch, message); \
        return; \
    } while (0)

void
chaz_Test_plan(chaz_TestBatch *batch);

void 
chaz_Test_test_true(chaz_TestBatch *batch, int expression, 
                    const char *pat, ...);

void 
chaz_Test_test_false(chaz_TestBatch *batch, int expression, 
                     const char *pat, ...);

void 
chaz_Test_test_str_eq(chaz_TestBatch *batch, const char *got, 
                      const char *expected, const char *pat, ...);

void 
chaz_Test_pass(chaz_TestBatch *batch, const char *pat, ...);

void 
chaz_Test_fail(chaz_TestBatch *batch, const char *pat, ...);

void 
chaz_Test_test_int_eq(chaz_TestBatch *batch, long got, long expected, 
                      const char *pat, ...);

void 
chaz_Test_test_float_eq(chaz_TestBatch *batch, double got, 
                        double expected, const char *pat, ...);

void
chaz_Test_skip(chaz_TestBatch *batch, const char *pat, ...);

void
chaz_Test_report_skip_remaining(chaz_TestBatch* batch, 
                                const char *pat, ...);

#ifdef CHAZ_USE_SHORT_NAMES
  #define TestBatch_destroy_t          chaz_TestBatch_destroy_t
  #define TestBatch_test_func_t        chaz_TestBatch_test_func_t
  #define TestBatch_run_test_t         chaz_TestBatch_run_test_t
  #define TestBatch                    chaz_TestBatch
  #define Test_init                    chaz_Test_init
  #define Test_new_batch               chaz_Test_new_batch
  #define Test_plan                    chaz_Test_plan
  #define PLAN                         CHAZ_TEST_PLAN
  #define Test_test_true               chaz_Test_test_true
  #define TEST_TRUE                    CHAZ_TEST_TEST_TRUE
  #define Test_test_false              chaz_Test_test_false
  #define TEST_FALSE                   CHAZ_TEST_TEST_FALSE
  #define Test_test_str_eq             chaz_Test_test_str_eq
  #define TEST_STR_EQ                  CHAZ_TEST_TEST_STR_EQ
  #define Test_pass                    chaz_Test_pass
  #define PASS                         CHAZ_TEST_PASS
  #define Test_fail                    chaz_Test_fail
  #define FAIL                         CHAZ_TEST_FAIL
  #define Test_test_int_eq             chaz_Test_test_int_eq
  #define TEST_INT_EQ                  CHAZ_TEST_TEST_INT_EQ
  #define Test_test_float_eq           chaz_Test_test_float_eq
  #define TEST_FLOAT_EQ                CHAZ_TEST_TEST_FLOAT_EQ
  #define Test_skip                    chaz_Test_skip
  #define SKIP                         CHAZ_TEST_SKIP
  #define Test_report_skip_remaining   chaz_Test_report_skip_remaining
  #define SKIP_REMAINING               CHAZ_TEST_SKIP_REMAINING
#endif

#ifdef __cplusplus
}
#endif

#endif /* H_CHAZ_TEST */


/* Copyright 2006-2011 Marvin Humphrey
 *
 * This program is free software; you can redistribute it and/or modify
 * under the same terms as Perl itself.
 */