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 (file)
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;
+