Mercurial > pub > dyncall > dyncall
annotate test/plain/test_main.c @ 504:f263eb7a206e
- call_suite: made output more consistent with dyncall sig style
author | Tassilo Philipp |
---|---|
date | Fri, 08 Apr 2022 20:33:14 +0200 |
parents | da4b267c10bf |
children | f6430d194be6 |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: test | |
5 File: test/plain/test_main.c | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
6 Description: |
0 | 7 License: |
8 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
9 Copyright (c) 2007-2019 Daniel Adler <dadler@uni-goettingen.de>, |
0 | 10 Tassilo Philipp <tphilipp@potion-studios.com> |
11 | |
12 Permission to use, copy, modify, and distribute this software for any | |
13 purpose with or without fee is hereby granted, provided that the above | |
14 copyright notice and this permission notice appear in all copies. | |
15 | |
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
23 | |
24 */ | |
25 | |
26 | |
27 | |
28 | |
29 #include "../../dyncall/dyncall.h" | |
30 #include "../common/platformInit.h" | |
31 #include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */ | |
32 | |
33 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
34 /* ------------------------------------------------------------------------- |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
35 * test: identity function calls |
0 | 36 * ------------------------------------------------------------------------- */ |
37 | |
38 #define DEF_FUNCS(API,NAME) \ | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
39 void API fun_##NAME##_v() { g_void_testval = 1; } \ |
0 | 40 DCbool API fun_##NAME##_b(DCbool x) { return x; } \ |
41 DCint API fun_##NAME##_i(DCint x) { return x; } \ | |
42 DClong API fun_##NAME##_j(DClong x) { return x; } \ | |
43 DClonglong API fun_##NAME##_l(DClonglong x) { return x; } \ | |
44 DCfloat API fun_##NAME##_f(DCfloat x) { return x; } \ | |
45 DCdouble API fun_##NAME##_d(DCdouble x) { return x; } \ | |
46 DCpointer API fun_##NAME##_p(DCpointer x) { return x; } | |
47 | |
48 /* __cdecl */ | |
49 | |
50 #if !defined(DC__OS_Win32) | |
51 # define __cdecl | |
52 #endif | |
53 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
54 int g_void_testval; |
0 | 55 DEF_FUNCS(__cdecl,c) |
56 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
57 int testCallC() |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
58 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
59 int ret = 1; |
0 | 60 |
61 DCCallVM* pc = dcNewCallVM(4096); | |
62 dcMode(pc,DC_CALL_C_DEFAULT); | |
63 /* void */ | |
64 dcReset(pc); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
65 g_void_testval = 0; |
0 | 66 dcCallVoid(pc, (DCpointer) &fun_c_v); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
67 ret = g_void_testval && ret; |
0 | 68 /* bool */ |
69 { | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
70 DCbool r, val=DC_TRUE; |
0 | 71 dcReset(pc); |
72 dcArgBool(pc, val); | |
73 r = dcCallBool(pc, (DCpointer) &fun_c_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
74 printf("bt (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
75 ret = (r == val) && ret; |
0 | 76 |
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
77 val=DC_FALSE; |
0 | 78 dcReset(pc); |
79 dcArgBool(pc, val); | |
80 r = dcCallBool(pc, (DCpointer) &fun_c_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
81 printf("bf (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
82 ret = (r == val) && ret; |
0 | 83 } |
84 /* int */ | |
85 { | |
86 DCint r, val=1234; | |
87 dcReset(pc); | |
88 dcArgInt(pc, val); | |
89 r = dcCallInt(pc, (DCpointer) &fun_c_i); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
90 printf("i (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
91 ret = (r == val) && ret; |
0 | 92 } |
93 /* long */ | |
94 { | |
95 DClong r, val=(DClong) 0xCAFEBABEL; | |
96 dcReset(pc); | |
97 dcArgLong(pc, val); | |
98 r = dcCallLong(pc, (DCpointer) &fun_c_j); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
99 printf("l (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
100 ret = (r == val) && ret; |
0 | 101 } |
102 /* long long */ | |
103 { | |
104 DClonglong r, val=(DClonglong) 0xCAFEBABEDEADC0DELL; | |
105 dcReset(pc); | |
106 dcArgLongLong(pc, val); | |
107 r = dcCallLongLong(pc, (DCpointer) &fun_c_l); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
108 printf("ll (cdecl): %d\n", (r == (DClonglong)val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
109 ret = (r == (DClonglong)val) && ret; |
0 | 110 } |
111 /* float */ | |
112 { | |
113 DCfloat r, val=1.234567f; | |
114 dcReset(pc); | |
115 dcArgFloat(pc, val); | |
116 r = dcCallFloat(pc, (DCpointer) &fun_c_f); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
117 printf("f (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
118 ret = (r == val) && ret; |
0 | 119 } |
120 /* double */ | |
121 { | |
122 DCdouble r, val=1.23456789; | |
123 dcReset(pc); | |
124 dcArgDouble(pc, val); | |
125 r = dcCallDouble(pc, (DCpointer) &fun_c_d); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
126 printf("d (cdecl): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
127 ret = (r == val) && ret; |
0 | 128 } |
129 /* ptr */ | |
130 { | |
131 DCpointer r; | |
132 dcReset(pc); | |
133 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
134 r = dcCallPointer(pc, (DCpointer) &fun_c_p); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
135 printf("p (cdecl): %d\n", (r == (DCpointer) &fun_c_b)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
136 ret = (r == (DCpointer) &fun_c_b) && ret; |
0 | 137 } |
138 dcFree(pc); | |
139 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
140 return ret; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
141 } |
0 | 142 |
143 | |
348 | 144 #if defined(DC__OS_Win32) |
0 | 145 /* win32 __stdcall */ |
146 | |
147 DEF_FUNCS(__stdcall,std) | |
148 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
149 int testCallStd() |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
150 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
151 int ret = 1; |
0 | 152 |
153 DCCallVM* pc = dcNewCallVM(4096); | |
154 dcMode(pc,DC_CALL_C_X86_WIN32_STD); | |
155 /* void */ | |
156 dcReset(pc); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
157 g_void_testval = 0; |
0 | 158 dcCallVoid(pc, (DCpointer) &fun_std_v); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
159 ret = g_void_testval && ret; |
0 | 160 /* bool */ |
161 { | |
162 DCbool r, val=DC_TRUE; | |
163 dcReset(pc); | |
164 dcArgBool(pc, val); | |
165 r = dcCallBool(pc, (DCpointer) &fun_std_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
166 printf("bt (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
167 ret = (r == val) && ret; |
0 | 168 |
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
169 val=DC_FALSE; |
0 | 170 dcReset(pc); |
171 dcArgBool(pc, val); | |
172 r = dcCallBool(pc, (DCpointer) &fun_std_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
173 printf("bf (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
174 ret = (r == val) && ret; |
0 | 175 } |
176 /* int */ | |
177 { | |
178 DCint r, val=1234; | |
179 dcReset(pc); | |
180 dcArgInt(pc, val); | |
181 r = dcCallInt(pc, (DCpointer) &fun_std_i); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
182 printf("i (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
183 ret = (r == val) && ret; |
0 | 184 } |
185 /* long */ | |
186 { | |
187 DClong r, val=0xCAFEBABEUL; | |
188 dcReset(pc); | |
189 dcArgLong(pc, val); | |
190 r = dcCallLong(pc, (DCpointer) &fun_std_j); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
191 printf("l (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
192 ret = (r == val) && ret; |
0 | 193 } |
194 /* long long */ | |
195 { | |
196 DClonglong r, val=0xCAFEBABEDEADC0DEULL; | |
197 dcReset(pc); | |
198 dcArgLongLong(pc, val); | |
199 r = dcCallLongLong(pc, (DCpointer) &fun_std_l); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
200 printf("ll (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
201 ret = (r == val) && ret; |
0 | 202 } |
203 /* float */ | |
204 { | |
205 DCfloat r, val=1.234567f; | |
206 dcReset(pc); | |
207 dcArgFloat(pc, val); | |
208 r = dcCallFloat(pc, (DCpointer) &fun_std_f); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
209 printf("f (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
210 ret = (r == val) && ret; |
0 | 211 } |
212 /* double */ | |
213 { | |
214 DCdouble r, val=1.23456789; | |
215 dcReset(pc); | |
216 dcArgDouble(pc, val); | |
217 r = dcCallDouble(pc, (DCpointer) &fun_std_d); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
218 printf("d (stdcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
219 ret = (r == val) && ret; |
0 | 220 } |
221 /* ptr */ | |
222 { | |
223 DCpointer r; | |
224 dcReset(pc); | |
225 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
226 r = dcCallPointer(pc, (DCpointer) &fun_std_p); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
227 printf("p (stdcall): %d\n", (r == &fun_c_b)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
228 ret = (r == &fun_c_b) && ret; |
0 | 229 } |
230 dcFree(pc); | |
231 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
232 return ret; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
233 } |
0 | 234 |
235 #endif | |
236 | |
237 | |
348 | 238 #if defined(DC__OS_Win32) |
0 | 239 /* win32 __fastcall */ |
240 | |
241 DEF_FUNCS(__fastcall,fast) | |
242 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
243 int testCallFast() |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
244 { |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
245 int ret = 1; |
0 | 246 |
247 DCCallVM* pc = dcNewCallVM(4096); | |
248 #ifdef DC__C_GNU | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
249 # define FT "GNU" |
0 | 250 dcMode(pc,DC_CALL_C_X86_WIN32_FAST_GNU); |
251 #else | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
252 # define FT "MS" |
0 | 253 dcMode(pc,DC_CALL_C_X86_WIN32_FAST_MS); |
254 #endif | |
255 /* void */ | |
256 dcReset(pc); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
257 g_void_testval = 0; |
0 | 258 dcCallVoid(pc, (DCpointer) &fun_fast_v); |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
259 ret = g_void_testval && ret; |
0 | 260 /* bool */ |
261 { | |
262 DCbool r, val=DC_TRUE; | |
263 dcReset(pc); | |
264 dcArgBool(pc, val); | |
265 r = dcCallBool(pc, (DCpointer) &fun_fast_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
266 printf("bt ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
267 ret = (r == val) && ret; |
0 | 268 |
146
0ab08c1541f0
- fixed armhf ellipsis calls, were ignoring spill area
cslag
parents:
141
diff
changeset
|
269 val=DC_FALSE; |
0 | 270 dcReset(pc); |
271 dcArgBool(pc, val); | |
272 r = dcCallBool(pc, (DCpointer) &fun_fast_b); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
273 printf("bf ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
274 ret = (r == val) && ret; |
0 | 275 } |
276 /* int */ | |
277 { | |
278 DCint r, val=1234; | |
279 dcReset(pc); | |
280 dcArgInt(pc, val); | |
281 r = dcCallInt(pc, (DCpointer) &fun_fast_i); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
282 printf("i ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
283 ret = (r == val) && ret; |
0 | 284 } |
285 /* long */ | |
286 { | |
287 DClong r, val=0xCAFEBABEUL; | |
288 dcReset(pc); | |
289 dcArgLong(pc, val); | |
290 r = dcCallLong(pc, (DCpointer) &fun_fast_j); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
291 printf("l ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
292 ret = (r == val) && ret; |
0 | 293 } |
294 /* long long */ | |
295 { | |
296 DClonglong r, val=0xCAFEBABEDEADC0DEULL; | |
297 dcReset(pc); | |
298 dcArgLongLong(pc, val); | |
299 r = dcCallLongLong(pc, (DCpointer) &fun_fast_l); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
300 printf("ll ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
301 ret = (r == val) && ret; |
0 | 302 } |
303 /* float */ | |
304 { | |
305 DCfloat r, val=1.234567f; | |
306 dcReset(pc); | |
307 dcArgFloat(pc, val); | |
308 r = dcCallFloat(pc, (DCpointer) &fun_fast_f); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
309 printf("f ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
310 ret = (r == val) && ret; |
0 | 311 } |
312 /* double */ | |
313 { | |
314 DCdouble r, val=1.23456789; | |
315 dcReset(pc); | |
316 dcArgDouble(pc, val); | |
317 r = dcCallDouble(pc, (DCpointer) &fun_fast_d); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
318 printf("d ("FT"fastcall): %d\n", (r == val)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
319 ret = (r == val) && ret; |
0 | 320 } |
321 /* ptr */ | |
322 { | |
323 DCpointer r; | |
324 dcReset(pc); | |
325 dcArgPointer(pc, (DCpointer) &fun_c_b); | |
326 r = dcCallPointer(pc, (DCpointer) &fun_fast_p); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
327 printf("p ("FT"fastcall): %d\n", (r == &fun_c_b)); |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
328 ret = (r == &fun_c_b) && ret; |
0 | 329 } |
330 dcFree(pc); | |
331 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
332 return ret; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
333 } |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
334 |
0 | 335 #endif |
336 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
337 |
0 | 338 int testCallStructs(); |
339 int testStructSizes(); | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
340 |
0 | 341 int main(int argc, char* argv[]) |
342 { | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
343 int r = 1; |
0 | 344 dcTest_initPlatform(); |
345 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
346 r = testCallC() && r; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
347 r = testStructSizes() && r; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
348 /*r = testCallStructs() && r;*/ |
0 | 349 #if defined(DC__OS_Win32) |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
350 r = testCallStd() && r; |
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
351 r = testCallFast() && r; |
0 | 352 #endif |
353 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
354 printf("result: plain: %d\n", r); |
0 | 355 |
356 dcTest_deInitPlatform(); | |
357 | |
324
dd78bd0152af
- removal of never-adopted mini-test framework stub
Tassilo Philipp
parents:
281
diff
changeset
|
358 return !r; |
0 | 359 } |
360 |