buildworld - Reorder libcrypto to before libradius
[dragonfly.git] / contrib / expat / tests / minicheck.c
1 /* Miniature re-implementation of the "check" library.
2  *
3  * This is intended to support just enough of check to run the Expat
4  * tests.  This interface is based entirely on the portion of the
5  * check library being used.
6  */
7
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <setjmp.h>
11 #include <assert.h>
12
13 #include "minicheck.h"
14
15 Suite *
16 suite_create(char *name)
17 {
18     Suite *suite = (Suite *) calloc(1, sizeof(Suite));
19     if (suite != NULL) {
20         suite->name = name;
21     }
22     return suite;
23 }
24
25 TCase *
26 tcase_create(char *name)
27 {
28     TCase *tc = (TCase *) calloc(1, sizeof(TCase));
29     if (tc != NULL) {
30         tc->name = name;
31     }
32     return tc;
33 }
34
35 void
36 suite_add_tcase(Suite *suite, TCase *tc) 
37 {
38     assert(suite != NULL);
39     assert(tc != NULL);
40     assert(tc->next_tcase == NULL);
41
42     tc->next_tcase = suite->tests;
43     suite->tests = tc;
44 }
45
46 void
47 tcase_add_checked_fixture(TCase *tc,
48                           tcase_setup_function setup,
49                           tcase_teardown_function teardown)
50 {
51     assert(tc != NULL);
52     tc->setup = setup;
53     tc->teardown = teardown;
54 }
55
56 void
57 tcase_add_test(TCase *tc, tcase_test_function test)
58 {
59     assert(tc != NULL);
60     if (tc->allocated == tc->ntests) {
61         int nalloc = tc->allocated + 100;
62         size_t new_size = sizeof(tcase_test_function) * nalloc;
63         tcase_test_function *new_tests = realloc(tc->tests, new_size);
64         assert(new_tests != NULL);
65         if (new_tests != tc->tests) {
66             free(tc->tests);
67             tc->tests = new_tests;
68         }
69         tc->allocated = nalloc;
70     }
71     tc->tests[tc->ntests] = test;
72     tc->ntests++;
73 }
74
75 SRunner *
76 srunner_create(Suite *suite)
77 {
78     SRunner *runner = calloc(1, sizeof(SRunner));
79     if (runner != NULL) {
80         runner->suite = suite;
81     }
82     return runner;
83 }
84
85 static jmp_buf env;
86
87 static char const *_check_current_function = NULL;
88 static int _check_current_lineno = -1;
89 static char const *_check_current_filename = NULL;
90
91 void
92 _check_set_test_info(char const *function, char const *filename, int lineno)
93 {
94     _check_current_function = function;
95     _check_current_lineno = lineno;
96     _check_current_filename = filename;
97 }
98
99
100 static void
101 add_failure(SRunner *runner, int verbosity)
102 {
103     runner->nfailures++;
104     if (verbosity >= CK_VERBOSE) {
105         printf("%s:%d: %s\n", _check_current_filename,
106                _check_current_lineno, _check_current_function);
107     }
108 }
109
110 void
111 srunner_run_all(SRunner *runner, int verbosity)
112 {
113     Suite *suite;
114     TCase *tc;
115     assert(runner != NULL);
116     suite = runner->suite;
117     tc = suite->tests;
118     while (tc != NULL) {
119         int i;
120         for (i = 0; i < tc->ntests; ++i) {
121             runner->nchecks++;
122
123             if (tc->setup != NULL) {
124                 /* setup */
125                 if (setjmp(env)) {
126                     add_failure(runner, verbosity);
127                     continue;
128                 }
129                 tc->setup();
130             }
131             /* test */
132             if (setjmp(env)) {
133                 add_failure(runner, verbosity);
134                 continue;
135             }
136             (tc->tests[i])();
137
138             /* teardown */
139             if (tc->teardown != NULL) {
140                 if (setjmp(env)) {
141                     add_failure(runner, verbosity);
142                     continue;
143                 }
144                 tc->teardown();
145             }
146         }
147         tc = tc->next_tcase;
148     }
149     if (verbosity) {
150         int passed = runner->nchecks - runner->nfailures;
151         double percentage = ((double) passed) / runner->nchecks;
152         int display = (int) (percentage * 100);
153         printf("%d%%: Checks: %d, Failed: %d\n",
154                display, runner->nchecks, runner->nfailures);
155     }
156 }
157
158 void
159 _fail_unless(int condition, const char *file, int line, char *msg)
160 {
161     /* Always print the error message so it isn't lost.  In this case,
162        we have a failure, so there's no reason to be quiet about what
163        it is.
164     */
165     if (msg != NULL)
166         printf("%s", msg);
167     longjmp(env, 1);
168 }
169
170 int
171 srunner_ntests_failed(SRunner *runner)
172 {
173     assert(runner != NULL);
174     return runner->nfailures;
175 }
176
177 void
178 srunner_free(SRunner *runner)
179 {
180     free(runner->suite);
181     free(runner);
182 }