mescc: Tinycc support: Anonymous union initialization.
[mes.git] / scaffold / tests / t.c
index a94794002ff27db0d8d249f4274327be3803765b..b7181f97a6555d432799d20334b7fe8f2f1379d8 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * Mes --- Maxwell Equations of Software
- * Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of Mes.
  *
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
-#include "30-test.i"
 
-char g_arena[4] = "XXX";
-char *g_chars = g_arena;
+int puts (char const*);
+#include <string.h>
+char global_arena[10];
+int global_i = 1;
+int global_unitialized;
+char* global_string = "foo";
+char global_array[8] = "XXX";
+char *global_chars = global_array;
+typedef int SCM;
+enum type_t {TCHAR};
+char *env[] = {"foo", "bar", "baz", 0};
+char *list[2] = {"foo\n", "bar\n"};
+
+struct foo {int length; char* string;};
+struct foo f = {3, "foo"};
+struct foo g_foes[2];
+int g_foe;
+
+struct anon {struct {int bar; int baz;};};
+struct anion {union {int foo; int bar;}; union {int baz; int bla;};};
+
+struct here {int and;} there;
 
 int
-test ()
+test (struct foo* p)
 {
-  puts ("X\n");
-  if (*g_chars != 'X') return 1;
-  g_arena[0] = 'A';
-  puts ("A\n");
-  if (*g_chars != 'A') return 1;
-
-  puts ("*x A\n");
-  char *x = g_arena;
-  if (*x != 'A') return 1;
-
-  puts ("*x++ A\n");
-  if (*x++ != 'A') return 1;
-
-  puts ("t: *x++ != 'C'\n");
-  *x++ = 'C';
-  if (g_chars[1] != 'C') return 1;
+  struct foo *g = &f;
+  g[0].length = 0;
+  p[0].length = 0;
+}
+
+int
+main (int argc, char* argv[])
+{
+  int i;
+  int j = 1;
+  int k, l = 1;
+  if (j != 1)
+    return 1;
+  if (l != 1)
+    return 2;
+  if (global_i != 1)
+    return 3;
+  global_arena[1] = 0;
+  if (global_i != 1)
+    return 4;
+  if (global_unitialized != 0)
+    return 5;
+  if (strcmp (global_string, "foo"))
+    return 6;
+  char *s = "bar";
+  if (strcmp (s, "bar"))
+    return 7;
+  if (*global_array != 'X')
+    return 8;
+  if (*global_chars != 'X')
+    return 9;
+  SCM x = 0;
+  if (x != 0)
+    return 9;
+  if (TCHAR != 0)
+    return 11;
+  if (strncmp (argv[0], "scaffold/test", 5))
+    return 12;
+  if (strcmp (env[0], "foo"))
+    return 13;
+  if (strcmp (env[2], "baz"))
+    return 14;
+  if (env[3])
+    return 15;
+  if (f.length != 3)
+    return 16;
+  if (strcmp (f.string, "foo"))
+    return 17;
+  struct foo g = {4, "baar"};
+  if (g.length != 4)
+    return 18;
+  if (strcmp (g.string, "baar"))
+    return 19;
+  struct foo f = {3, "foo"};
+  g_foes[0] = f;
+  g_foes[1] = f;
+  if (g_foe)
+    return 20;
+  char *strings[] = { "one\n", "two\n", "three\n", 0 };
+  char **p = strings;
+  while (*p) puts (*p++);
+  if (strcmp (strings[1], "two\n"))
+    return 21;
+  p = list;
+  struct anon a = {3,4};
+  eputs ("bar:"); eputs (itoa (a.bar)); eputs ("\n");
+  eputs ("baz:"); eputs (itoa (a.baz)); eputs ("\n");
+  if (a.bar != 3) return 22;
+  if (a.baz != 4) return 23;
+
+  struct anion u = {3, 4};
+  eputs ("u.foo:"); eputs (itoa (u.foo)); eputs ("\n");
+  eputs ("u.bla:"); eputs (itoa (u.bla)); eputs ("\n");
+  if (u.foo != 3) return 24;
+  if (u.bla != 4) return 25;
+
+  i = 1;
+  int lst[6] = {-1, 1 - 1, i, 2, 3};
+  for (int i = 0; i < 4; i++)
+    {
+      puts ("i: "); puts (itoa (lst[i])); puts ("\n");
+      if (lst[i+1] != i)
+        return 30 + i;
+    }
 
   return 0;
 }