From: adam <adam@megacz.com>
Date: Sun, 7 Sep 2008 03:10:59 +0000 (+0100)
Subject: add predicate-olc-equals-zero test
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6bb1cff9aaeba02bb2e86aee0bdab7af777799ea;p=fleet.git

add predicate-olc-equals-zero test
---

diff --git a/tests/dock/predicate-olc-equals-zero.fleet b/tests/dock/predicate-olc-equals-zero.fleet
new file mode 100644
index 0000000..9753aca
--- /dev/null
+++ b/tests/dock/predicate-olc-equals-zero.fleet
@@ -0,0 +1,17 @@
+#expect 5
+#expect 5
+#expect 5
+#expect 4
+
+#ship debug : Debug
+
+debug.in:
+  set word=5;
+  set flags a=0, b=0;
+  set olc=3;
+  [Rq] [olc=0] set word=4;
+  [Rq] [olc=0] deliver;
+  [Rq] deliver;
+  [Rq] set olc--;
+  tail;
+