a92504c08f1498de7da26d053b5252634f536882
[mes.git] / scaffold / tests / t.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21
22 int puts (char const*);
23 #include <string.h>
24 char global_arena[10];
25 int global_i = 1;
26 int global_unitialized;
27 char* global_string = "foo";
28 char global_array[8] = "XXX";
29 char *global_chars = global_array;
30 typedef int SCM;
31 enum type_t {TCHAR};
32 char *env[] = {"foo", "bar", "baz", 0};
33 char *list[2] = {"foo\n", "bar\n"};
34
35 struct foo {int length; char* string;};
36 struct foo g_f = {3, "foo"};
37 struct foo *g_g = &g_f;
38 struct foo g_foes[2];
39 int g_foe;
40
41 struct anon {struct {int bar; int baz;};};
42 struct anion {union {int foo; int bar;}; union {int baz; int bla;};};
43
44 struct here {int and;} there;
45
46 typedef int int_array_t[1];
47 int_array_t bar;
48
49 typedef struct foo *foo_pointer_t;
50 foo_pointer_t foep;
51
52 int
53 test (struct foo* p)
54 {
55   struct foo *g = &g_f;
56   g[0].length = 0;
57   p[0].length = 0;
58 }
59
60 int
61 next_main (int argc, char* argv[])
62 {
63   return 0;
64 }
65
66 int
67 main (int argc, char* argv[])
68 {
69   int i;
70   int j = 1;
71   int k, l = 1;
72   if (j != 1)
73     return 1;
74   if (l != 1)
75     return 2;
76   if (global_i != 1)
77     return 3;
78   global_arena[1] = 0;
79   if (global_i != 1)
80     return 4;
81   if (global_unitialized != 0)
82     return 5;
83   if (strcmp (global_string, "foo"))
84     return 6;
85   char *s = "bar";
86   if (strcmp (s, "bar"))
87     return 7;
88   if (*global_array != 'X')
89     return 8;
90   if (*global_chars != 'X')
91     return 9;
92   SCM x = 0;
93   if (x != 0)
94     return 9;
95   if (TCHAR != 0)
96     return 11;
97   if (strncmp (argv[0], "scaffold/test", 5))
98     return 12;
99   if (strcmp (env[0], "foo"))
100     return 13;
101   if (strcmp (env[2], "baz"))
102     return 14;
103   if (env[3])
104     return 15;
105   if (g_f.length != 3)
106     return 16;
107   if (strcmp (g_f.string, "foo"))
108     return 17;
109   struct foo g = {4, "baar"};
110   if (g.length != 4)
111     return 18;
112   if (strcmp (g.string, "baar"))
113     return 19;
114   struct foo f = {3, "foo"};
115   g_foes[0] = f;
116   g_foes[1] = f;
117   if (g_foe)
118     return 20;
119   char *strings[] = { "one\n", "two\n", "three\n", 0 };
120   char **p = strings;
121   while (*p) puts (*p++);
122   if (strcmp (strings[1], "two\n"))
123     return 21;
124   p = list;
125   struct anon a = {3,4};
126   eputs ("bar:"); eputs (itoa (a.bar)); eputs ("\n");
127   eputs ("baz:"); eputs (itoa (a.baz)); eputs ("\n");
128   if (a.bar != 3) return 22;
129   if (a.baz != 4) return 23;
130
131   struct anion u = {3, 4};
132   eputs ("u.foo:"); eputs (itoa (u.foo)); eputs ("\n");
133   eputs ("u.bla:"); eputs (itoa (u.bla)); eputs ("\n");
134   if (u.foo != 3) return 24;
135   if (u.bla != 4) return 25;
136
137   char buf[sizeof (g_f.string)];
138   char buf1[sizeof (g_g->string)];
139
140   int (*fun)(int, char **);
141   fun = &next_main;
142   //i = (*fun)(argc, argv);
143
144   int (*fun2)(int, char *[]);
145   fun2 = &next_main;
146   //i = (*fun2)(argc, argv);
147
148   i = 1;
149   int lst[6] = {-1, 1 - 1, i, 2, 3};
150   for (int i = 0; i < 4; i++)
151     {
152       puts ("i: "); puts (itoa (lst[i])); puts ("\n");
153       if (lst[i+1] != i)
154         return 30 + i;
155     }
156
157   return 0;
158 }