add flags tests
authoradam <adam@megacz.com>
Tue, 12 Feb 2008 04:27:13 +0000 (05:27 +0100)
committeradam <adam@megacz.com>
Tue, 12 Feb 2008 04:27:13 +0000 (05:27 +0100)
tests/flags/basic.test [new file with mode: 0644]
tests/flags/flags-ab.test [new file with mode: 0644]
tests/flags/flags-z.test [new file with mode: 0644]

diff --git a/tests/flags/basic.test b/tests/flags/basic.test
new file mode 100644 (file)
index 0000000..8c2b5d9
--- /dev/null
@@ -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 (file)
index 0000000..168f737
--- /dev/null
@@ -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 (file)
index 0000000..1a03f9c
--- /dev/null
@@ -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;