From: adam <adam@megacz.com>
Date: Tue, 12 Feb 2008 04:27:13 +0000 (+0100)
Subject: add flags tests
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dfcdcdf171e7541323ae40e5234d153c56fba79f;p=fleet.git

add flags tests
---

diff --git a/tests/flags/basic.test b/tests/flags/basic.test
new file mode 100644
index 0000000..8c2b5d9
--- /dev/null
+++ b/tests/flags/basic.test
@@ -0,0 +1,11 @@
+#skip
+// expected output
+#expect 0
+
+// ships required in order to run this code
+#ship debug        : Debug
+
+debug.in:
+  setflags a=0, b=0;
+  deliver;
+
diff --git a/tests/flags/flags-ab.test b/tests/flags/flags-ab.test
new file mode 100644
index 0000000..168f737
--- /dev/null
+++ b/tests/flags/flags-ab.test
@@ -0,0 +1,33 @@
+// expected output
+#expect 1
+#expect 4
+#expect 6
+#expect 8
+#expect 9
+
+// ships required in order to run this code
+#ship debug        : Debug
+
+debug.in:
+  setflags a=1, b=0;
+  [a] literal 1;
+  [b] literal 2;
+  deliver;
+  setflags a=0, b=1;
+  [a] literal 3;
+  [b] literal 4;
+  deliver;
+  setflags a=1, b=1;
+  [a] literal 5;
+  [b] literal 6;
+  deliver;
+  setflags a=1, b=1;
+  [b] literal 7;
+  [a] literal 8;
+  deliver;
+  setflags a=0, b=0;
+  literal 9;
+  [b] literal 10;
+  [a] literal 11;
+  deliver;
+
diff --git a/tests/flags/flags-z.test b/tests/flags/flags-z.test
new file mode 100644
index 0000000..1a03f9c
--- /dev/null
+++ b/tests/flags/flags-z.test
@@ -0,0 +1,20 @@
+// expected output
+#expect 2
+#expect 2
+#expect 4
+
+// ships required in order to run this code
+#ship debug        : Debug
+
+debug.in:
+  literal 1;
+  [z] literal 2;
+  deliver;
+  clog;
+  load loop counter with 2;
+  [z] literal 3;
+  deliver;
+  load loop counter with 0;
+  [z] literal 4;
+  deliver;
+  unclog;