Mercurial > pub > dyncall > dyncall
annotate test/call_suite/main.c @ 410:7608e34098b0
- cleanups, simplifications, some api clarification, ...
- test cases consistency:
* return status code depending on test results (for actual conformance tests, not stuff that is not an example or hack to check something, ..)
* platform init helper added for some
author | Tassilo Philipp |
---|---|
date | Tue, 05 Oct 2021 21:53:04 +0200 |
parents | f5577f6bf97a |
children | 2b708397bba1 |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: test | |
5 File: test/call_suite/main.c | |
6 Description: | |
7 License: | |
8 | |
281 | 9 Copyright (c) 2011-2018 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 #include "dyncall.h" | |
27 #include "globals.h" | |
28 #include <string.h> | |
29 #include "../common/platformInit.h" | |
30 #include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */ | |
31 | |
32 | |
33 char linebuf[1024]; | |
34 void* G_callvm; | |
35 | |
36 int run_test(int i) { | |
37 char const * sig; | |
38 void * target; | |
39 int success; | |
40 sig = G_sigtab[i]; | |
41 target = (void*) G_funtab[i]; | |
42 printf("%d:%s:",i,sig); | |
43 success = invoke(sig,target); | |
44 printf("%d\n",success); | |
45 return success; | |
46 } | |
47 | |
48 int run_all() { | |
49 int i; | |
50 int failure = 0; | |
51 for(i=0;i<G_ncases;++i) { | |
52 failure |= !( run_test(i) ); | |
53 } | |
54 return !failure; | |
55 } | |
56 | |
57 int main(int argc, char* argv[]) | |
58 { | |
59 int total; | |
60 | |
61 dcTest_initPlatform(); | |
62 | |
63 init_K(G_maxargs); | |
64 G_callvm = (DCCallVM*) dcNewCallVM(4096); | |
65 dcReset(G_callvm); | |
66 total = run_all(); | |
67 printf("result: call_suite: %d\n", total); | |
68 | |
69 dcTest_deInitPlatform(); | |
70 | |
410
7608e34098b0
- cleanups, simplifications, some api clarification, ...
Tassilo Philipp
parents:
281
diff
changeset
|
71 return !total; |
0 | 72 } |
73 |