update to new AM37 syntax

[fleet.git] / tests / dock / test-use-loop-counter.fleet

diff --git a/tests/dock/test-use-loop-counter.fleet b/tests/dock/test-use-loop-counter.fleet
new file mode 100644 (file)
index 0000000..46e112e
--- /dev/null
+++ b/tests/dock/test-use-loop-counter.fleet
@@ -0,0 +1,43 @@
+#skip
+#expect 5
+#expect 7
+#expect 5
+#expect 7
+#expect 5
+#expect 7
+#expect 9
+
+#ship memory       : Memory
+#ship debug        : Debug
+#ship fifo         : Fifo
+#ship fifo2        : Fifo
+
+debug.in: set ilc=*;  recv, deliver;
+
+fifo.out: set ilc=*;  collect, send to debug.in;
+
+fifo.in:
+  set olc=2;
+  [Rq] nop;
+  [Rq] set word= 5;
+  [Rq] deliver;
+  [Rq] send token to memory.inCBD;
+  [Rq] recv, deliver;
+  [Rq] set olc--;
+  tail;
+
+fifo2.out:
+  set word= 7;
+  set ilc=4;
+  send to fifo.in;
+
+memory.inCBD: set word= {
+    fifo.in:
+       set word= 9;
+       deliver;
+  };
+  recv nothing;
+  recv nothing;
+  recv nothing;
+  deliver;
+