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