[bcl] Fix a few hardcoded socket ports in tests (#5471)
[mono-project.git] / mono / eglib / test / test.c
blob7c870e9c7665a3a074cf4763ca3ed33271b90716
1 /*
2 * EGLib Unit Group/Test Runners
4 * Author:
5 * Aaron Bockover (abockover@novell.com)
7 * (C) 2006 Novell, Inc.
9 * Permission is hereby granted, free of charge, to any person obtaining
10 * a copy of this software and associated documentation files (the
11 * "Software"), to deal in the Software without restriction, including
12 * without limitation the rights to use, copy, modify, merge, publish,
13 * distribute, sublicense, and/or sell copies of the Software, and to
14 * permit persons to whom the Software is furnished to do so, subject to
15 * the following conditions:
17 * The above copyright notice and this permission notice shall be
18 * included in all copies or substantial portions of the Software.
20 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24 * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25 * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
29 #ifndef _GNU_SOURCE
30 #define _GNU_SOURCE
31 #endif
33 #include <config.h>
34 #include <stdlib.h>
35 #include <stdio.h>
36 #include <string.h>
37 #include <stdarg.h>
38 #include <glib.h>
39 #ifdef HAVE_SYS_TIME_H
40 #include <sys/time.h>
41 #endif
42 #ifdef G_OS_WIN32
43 #include <winsock2.h>
44 #endif
46 #include "test.h"
48 extern gint global_passed, global_tests;
49 static gchar *last_result = NULL;
51 gboolean
52 run_test(Test *test, gchar **result_out)
54 gchar *result;
56 if((result = test->handler()) == NULL) {
57 *result_out = NULL;
58 return TRUE;
59 } else {
60 *result_out = result;
61 return FALSE;
65 gboolean
66 run_group(Group *group, gint iterations, gboolean quiet,
67 gboolean time, gchar *tests_to_run_s)
69 Test *tests = group->handler();
70 gint i, j, passed = 0, total = 0;
71 gdouble start_time_group, start_time_test;
72 gchar **tests_to_run = NULL;
74 if(!quiet) {
75 if(iterations > 1) {
76 printf("[%s] (%dx)\n", group->name, iterations);
77 } else {
78 printf("[%s]\n", group->name);
82 if(tests_to_run_s != NULL) {
83 tests_to_run = eg_strsplit(tests_to_run_s, ",", -1);
86 start_time_group = get_timestamp();
88 for(i = 0; tests[i].name != NULL; i++) {
89 gchar *result = "";
90 gboolean iter_pass, run;
92 iter_pass = FALSE;
93 if(tests_to_run != NULL) {
94 gint j;
95 run = FALSE;
96 for(j = 0; tests_to_run[j] != NULL; j++) {
97 if(strcmp(tests_to_run[j], tests[i].name) == 0) {
98 run = TRUE;
99 break;
102 } else {
103 run = TRUE;
106 if(!run) {
107 continue;
110 total++;
112 if(!quiet) {
113 printf(" %s: ", tests[i].name);
116 start_time_test = get_timestamp();
118 for(j = 0; j < iterations; j++) {
119 iter_pass = run_test(&(tests[i]), &result);
120 if(!iter_pass) {
121 break;
125 if(iter_pass) {
126 passed++;
127 if(!quiet) {
128 if(time) {
129 printf("OK (%g)\n", get_timestamp() - start_time_test);
130 } else {
131 printf("OK\n");
134 } else {
135 if(!quiet) {
136 printf("FAILED (%s)\n", result);
139 if(last_result == result) {
140 last_result = NULL;
141 g_free(result);
146 global_passed += passed;
147 global_tests += total;
149 if(!quiet) {
150 gdouble pass_percentage = ((gdouble)passed / (gdouble)total) * 100.0;
151 if(time) {
152 printf(" %d / %d (%g%%, %g)\n", passed, total,
153 pass_percentage, get_timestamp() - start_time_group);
154 } else {
155 printf(" %d / %d (%g%%)\n", passed, total, pass_percentage);
159 if(tests_to_run != NULL) {
160 eg_strfreev(tests_to_run);
163 return passed == total;
166 RESULT
167 FAILED(const gchar *format, ...)
169 gchar *ret;
170 va_list args;
171 gint n;
173 #if !defined(HAVE_VASPRINTF) && !defined(_EGLIB_MAJOR)
174 /* We are linked against the real glib, no vasprintf */
175 g_assert_not_reached ();
176 return NULL;
177 #else
178 va_start(args, format);
179 n = g_vasprintf(&ret, format, args);
180 va_end(args);
182 if(n == -1) {
183 last_result = NULL;
184 return NULL;
187 last_result = ret;
188 return ret;
189 #endif
192 gdouble
193 get_timestamp()
195 /* FIXME: We should use g_get_current_time here */
196 GTimeVal res;
197 g_get_current_time (&res);
198 return res.tv_sec + (1.e-6) * res.tv_usec;
202 * Duplicating code here from EGlib to avoid g_strsplit skew between
203 * EGLib and GLib
206 gchar **
207 eg_strsplit (const gchar *string, const gchar *delimiter, gint max_tokens)
209 gchar *string_c;
210 gchar *strtok_save, **vector;
211 gchar *token, *token_c;
212 gint size = 1;
213 size_t token_length;
215 g_return_val_if_fail(string != NULL, NULL);
216 g_return_val_if_fail(delimiter != NULL, NULL);
217 g_return_val_if_fail(delimiter[0] != 0, NULL);
219 token_length = strlen(string);
220 string_c = (gchar *)g_malloc(token_length + 1);
221 memcpy(string_c, string, token_length);
222 string_c[token_length] = 0;
224 vector = NULL;
225 token = (gchar *)strtok_r(string_c, delimiter, &strtok_save);
227 while(token != NULL) {
228 token_length = strlen(token);
229 token_c = (gchar *)g_malloc(token_length + 1);
230 memcpy(token_c, token, token_length);
231 token_c[token_length] = 0;
233 vector = vector == NULL ?
234 (gchar **)g_malloc(2 * sizeof(vector)) :
235 (gchar **)g_realloc(vector, (size + 1) * sizeof(vector));
237 vector[size - 1] = token_c;
238 size++;
240 if(max_tokens > 0 && size >= max_tokens) {
241 if(size > max_tokens) {
242 break;
245 token = strtok_save;
246 } else {
247 token = (gchar *)strtok_r(NULL, delimiter, &strtok_save);
251 if(vector != NULL && size > 0) {
252 vector[size - 1] = NULL;
255 g_free(string_c);
256 string_c = NULL;
258 return vector;
261 void
262 eg_strfreev (gchar **str_array)
264 gchar **orig = str_array;
265 if (str_array == NULL)
266 return;
267 while (*str_array != NULL){
268 g_free (*str_array);
269 str_array++;
271 g_free (orig);