irccd: extern/libgreatest/greatest.h annotate

annotate extern/libgreatest/greatest.h @ 1164:832dbde9d495

plugin links: rewrite a thread-less version with pollable interface

author	David Demelier <markand@malikania.fr>
date	Mon, 28 Feb 2022 21:38:38 +0100
parents	243f9f51b0ff
children

rev	line source
934 243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1 /*
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	2 * Copyright (c) 2011-2019 Scott Vokes <vokes.s@gmail.com>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	3 *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	4 * Permission to use, copy, modify, and/or distribute this software for any
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	5 * purpose with or without fee is hereby granted, provided that the above
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	6 * copyright notice and this permission notice appear in all copies.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	7 *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	9 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	10 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	11 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	12 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	13 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	14 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	15 */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	16
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	17 #ifndef GREATEST_H
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	18 #define GREATEST_H
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	19
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	20 #if defined(__cplusplus) && !defined(GREATEST_NO_EXTERN_CPLUSPLUS)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	21 extern "C" {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	22 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	23
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	24 /* 1.4.2 */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	25 #define GREATEST_VERSION_MAJOR 1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	26 #define GREATEST_VERSION_MINOR 4
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	27 #define GREATEST_VERSION_PATCH 2
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	28
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	29 /* A unit testing system for C, contained in 1 file.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	30 * It doesn't use dynamic allocation or depend on anything
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	31 * beyond ANSI C89.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	32 *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	33 * An up-to-date version can be found at:
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	34 * https://github.com/silentbicycle/greatest/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	35 */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	36
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	37
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	38 /*********************************************************************
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	39 * Minimal test runner template
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	40 *********************************************************************/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	41 #if 0
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	42
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	43 #include "greatest.h"
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	44
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	45 TEST foo_should_foo(void) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	46 PASS();
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	47 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	48
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	49 static void setup_cb(void *data) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	50 printf("setup callback for each test case\n");
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	51 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	52
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	53 static void teardown_cb(void *data) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	54 printf("teardown callback for each test case\n");
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	55 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	56
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	57 SUITE(suite) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	58 /* Optional setup/teardown callbacks which will be run before/after
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	59 * every test case. If using a test suite, they will be cleared when
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	60 * the suite finishes. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	61 SET_SETUP(setup_cb, voidp_to_callback_data);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	62 SET_TEARDOWN(teardown_cb, voidp_to_callback_data);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	63
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	64 RUN_TEST(foo_should_foo);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	65 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	66
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	67 /* Add definitions that need to be in the test runner's main file. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	68 GREATEST_MAIN_DEFS();
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	69
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	70 /* Set up, run suite(s) of tests, report pass/fail/skip stats. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	71 int run_tests(void) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	72 GREATEST_INIT(); /* init. greatest internals */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	73 /* List of suites to run (if any). */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	74 RUN_SUITE(suite);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	75
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	76 /* Tests can also be run directly, without using test suites. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	77 RUN_TEST(foo_should_foo);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	78
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	79 GREATEST_PRINT_REPORT(); /* display results */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	80 return greatest_all_passed();
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	81 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	82
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	83 /* main(), for a standalone command-line test runner.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	84 * This replaces run_tests above, and adds command line option
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	85 * handling and exiting with a pass/fail status. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	86 int main(int argc, char **argv) {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	87 GREATEST_MAIN_BEGIN(); /* init & parse command-line args */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	88 RUN_SUITE(suite);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	89 GREATEST_MAIN_END(); /* display results */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	90 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	91
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	92 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	93 /*********************************************************************/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	94
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	95
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	96 #include <stdlib.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	97 #include <stdio.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	98 #include <string.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	99 #include <ctype.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	100
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	101 /***********
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	102 * Options *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	103 ***********/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	104
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	105 /* Default column width for non-verbose output. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	106 #ifndef GREATEST_DEFAULT_WIDTH
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	107 #define GREATEST_DEFAULT_WIDTH 72
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	108 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	109
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	110 /* FILE , for test logging. /
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	111 #ifndef GREATEST_STDOUT
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	112 #define GREATEST_STDOUT stdout
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	113 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	114
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	115 /* Remove GREATEST_ prefix from most commonly used symbols? */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	116 #ifndef GREATEST_USE_ABBREVS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	117 #define GREATEST_USE_ABBREVS 1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	118 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	119
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	120 /* Set to 0 to disable all use of setjmp/longjmp. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	121 #ifndef GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	122 #define GREATEST_USE_LONGJMP 1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	123 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	124
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	125 /* Make it possible to replace fprintf with another
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	126 * function with the same interface. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	127 #ifndef GREATEST_FPRINTF
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	128 #define GREATEST_FPRINTF fprintf
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	129 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	130
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	131 #if GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	132 #include <setjmp.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	133 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	134
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	135 /* Set to 0 to disable all use of time.h / clock(). */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	136 #ifndef GREATEST_USE_TIME
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	137 #define GREATEST_USE_TIME 1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	138 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	139
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	140 #if GREATEST_USE_TIME
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	141 #include <time.h>
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	142 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	143
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	144 /* Floating point type, for ASSERT_IN_RANGE. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	145 #ifndef GREATEST_FLOAT
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	146 #define GREATEST_FLOAT double
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	147 #define GREATEST_FLOAT_FMT "%g"
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	148 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	149
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	150 /* Size of buffer for test name + optional '_' separator and suffix */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	151 #ifndef GREATEST_TESTNAME_BUF_SIZE
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	152 #define GREATEST_TESTNAME_BUF_SIZE 128
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	153 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	154
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	155
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	156 /*********
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	157 * Types *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	158 *********/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	159
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	160 /* Info for the current running suite. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	161 typedef struct greatest_suite_info {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	162 unsigned int tests_run;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	163 unsigned int passed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	164 unsigned int failed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	165 unsigned int skipped;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	166
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	167 #if GREATEST_USE_TIME
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	168 /* timers, pre/post running suite and individual tests */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	169 clock_t pre_suite;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	170 clock_t post_suite;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	171 clock_t pre_test;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	172 clock_t post_test;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	173 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	174 } greatest_suite_info;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	175
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	176 /* Type for a suite function. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	177 typedef void greatest_suite_cb(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	178
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	179 /* Types for setup/teardown callbacks. If non-NULL, these will be run
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	180 * and passed the pointer to their additional data. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	181 typedef void greatest_setup_cb(void *udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	182 typedef void greatest_teardown_cb(void *udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	183
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	184 /* Type for an equality comparison between two pointers of the same type.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	185 * Should return non-0 if equal, otherwise 0.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	186 * UDATA is a closure value, passed through from ASSERT_EQUAL_T[m]. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	187 typedef int greatest_equal_cb(const void expd, const void got, void *udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	188
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	189 /* Type for a callback that prints a value pointed to by T.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	190 * Return value has the same meaning as printf's.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	191 * UDATA is a closure value, passed through from ASSERT_EQUAL_T[m]. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	192 typedef int greatest_printf_cb(const void t, void udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	193
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	194 /* Callbacks for an arbitrary type; needed for type-specific
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	195 * comparisons via GREATEST_ASSERT_EQUAL_T[m].*/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	196 typedef struct greatest_type_info {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	197 greatest_equal_cb *equal;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	198 greatest_printf_cb *print;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	199 } greatest_type_info;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	200
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	201 typedef struct greatest_memory_cmp_env {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	202 const unsigned char *exp;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	203 const unsigned char *got;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	204 size_t size;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	205 } greatest_memory_cmp_env;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	206
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	207 /* Callbacks for string and raw memory types. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	208 extern greatest_type_info greatest_type_info_string;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	209 extern greatest_type_info greatest_type_info_memory;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	210
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	211 typedef enum {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	212 GREATEST_FLAG_FIRST_FAIL = 0x01,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	213 GREATEST_FLAG_LIST_ONLY = 0x02,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	214 GREATEST_FLAG_ABORT_ON_FAIL = 0x04
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	215 } greatest_flag_t;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	216
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	217 /* Internal state for a PRNG, used to shuffle test order. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	218 struct greatest_prng {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	219 unsigned char random_order; /* use random ordering? */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	220 unsigned char initialized; /* is random ordering initialized? */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	221 unsigned char pad_0[6];
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	222 unsigned long state; /* PRNG state */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	223 unsigned long count; /* how many tests, this pass */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	224 unsigned long count_ceil; /* total number of tests */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	225 unsigned long count_run; /* total tests run */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	226 unsigned long a; /* LCG multiplier */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	227 unsigned long c; /* LCG increment */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	228 unsigned long m; /* LCG modulus, based on count_ceil */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	229 };
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	230
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	231 /* Struct containing all test runner state. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	232 typedef struct greatest_run_info {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	233 unsigned char flags;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	234 unsigned char verbosity;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	235 unsigned char pad_0[2];
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	236
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	237 unsigned int tests_run; /* total test count */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	238
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	239 /* currently running test suite */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	240 greatest_suite_info suite;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	241
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	242 /* overall pass/fail/skip counts */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	243 unsigned int passed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	244 unsigned int failed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	245 unsigned int skipped;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	246 unsigned int assertions;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	247
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	248 /* info to print about the most recent failure */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	249 unsigned int fail_line;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	250 unsigned int pad_1;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	251 const char *fail_file;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	252 const char *msg;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	253
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	254 /* current setup/teardown hooks and userdata */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	255 greatest_setup_cb *setup;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	256 void *setup_udata;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	257 greatest_teardown_cb *teardown;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	258 void *teardown_udata;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	259
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	260 /* formatting info for ".....s...F"-style output */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	261 unsigned int col;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	262 unsigned int width;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	263
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	264 /* only run a specific suite or test */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	265 const char *suite_filter;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	266 const char *test_filter;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	267 const char *test_exclude;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	268 const char name_suffix; / print suffix with test name */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	269 char name_buf[GREATEST_TESTNAME_BUF_SIZE];
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	270
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	271 struct greatest_prng prng[2]; /* 0: suites, 1: tests */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	272
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	273 #if GREATEST_USE_TIME
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	274 /* overall timers */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	275 clock_t begin;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	276 clock_t end;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	277 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	278
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	279 #if GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	280 int pad_jmp_buf;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	281 unsigned char pad_2[4];
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	282 jmp_buf jump_dest;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	283 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	284 } greatest_run_info;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	285
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	286 struct greatest_report_t {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	287 /* overall pass/fail/skip counts */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	288 unsigned int passed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	289 unsigned int failed;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	290 unsigned int skipped;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	291 unsigned int assertions;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	292 };
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	293
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	294 /* Global var for the current testing context.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	295 * Initialized by GREATEST_MAIN_DEFS(). */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	296 extern greatest_run_info greatest_info;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	297
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	298 /* Type for ASSERT_ENUM_EQ's ENUM_STR argument. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	299 typedef const char *greatest_enum_str_fun(int value);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	300
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	301
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	302 /**********************
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	303 * Exported functions *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	304 **********************/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	305
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	306 /* These are used internally by greatest macros. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	307 int greatest_test_pre(const char *name);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	308 void greatest_test_post(int res);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	309 int greatest_do_assert_equal_t(const void expd, const void got,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	310 greatest_type_info type_info, void udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	311 void greatest_prng_init_first_pass(int id);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	312 int greatest_prng_init_second_pass(int id, unsigned long seed);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	313 void greatest_prng_step(int id);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	314
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	315 /* These are part of the public greatest API. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	316 void GREATEST_SET_SETUP_CB(greatest_setup_cb cb, void udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	317 void GREATEST_SET_TEARDOWN_CB(greatest_teardown_cb cb, void udata);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	318 void GREATEST_INIT(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	319 void GREATEST_PRINT_REPORT(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	320 int greatest_all_passed(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	321 void greatest_set_suite_filter(const char *filter);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	322 void greatest_set_test_filter(const char *filter);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	323 void greatest_set_test_exclude(const char *filter);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	324 void greatest_stop_at_first_fail(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	325 void greatest_abort_on_fail(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	326 void greatest_list_only(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	327 void greatest_get_report(struct greatest_report_t *report);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	328 unsigned int greatest_get_verbosity(void);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	329 void greatest_set_verbosity(unsigned int verbosity);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	330 void greatest_set_flag(greatest_flag_t flag);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	331 void greatest_set_test_suffix(const char *suffix);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	332
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	333
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	334 /********************
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	335 * Language Support *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	336 ********************/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	337
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	338 /* If __VA_ARGS__ (C99) is supported, allow parametric testing
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	339 * without needing to manually manage the argument struct. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	340 #if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 19901L) \|\| \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	341 (defined(_MSC_VER) && _MSC_VER >= 1800)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	342 #define GREATEST_VA_ARGS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	343 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	344
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	345
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	346 /**********
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	347 * Macros *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	348 **********/
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	349
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	350 /* Define a suite. (The duplication is intentional -- it eliminates
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	351 * a warning from -Wmissing-declarations.) */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	352 #define GREATEST_SUITE(NAME) void NAME(void); void NAME(void)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	353
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	354 /* Declare a suite, provided by another compilation unit. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	355 #define GREATEST_SUITE_EXTERN(NAME) void NAME(void)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	356
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	357 /* Start defining a test function.
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	358 * The arguments are not included, to allow parametric testing. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	359 #define GREATEST_TEST static enum greatest_test_res
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	360
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	361 /* PASS/FAIL/SKIP result from a test. Used internally. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	362 typedef enum greatest_test_res {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	363 GREATEST_TEST_RES_PASS = 0,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	364 GREATEST_TEST_RES_FAIL = -1,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	365 GREATEST_TEST_RES_SKIP = 1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	366 } greatest_test_res;
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	367
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	368 /* Run a suite. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	369 #define GREATEST_RUN_SUITE(S_NAME) greatest_run_suite(S_NAME, #S_NAME)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	370
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	371 /* Run a test in the current suite. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	372 #define GREATEST_RUN_TEST(TEST) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	373 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	374 if (greatest_test_pre(#TEST) == 1) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	375 enum greatest_test_res res = GREATEST_SAVE_CONTEXT(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	376 if (res == GREATEST_TEST_RES_PASS) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	377 res = TEST(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	378 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	379 greatest_test_post(res); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	380 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	381 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	382
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	383 /* Ignore a test, don't warn about it being unused. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	384 #define GREATEST_IGNORE_TEST(TEST) (void)TEST
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	385
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	386 /* Run a test in the current suite with one void * argument,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	387 * which can be a pointer to a struct with multiple arguments. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	388 #define GREATEST_RUN_TEST1(TEST, ENV) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	389 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	390 if (greatest_test_pre(#TEST) == 1) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	391 enum greatest_test_res res = GREATEST_SAVE_CONTEXT(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	392 if (res == GREATEST_TEST_RES_PASS) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	393 res = TEST(ENV); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	394 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	395 greatest_test_post(res); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	396 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	397 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	398
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	399 #ifdef GREATEST_VA_ARGS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	400 #define GREATEST_RUN_TESTp(TEST, ...) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	401 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	402 if (greatest_test_pre(#TEST) == 1) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	403 enum greatest_test_res res = GREATEST_SAVE_CONTEXT(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	404 if (res == GREATEST_TEST_RES_PASS) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	405 res = TEST(__VA_ARGS__); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	406 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	407 greatest_test_post(res); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	408 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	409 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	410 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	411
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	412
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	413 /* Check if the test runner is in verbose mode. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	414 #define GREATEST_IS_VERBOSE() ((greatest_info.verbosity) > 0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	415 #define GREATEST_LIST_ONLY() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	416 (greatest_info.flags & GREATEST_FLAG_LIST_ONLY)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	417 #define GREATEST_FIRST_FAIL() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	418 (greatest_info.flags & GREATEST_FLAG_FIRST_FAIL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	419 #define GREATEST_ABORT_ON_FAIL() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	420 (greatest_info.flags & GREATEST_FLAG_ABORT_ON_FAIL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	421 #define GREATEST_FAILURE_ABORT() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	422 (GREATEST_FIRST_FAIL() && \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	423 (greatest_info.suite.failed > 0 \|\| greatest_info.failed > 0))
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	424
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	425 /* Message-less forms of tests defined below. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	426 #define GREATEST_PASS() GREATEST_PASSm(NULL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	427 #define GREATEST_FAIL() GREATEST_FAILm(NULL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	428 #define GREATEST_SKIP() GREATEST_SKIPm(NULL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	429 #define GREATEST_ASSERT(COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	430 GREATEST_ASSERTm(#COND, COND)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	431 #define GREATEST_ASSERT_OR_LONGJMP(COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	432 GREATEST_ASSERT_OR_LONGJMPm(#COND, COND)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	433 #define GREATEST_ASSERT_FALSE(COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	434 GREATEST_ASSERT_FALSEm(#COND, COND)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	435 #define GREATEST_ASSERT_EQ(EXP, GOT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	436 GREATEST_ASSERT_EQm(#EXP " != " #GOT, EXP, GOT)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	437 #define GREATEST_ASSERT_EQ_FMT(EXP, GOT, FMT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	438 GREATEST_ASSERT_EQ_FMTm(#EXP " != " #GOT, EXP, GOT, FMT)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	439 #define GREATEST_ASSERT_IN_RANGE(EXP, GOT, TOL) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	440 GREATEST_ASSERT_IN_RANGEm(#EXP " != " #GOT " +/- " #TOL, EXP, GOT, TOL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	441 #define GREATEST_ASSERT_EQUAL_T(EXP, GOT, TYPE_INFO, UDATA) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	442 GREATEST_ASSERT_EQUAL_Tm(#EXP " != " #GOT, EXP, GOT, TYPE_INFO, UDATA)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	443 #define GREATEST_ASSERT_STR_EQ(EXP, GOT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	444 GREATEST_ASSERT_STR_EQm(#EXP " != " #GOT, EXP, GOT)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	445 #define GREATEST_ASSERT_STRN_EQ(EXP, GOT, SIZE) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	446 GREATEST_ASSERT_STRN_EQm(#EXP " != " #GOT, EXP, GOT, SIZE)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	447 #define GREATEST_ASSERT_MEM_EQ(EXP, GOT, SIZE) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	448 GREATEST_ASSERT_MEM_EQm(#EXP " != " #GOT, EXP, GOT, SIZE)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	449 #define GREATEST_ASSERT_ENUM_EQ(EXP, GOT, ENUM_STR) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	450 GREATEST_ASSERT_ENUM_EQm(#EXP " != " #GOT, EXP, GOT, ENUM_STR)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	451
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	452 /* The following forms take an additional message argument first,
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	453 * to be displayed by the test runner. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	454
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	455 /* Fail if a condition is not true, with message. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	456 #define GREATEST_ASSERTm(MSG, COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	457 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	458 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	459 if (!(COND)) { GREATEST_FAILm(MSG); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	460 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	461
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	462 /* Fail if a condition is not true, longjmping out of test. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	463 #define GREATEST_ASSERT_OR_LONGJMPm(MSG, COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	464 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	465 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	466 if (!(COND)) { GREATEST_FAIL_WITH_LONGJMPm(MSG); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	467 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	468
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	469 /* Fail if a condition is not false, with message. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	470 #define GREATEST_ASSERT_FALSEm(MSG, COND) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	471 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	472 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	473 if ((COND)) { GREATEST_FAILm(MSG); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	474 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	475
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	476 /* Fail if EXP != GOT (equality comparison by ==). */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	477 #define GREATEST_ASSERT_EQm(MSG, EXP, GOT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	478 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	479 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	480 if ((EXP) != (GOT)) { GREATEST_FAILm(MSG); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	481 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	482
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	483 /* Fail if EXP != GOT (equality comparison by ==).
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	484 * Warning: FMT, EXP, and GOT will be evaluated more
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	485 * than once on failure. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	486 #define GREATEST_ASSERT_EQ_FMTm(MSG, EXP, GOT, FMT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	487 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	488 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	489 if ((EXP) != (GOT)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	490 GREATEST_FPRINTF(GREATEST_STDOUT, "\nExpected: "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	491 GREATEST_FPRINTF(GREATEST_STDOUT, FMT, EXP); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	492 GREATEST_FPRINTF(GREATEST_STDOUT, "\n Got: "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	493 GREATEST_FPRINTF(GREATEST_STDOUT, FMT, GOT); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	494 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	495 GREATEST_FAILm(MSG); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	496 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	497 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	498
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	499 /* Fail if EXP is not equal to GOT, printing enum IDs. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	500 #define GREATEST_ASSERT_ENUM_EQm(MSG, EXP, GOT, ENUM_STR) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	501 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	502 int greatest_EXP = (int)(EXP); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	503 int greatest_GOT = (int)(GOT); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	504 greatest_enum_str_fun *greatest_ENUM_STR = ENUM_STR; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	505 if (greatest_EXP != greatest_GOT) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	506 GREATEST_FPRINTF(GREATEST_STDOUT, "\nExpected: %s", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	507 greatest_ENUM_STR(greatest_EXP)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	508 GREATEST_FPRINTF(GREATEST_STDOUT, "\n Got: %s\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	509 greatest_ENUM_STR(greatest_GOT)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	510 GREATEST_FAILm(MSG); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	511 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	512 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	513
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	514 /* Fail if GOT not in range of EXP +\|- TOL. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	515 #define GREATEST_ASSERT_IN_RANGEm(MSG, EXP, GOT, TOL) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	516 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	517 GREATEST_FLOAT greatest_EXP = (EXP); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	518 GREATEST_FLOAT greatest_GOT = (GOT); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	519 GREATEST_FLOAT greatest_TOL = (TOL); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	520 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	521 if ((greatest_EXP > greatest_GOT && \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	522 greatest_EXP - greatest_GOT > greatest_TOL) \|\| \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	523 (greatest_EXP < greatest_GOT && \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	524 greatest_GOT - greatest_EXP > greatest_TOL)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	525 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	526 "\nExpected: " GREATEST_FLOAT_FMT \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	527 " +/- " GREATEST_FLOAT_FMT \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	528 "\n Got: " GREATEST_FLOAT_FMT \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	529 "\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	530 greatest_EXP, greatest_TOL, greatest_GOT); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	531 GREATEST_FAILm(MSG); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	532 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	533 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	534
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	535 /* Fail if EXP is not equal to GOT, according to strcmp. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	536 #define GREATEST_ASSERT_STR_EQm(MSG, EXP, GOT) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	537 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	538 GREATEST_ASSERT_EQUAL_Tm(MSG, EXP, GOT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	539 &greatest_type_info_string, NULL); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	540 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	541
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	542 /* Fail if EXP is not equal to GOT, according to strncmp. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	543 #define GREATEST_ASSERT_STRN_EQm(MSG, EXP, GOT, SIZE) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	544 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	545 size_t size = SIZE; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	546 GREATEST_ASSERT_EQUAL_Tm(MSG, EXP, GOT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	547 &greatest_type_info_string, &size); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	548 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	549
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	550 /* Fail if EXP is not equal to GOT, according to memcmp. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	551 #define GREATEST_ASSERT_MEM_EQm(MSG, EXP, GOT, SIZE) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	552 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	553 greatest_memory_cmp_env env; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	554 env.exp = (const unsigned char *)EXP; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	555 env.got = (const unsigned char *)GOT; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	556 env.size = SIZE; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	557 GREATEST_ASSERT_EQUAL_Tm(MSG, env.exp, env.got, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	558 &greatest_type_info_memory, &env); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	559 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	560
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	561 /* Fail if EXP is not equal to GOT, according to a comparison
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	562 * callback in TYPE_INFO. If they are not equal, optionally use a
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	563 * print callback in TYPE_INFO to print them. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	564 #define GREATEST_ASSERT_EQUAL_Tm(MSG, EXP, GOT, TYPE_INFO, UDATA) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	565 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	566 greatest_type_info *type_info = (TYPE_INFO); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	567 greatest_info.assertions++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	568 if (!greatest_do_assert_equal_t(EXP, GOT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	569 type_info, UDATA)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	570 if (type_info == NULL \|\| type_info->equal == NULL) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	571 GREATEST_FAILm("type_info->equal callback missing!"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	572 } else { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	573 GREATEST_FAILm(MSG); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	574 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	575 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	576 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	577
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	578 /* Pass. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	579 #define GREATEST_PASSm(MSG) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	580 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	581 greatest_info.msg = MSG; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	582 return GREATEST_TEST_RES_PASS; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	583 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	584
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	585 /* Fail. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	586 #define GREATEST_FAILm(MSG) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	587 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	588 greatest_info.fail_file = __FILE__; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	589 greatest_info.fail_line = __LINE__; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	590 greatest_info.msg = MSG; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	591 if (GREATEST_ABORT_ON_FAIL()) { abort(); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	592 return GREATEST_TEST_RES_FAIL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	593 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	594
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	595 /* Optional GREATEST_FAILm variant that longjmps. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	596 #if GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	597 #define GREATEST_FAIL_WITH_LONGJMP() GREATEST_FAIL_WITH_LONGJMPm(NULL)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	598 #define GREATEST_FAIL_WITH_LONGJMPm(MSG) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	599 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	600 greatest_info.fail_file = __FILE__; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	601 greatest_info.fail_line = __LINE__; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	602 greatest_info.msg = MSG; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	603 longjmp(greatest_info.jump_dest, GREATEST_TEST_RES_FAIL); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	604 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	605 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	606
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	607 /* Skip the current test. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	608 #define GREATEST_SKIPm(MSG) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	609 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	610 greatest_info.msg = MSG; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	611 return GREATEST_TEST_RES_SKIP; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	612 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	613
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	614 /* Check the result of a subfunction using ASSERT, etc. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	615 #define GREATEST_CHECK_CALL(RES) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	616 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	617 enum greatest_test_res greatest_RES = RES; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	618 if (greatest_RES != GREATEST_TEST_RES_PASS) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	619 return greatest_RES; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	620 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	621 } while (0) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	622
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	623 #if GREATEST_USE_TIME
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	624 #define GREATEST_SET_TIME(NAME) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	625 NAME = clock(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	626 if (NAME == (clock_t) -1) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	627 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	628 "clock error: %s\n", #NAME); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	629 exit(EXIT_FAILURE); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	630 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	631
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	632 #define GREATEST_CLOCK_DIFF(C1, C2) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	633 GREATEST_FPRINTF(GREATEST_STDOUT, " (%lu ticks, %.3f sec)", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	634 (long unsigned int) (C2) - (long unsigned int)(C1), \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	635 (double)((C2) - (C1)) / (1.0 * (double)CLOCKS_PER_SEC))
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	636 #else
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	637 #define GREATEST_SET_TIME(UNUSED)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	638 #define GREATEST_CLOCK_DIFF(UNUSED1, UNUSED2)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	639 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	640
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	641 #if GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	642 #define GREATEST_SAVE_CONTEXT() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	643 /* setjmp returns 0 (GREATEST_TEST_RES_PASS) on first call * \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	644 * so the test runs, then RES_FAIL from FAIL_WITH_LONGJMP. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	645 ((enum greatest_test_res)(setjmp(greatest_info.jump_dest)))
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	646 #else
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	647 #define GREATEST_SAVE_CONTEXT() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	648 /a no-op, since setjmp/longjmp aren't being used / \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	649 GREATEST_TEST_RES_PASS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	650 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	651
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	652 /* Run every suite / test function run within BODY in pseudo-random
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	653 * order, seeded by SEED. (The top 3 bits of the seed are ignored.)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	654 *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	655 * This should be called like:
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	656 * GREATEST_SHUFFLE_TESTS(seed, {
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	657 * GREATEST_RUN_TEST(some_test);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	658 * GREATEST_RUN_TEST(some_other_test);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	659 * GREATEST_RUN_TEST(yet_another_test);
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	660 * });
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	661 *
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	662 * Note that the body of the second argument will be evaluated
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	663 * multiple times. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	664 #define GREATEST_SHUFFLE_SUITES(SD, BODY) GREATEST_SHUFFLE(0, SD, BODY)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	665 #define GREATEST_SHUFFLE_TESTS(SD, BODY) GREATEST_SHUFFLE(1, SD, BODY)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	666 #define GREATEST_SHUFFLE(ID, SD, BODY) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	667 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	668 struct greatest_prng *prng = &greatest_info.prng[ID]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	669 greatest_prng_init_first_pass(ID); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	670 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	671 prng->count = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	672 if (prng->initialized) { greatest_prng_step(ID); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	673 BODY; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	674 if (!prng->initialized) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	675 if (!greatest_prng_init_second_pass(ID, SD)) { break; } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	676 } else if (prng->count_run == prng->count_ceil) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	677 break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	678 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	679 } while (!GREATEST_FAILURE_ABORT()); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	680 prng->count_run = prng->random_order = prng->initialized = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	681 } while(0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	682
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	683 /* Include several function definitions in the main test file. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	684 #define GREATEST_MAIN_DEFS() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	685 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	686 /* Is FILTER a subset of NAME? */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	687 static int greatest_name_match(const char name, const char filter, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	688 int res_if_none) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	689 size_t offset = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	690 size_t filter_len = filter ? strlen(filter) : 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	691 if (filter_len == 0) { return res_if_none; } /* no filter */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	692 while (name[offset] != '\0') { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	693 if (name[offset] == filter[0]) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	694 if (0 == strncmp(&name[offset], filter, filter_len)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	695 return 1; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	696 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	697 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	698 offset++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	699 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	700 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	701 return 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	702 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	703 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	704 static void greatest_buffer_test_name(const char *name) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	705 struct greatest_run_info *g = &greatest_info; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	706 size_t len = strlen(name), size = sizeof(g->name_buf); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	707 memset(g->name_buf, 0x00, size); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	708 (void)strncat(g->name_buf, name, size - 1); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	709 if (g->name_suffix && (len + 1 < size)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	710 g->name_buf[len] = '_'; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	711 strncat(&g->name_buf[len+1], g->name_suffix, size-(len+2)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	712 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	713 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	714 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	715 /* Before running a test, check the name filtering and \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	716 * test shuffling state, if applicable, and then call setup hooks. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	717 int greatest_test_pre(const char *name) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	718 struct greatest_run_info *g = &greatest_info; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	719 int match; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	720 greatest_buffer_test_name(name); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	721 match = greatest_name_match(g->name_buf, g->test_filter, 1) && \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	722 !greatest_name_match(g->name_buf, g->test_exclude, 0); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	723 if (GREATEST_LIST_ONLY()) { /* just listing test names */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	724 if (match) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	725 GREATEST_FPRINTF(GREATEST_STDOUT, " %s\n", g->name_buf); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	726 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	727 goto clear; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	728 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	729 if (match && (!GREATEST_FIRST_FAIL() \|\| g->suite.failed == 0)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	730 struct greatest_prng *p = &g->prng[1]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	731 if (p->random_order) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	732 p->count++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	733 if (!p->initialized \|\| ((p->count - 1) != p->state)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	734 goto clear; /* don't run this test yet */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	735 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	736 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	737 GREATEST_SET_TIME(g->suite.pre_test); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	738 if (g->setup) { g->setup(g->setup_udata); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	739 p->count_run++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	740 return 1; /* test should be run */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	741 } else { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	742 goto clear; /* skipped */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	743 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	744 clear: \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	745 g->name_suffix = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	746 return 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	747 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	748 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	749 static void greatest_do_pass(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	750 struct greatest_run_info *g = &greatest_info; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	751 if (GREATEST_IS_VERBOSE()) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	752 GREATEST_FPRINTF(GREATEST_STDOUT, "PASS %s: %s", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	753 g->name_buf, g->msg ? g->msg : ""); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	754 } else { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	755 GREATEST_FPRINTF(GREATEST_STDOUT, "."); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	756 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	757 g->suite.passed++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	758 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	759 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	760 static void greatest_do_fail(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	761 struct greatest_run_info *g = &greatest_info; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	762 if (GREATEST_IS_VERBOSE()) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	763 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	764 "FAIL %s: %s (%s:%u)", g->name_buf, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	765 g->msg ? g->msg : "", g->fail_file, g->fail_line); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	766 } else { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	767 GREATEST_FPRINTF(GREATEST_STDOUT, "F"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	768 g->col++; /* add linebreak if in line of '.'s */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	769 if (g->col != 0) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	770 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	771 g->col = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	772 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	773 GREATEST_FPRINTF(GREATEST_STDOUT, "FAIL %s: %s (%s:%u)\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	774 g->name_buf, g->msg ? g->msg : "", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	775 g->fail_file, g->fail_line); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	776 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	777 g->suite.failed++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	778 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	779 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	780 static void greatest_do_skip(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	781 struct greatest_run_info *g = &greatest_info; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	782 if (GREATEST_IS_VERBOSE()) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	783 GREATEST_FPRINTF(GREATEST_STDOUT, "SKIP %s: %s", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	784 g->name_buf, g->msg ? g->msg : ""); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	785 } else { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	786 GREATEST_FPRINTF(GREATEST_STDOUT, "s"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	787 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	788 g->suite.skipped++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	789 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	790 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	791 void greatest_test_post(int res) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	792 GREATEST_SET_TIME(greatest_info.suite.post_test); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	793 if (greatest_info.teardown) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	794 void *udata = greatest_info.teardown_udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	795 greatest_info.teardown(udata); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	796 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	797 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	798 if (res <= GREATEST_TEST_RES_FAIL) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	799 greatest_do_fail(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	800 } else if (res >= GREATEST_TEST_RES_SKIP) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	801 greatest_do_skip(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	802 } else if (res == GREATEST_TEST_RES_PASS) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	803 greatest_do_pass(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	804 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	805 greatest_info.name_suffix = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	806 greatest_info.suite.tests_run++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	807 greatest_info.col++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	808 if (GREATEST_IS_VERBOSE()) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	809 GREATEST_CLOCK_DIFF(greatest_info.suite.pre_test, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	810 greatest_info.suite.post_test); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	811 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	812 } else if (greatest_info.col % greatest_info.width == 0) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	813 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	814 greatest_info.col = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	815 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	816 fflush(GREATEST_STDOUT); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	817 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	818 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	819 static void report_suite(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	820 if (greatest_info.suite.tests_run > 0) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	821 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	822 "\n%u test%s - %u passed, %u failed, %u skipped", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	823 greatest_info.suite.tests_run, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	824 greatest_info.suite.tests_run == 1 ? "" : "s", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	825 greatest_info.suite.passed, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	826 greatest_info.suite.failed, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	827 greatest_info.suite.skipped); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	828 GREATEST_CLOCK_DIFF(greatest_info.suite.pre_suite, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	829 greatest_info.suite.post_suite); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	830 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	831 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	832 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	833 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	834 static void update_counts_and_reset_suite(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	835 greatest_info.setup = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	836 greatest_info.setup_udata = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	837 greatest_info.teardown = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	838 greatest_info.teardown_udata = NULL; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	839 greatest_info.passed += greatest_info.suite.passed; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	840 greatest_info.failed += greatest_info.suite.failed; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	841 greatest_info.skipped += greatest_info.suite.skipped; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	842 greatest_info.tests_run += greatest_info.suite.tests_run; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	843 memset(&greatest_info.suite, 0, sizeof(greatest_info.suite)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	844 greatest_info.col = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	845 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	846 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	847 static int greatest_suite_pre(const char *suite_name) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	848 struct greatest_prng *p = &greatest_info.prng[0]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	849 if (!greatest_name_match(suite_name, greatest_info.suite_filter, 1) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	850 \|\| (GREATEST_FAILURE_ABORT())) { return 0; } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	851 if (p->random_order) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	852 p->count++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	853 if (!p->initialized \|\| ((p->count - 1) != p->state)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	854 return 0; /* don't run this suite yet */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	855 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	856 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	857 p->count_run++; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	858 update_counts_and_reset_suite(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	859 GREATEST_FPRINTF(GREATEST_STDOUT, "\n* Suite %s:\n", suite_name); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	860 GREATEST_SET_TIME(greatest_info.suite.pre_suite); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	861 return 1; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	862 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	863 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	864 static void greatest_suite_post(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	865 GREATEST_SET_TIME(greatest_info.suite.post_suite); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	866 report_suite(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	867 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	868 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	869 static void greatest_run_suite(greatest_suite_cb *suite_cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	870 const char *suite_name) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	871 if (greatest_suite_pre(suite_name)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	872 suite_cb(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	873 greatest_suite_post(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	874 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	875 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	876 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	877 int greatest_do_assert_equal_t(const void expd, const void got, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	878 greatest_type_info type_info, void udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	879 int eq = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	880 if (type_info == NULL \|\| type_info->equal == NULL) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	881 return 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	882 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	883 eq = type_info->equal(expd, got, udata); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	884 if (!eq) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	885 if (type_info->print != NULL) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	886 GREATEST_FPRINTF(GREATEST_STDOUT, "\nExpected: "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	887 (void)type_info->print(expd, udata); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	888 GREATEST_FPRINTF(GREATEST_STDOUT, "\n Got: "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	889 (void)type_info->print(got, udata); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	890 GREATEST_FPRINTF(GREATEST_STDOUT, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	891 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	892 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	893 return eq; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	894 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	895 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	896 static void greatest_usage(const char *name) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	897 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	898 "Usage: %s [-hlfav] [-s SUITE] [-t TEST] [-x EXCLUDE]\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	899 " -h, --help print this Help\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	900 " -l List suites and tests, then exit (dry run)\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	901 " -f Stop runner after first failure\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	902 " -a Abort on first failure (implies -f)\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	903 " -v Verbose output\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	904 " -s SUITE only run suites containing substring SUITE\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	905 " -t TEST only run tests containing substring TEST\n" \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	906 " -x EXCLUDE exclude tests containing substring EXCLUDE\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	907 name); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	908 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	909 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	910 static void greatest_parse_options(int argc, char **argv) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	911 int i = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	912 for (i = 1; i < argc; i++) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	913 if (argv[i][0] == '-') { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	914 char f = argv[i][1]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	915 if ((f == 's' \|\| f == 't' \|\| f == 'x') && argc <= i + 1) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	916 greatest_usage(argv[0]); exit(EXIT_FAILURE); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	917 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	918 switch (f) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	919 case 's': /* suite name filter */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	920 greatest_set_suite_filter(argv[i + 1]); i++; break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	921 case 't': /* test name filter */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	922 greatest_set_test_filter(argv[i + 1]); i++; break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	923 case 'x': /* test name exclusion */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	924 greatest_set_test_exclude(argv[i + 1]); i++; break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	925 case 'f': /* first fail flag */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	926 greatest_stop_at_first_fail(); break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	927 case 'a': /* abort() on fail flag */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	928 greatest_abort_on_fail(); break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	929 case 'l': /* list only (dry run) */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	930 greatest_list_only(); break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	931 case 'v': /* first fail flag */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	932 greatest_info.verbosity++; break; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	933 case 'h': /* help */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	934 greatest_usage(argv[0]); exit(EXIT_SUCCESS); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	935 case '-': \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	936 if (0 == strncmp("--help", argv[i], 6)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	937 greatest_usage(argv[0]); exit(EXIT_SUCCESS); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	938 } else if (0 == strncmp("--", argv[i], 2)) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	939 return; /* ignore following arguments */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	940 } /* fall through */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	941 default: \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	942 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	943 "Unknown argument '%s'\n", argv[i]); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	944 greatest_usage(argv[0]); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	945 exit(EXIT_FAILURE); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	946 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	947 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	948 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	949 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	950 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	951 int greatest_all_passed(void) { return (greatest_info.failed == 0); } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	952 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	953 void greatest_set_test_filter(const char *filter) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	954 greatest_info.test_filter = filter; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	955 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	956 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	957 void greatest_set_test_exclude(const char *filter) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	958 greatest_info.test_exclude = filter; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	959 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	960 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	961 void greatest_set_suite_filter(const char *filter) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	962 greatest_info.suite_filter = filter; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	963 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	964 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	965 void greatest_stop_at_first_fail(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	966 greatest_set_flag(GREATEST_FLAG_FIRST_FAIL); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	967 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	968 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	969 void greatest_abort_on_fail(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	970 greatest_set_flag(GREATEST_FLAG_ABORT_ON_FAIL); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	971 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	972 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	973 void greatest_list_only(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	974 greatest_set_flag(GREATEST_FLAG_LIST_ONLY); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	975 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	976 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	977 void greatest_get_report(struct greatest_report_t *report) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	978 if (report) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	979 report->passed = greatest_info.passed; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	980 report->failed = greatest_info.failed; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	981 report->skipped = greatest_info.skipped; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	982 report->assertions = greatest_info.assertions; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	983 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	984 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	985 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	986 unsigned int greatest_get_verbosity(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	987 return greatest_info.verbosity; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	988 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	989 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	990 void greatest_set_verbosity(unsigned int verbosity) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	991 greatest_info.verbosity = (unsigned char)verbosity; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	992 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	993 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	994 void greatest_set_flag(greatest_flag_t flag) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	995 greatest_info.flags = (unsigned char)(greatest_info.flags \| flag); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	996 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	997 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	998 void greatest_set_test_suffix(const char *suffix) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	999 greatest_info.name_suffix = suffix; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1000 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1001 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1002 void GREATEST_SET_SETUP_CB(greatest_setup_cb cb, void udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1003 greatest_info.setup = cb; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1004 greatest_info.setup_udata = udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1005 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1006 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1007 void GREATEST_SET_TEARDOWN_CB(greatest_teardown_cb *cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1008 void *udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1009 greatest_info.teardown = cb; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1010 greatest_info.teardown_udata = udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1011 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1012 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1013 static int greatest_string_equal_cb(const void expd, const void got, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1014 void *udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1015 size_t size = (size_t )udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1016 return (size != NULL \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1017 ? (0 == strncmp((const char )expd, (const char )got, *size)) \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1018 : (0 == strcmp((const char )expd, (const char )got))); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1019 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1020 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1021 static int greatest_string_printf_cb(const void t, void udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1022 (void)udata; /* note: does not check \0 termination. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1023 return GREATEST_FPRINTF(GREATEST_STDOUT, "%s", (const char *)t); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1024 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1025 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1026 greatest_type_info greatest_type_info_string = { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1027 greatest_string_equal_cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1028 greatest_string_printf_cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1029 }; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1030 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1031 static int greatest_memory_equal_cb(const void expd, const void got, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1032 void *udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1033 greatest_memory_cmp_env env = (greatest_memory_cmp_env )udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1034 return (0 == memcmp(expd, got, env->size)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1035 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1036 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1037 /* Hexdump raw memory, with differences highlighted */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1038 static int greatest_memory_printf_cb(const void t, void udata) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1039 greatest_memory_cmp_env env = (greatest_memory_cmp_env )udata; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1040 const unsigned char buf = (const unsigned char )t; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1041 unsigned char diff_mark = ' '; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1042 FILE *out = GREATEST_STDOUT; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1043 size_t i, line_i, line_len = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1044 int len = 0; /* format hexdump with differences highlighted */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1045 for (i = 0; i < env->size; i+= line_len) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1046 diff_mark = ' '; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1047 line_len = env->size - i; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1048 if (line_len > 16) { line_len = 16; } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1049 for (line_i = i; line_i < i + line_len; line_i++) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1050 if (env->exp[line_i] != env->got[line_i]) diff_mark = 'X'; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1051 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1052 len += GREATEST_FPRINTF(out, "\n%04x %c ", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1053 (unsigned int)i, diff_mark); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1054 for (line_i = i; line_i < i + line_len; line_i++) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1055 int m = env->exp[line_i] == env->got[line_i]; /* match? */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1056 len += GREATEST_FPRINTF(out, "%02x%c", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1057 buf[line_i], m ? ' ' : '<'); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1058 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1059 for (line_i = 0; line_i < 16 - line_len; line_i++) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1060 len += GREATEST_FPRINTF(out, " "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1061 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1062 GREATEST_FPRINTF(out, " "); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1063 for (line_i = i; line_i < i + line_len; line_i++) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1064 unsigned char c = buf[line_i]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1065 len += GREATEST_FPRINTF(out, "%c", isprint(c) ? c : '.'); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1066 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1067 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1068 len += GREATEST_FPRINTF(out, "\n"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1069 return len; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1070 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1071 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1072 void greatest_prng_init_first_pass(int id) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1073 greatest_info.prng[id].random_order = 1; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1074 greatest_info.prng[id].count_run = 0; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1075 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1076 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1077 int greatest_prng_init_second_pass(int id, unsigned long seed) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1078 struct greatest_prng *p = &greatest_info.prng[id]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1079 if (p->count == 0) { return 0; } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1080 p->count_ceil = p->count; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1081 for (p->m = 1; p->m < p->count; p->m <<= 1) {} \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1082 p->state = seed & 0x1fffffff; /* only use lower 29 bits */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1083 p->a = 4LU * p->state; /* to avoid overflow when */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1084 p->a = (p->a ? p->a : 4) \| 1; /* multiplied by 4 */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1085 p->c = 2147483647; /* and so p->c ((2 ** 31) - 1) is */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1086 p->initialized = 1; /* always relatively prime to p->a. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1087 fprintf(stderr, "init_second_pass: a %lu, c %lu, state %lu\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1088 p->a, p->c, p->state); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1089 return 1; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1090 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1091 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1092 /* Step the pseudorandom number generator until its state reaches \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1093 * another test ID between 0 and the test count. \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1094 * This use a linear congruential pseudorandom number generator, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1095 * with the power-of-two ceiling of the test count as the modulus, the \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1096 * masked seed as the multiplier, and a prime as the increment. For \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1097 * each generated value < the test count, run the corresponding test. \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1098 * This will visit all IDs 0 <= X < mod once before repeating, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1099 * with a starting position chosen based on the initial seed. \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1100 * For details, see: Knuth, The Art of Computer Programming \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1101 * Volume. 2, section 3.2.1. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1102 void greatest_prng_step(int id) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1103 struct greatest_prng *p = &greatest_info.prng[id]; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1104 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1105 p->state = ((p->a * p->state) + p->c) & (p->m - 1); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1106 } while (p->state >= p->count_ceil); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1107 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1108 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1109 void GREATEST_INIT(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1110 /* Suppress unused function warning if features aren't used */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1111 (void)greatest_run_suite; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1112 (void)greatest_parse_options; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1113 (void)greatest_prng_step; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1114 (void)greatest_prng_init_first_pass; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1115 (void)greatest_prng_init_second_pass; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1116 (void)greatest_set_test_suffix; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1117 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1118 memset(&greatest_info, 0, sizeof(greatest_info)); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1119 greatest_info.width = GREATEST_DEFAULT_WIDTH; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1120 GREATEST_SET_TIME(greatest_info.begin); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1121 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1122 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1123 /* Report passes, failures, skipped tests, the number of \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1124 * assertions, and the overall run time. */ \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1125 void GREATEST_PRINT_REPORT(void) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1126 if (!GREATEST_LIST_ONLY()) { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1127 update_counts_and_reset_suite(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1128 GREATEST_SET_TIME(greatest_info.end); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1129 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1130 "\nTotal: %u test%s", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1131 greatest_info.tests_run, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1132 greatest_info.tests_run == 1 ? "" : "s"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1133 GREATEST_CLOCK_DIFF(greatest_info.begin, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1134 greatest_info.end); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1135 GREATEST_FPRINTF(GREATEST_STDOUT, ", %u assertion%s\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1136 greatest_info.assertions, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1137 greatest_info.assertions == 1 ? "" : "s"); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1138 GREATEST_FPRINTF(GREATEST_STDOUT, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1139 "Pass: %u, fail: %u, skip: %u.\n", \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1140 greatest_info.passed, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1141 greatest_info.failed, greatest_info.skipped); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1142 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1143 } \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1144 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1145 greatest_type_info greatest_type_info_memory = { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1146 greatest_memory_equal_cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1147 greatest_memory_printf_cb, \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1148 }; \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1149 \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1150 greatest_run_info greatest_info
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1151
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1152 /* Handle command-line arguments, etc. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1153 #define GREATEST_MAIN_BEGIN() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1154 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1155 GREATEST_INIT(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1156 greatest_parse_options(argc, argv); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1157 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1158
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1159 /* Report results, exit with exit status based on results. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1160 #define GREATEST_MAIN_END() \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1161 do { \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1162 GREATEST_PRINT_REPORT(); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1163 return (greatest_all_passed() ? EXIT_SUCCESS : EXIT_FAILURE); \
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1164 } while (0)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1165
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1166 /* Make abbreviations without the GREATEST_ prefix for the
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1167 * most commonly used symbols. */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1168 #if GREATEST_USE_ABBREVS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1169 #define TEST GREATEST_TEST
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1170 #define SUITE GREATEST_SUITE
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1171 #define SUITE_EXTERN GREATEST_SUITE_EXTERN
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1172 #define RUN_TEST GREATEST_RUN_TEST
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1173 #define RUN_TEST1 GREATEST_RUN_TEST1
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1174 #define RUN_SUITE GREATEST_RUN_SUITE
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1175 #define IGNORE_TEST GREATEST_IGNORE_TEST
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1176 #define ASSERT GREATEST_ASSERT
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1177 #define ASSERTm GREATEST_ASSERTm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1178 #define ASSERT_FALSE GREATEST_ASSERT_FALSE
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1179 #define ASSERT_EQ GREATEST_ASSERT_EQ
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1180 #define ASSERT_EQ_FMT GREATEST_ASSERT_EQ_FMT
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1181 #define ASSERT_IN_RANGE GREATEST_ASSERT_IN_RANGE
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1182 #define ASSERT_EQUAL_T GREATEST_ASSERT_EQUAL_T
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1183 #define ASSERT_STR_EQ GREATEST_ASSERT_STR_EQ
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1184 #define ASSERT_STRN_EQ GREATEST_ASSERT_STRN_EQ
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1185 #define ASSERT_MEM_EQ GREATEST_ASSERT_MEM_EQ
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1186 #define ASSERT_ENUM_EQ GREATEST_ASSERT_ENUM_EQ
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1187 #define ASSERT_FALSEm GREATEST_ASSERT_FALSEm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1188 #define ASSERT_EQm GREATEST_ASSERT_EQm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1189 #define ASSERT_EQ_FMTm GREATEST_ASSERT_EQ_FMTm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1190 #define ASSERT_IN_RANGEm GREATEST_ASSERT_IN_RANGEm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1191 #define ASSERT_EQUAL_Tm GREATEST_ASSERT_EQUAL_Tm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1192 #define ASSERT_STR_EQm GREATEST_ASSERT_STR_EQm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1193 #define ASSERT_STRN_EQm GREATEST_ASSERT_STRN_EQm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1194 #define ASSERT_MEM_EQm GREATEST_ASSERT_MEM_EQm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1195 #define ASSERT_ENUM_EQm GREATEST_ASSERT_ENUM_EQm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1196 #define PASS GREATEST_PASS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1197 #define FAIL GREATEST_FAIL
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1198 #define SKIP GREATEST_SKIP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1199 #define PASSm GREATEST_PASSm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1200 #define FAILm GREATEST_FAILm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1201 #define SKIPm GREATEST_SKIPm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1202 #define SET_SETUP GREATEST_SET_SETUP_CB
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1203 #define SET_TEARDOWN GREATEST_SET_TEARDOWN_CB
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1204 #define CHECK_CALL GREATEST_CHECK_CALL
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1205 #define SHUFFLE_TESTS GREATEST_SHUFFLE_TESTS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1206 #define SHUFFLE_SUITES GREATEST_SHUFFLE_SUITES
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1207
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1208 #ifdef GREATEST_VA_ARGS
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1209 #define RUN_TESTp GREATEST_RUN_TESTp
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1210 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1211
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1212 #if GREATEST_USE_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1213 #define ASSERT_OR_LONGJMP GREATEST_ASSERT_OR_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1214 #define ASSERT_OR_LONGJMPm GREATEST_ASSERT_OR_LONGJMPm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1215 #define FAIL_WITH_LONGJMP GREATEST_FAIL_WITH_LONGJMP
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1216 #define FAIL_WITH_LONGJMPm GREATEST_FAIL_WITH_LONGJMPm
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1217 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1218
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1219 #endif /* USE_ABBREVS */
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1220
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1221 #if defined(__cplusplus) && !defined(GREATEST_NO_EXTERN_CPLUSPLUS)
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1222 }
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1223 #endif
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1224
243f9f51b0ff irccd: import libcompat and utilities David Demelier <markand@malikania.fr> parents: diff changeset	1225 #endif

Mercurial > irccd

annotate extern/libgreatest/greatest.h @ 1164:832dbde9d495