update to 03-Jan-2009 am33: head, abort, and d-flag

[fleet.git] / tests / requeue / test-requeue.fleet

diff --git a/tests/requeue/test-requeue.fleet b/tests/requeue/test-requeue.fleet
index 154f7a0..5d0c12a 100644 (file)
--- a/tests/requeue/test-requeue.fleet
+++ b/tests/requeue/test-requeue.fleet
@@ -40,29 +40,30 @@
 #expect 42
 #expect 46
 
-#ship alu   : Alu2
+#ship alu   : Alu
 #ship debug : Debug
 
-// this test is bogus to begin with; doesn't have proper flow control
+alu.inOp:  set word=Alu.inOp[ADD];
+           set ilc=*;  deliver;
 
-alu.inOp:  literal Alu2.inOp[ADD];
-           [*] deliver;
+debug.in:  set ilc=41;  recv, deliver, send token to alu.out;
 
-debug.in:  [*] take, deliver;
+alu.in2:   set word= 4;
+           set ilc=*;  deliver;
 
-alu.in2:   literal 4;
-           [*] deliver;
-
-alu.out:   load loop counter with 40;
-           [L] take, sendto alu.in1;
-           [L] sendto debug.in;
+alu.out:   set olc=40;
+           head;
+           [Rq] collect, send to alu.in1;
+           [Rq] send to debug.in;
+           [Rq] recv token;
            tail;
 
-alu.in1:   literal 2;
-           load repeat counter with 4;
+alu.in1:   set word= 2;
+           set ilc=4;
            deliver;
-           load loop counter with 2;
-           [L] take, deliver;
-           [L] discard, deliver;
+           set olc=2;
+           head;
+           [Rq] recv, deliver;
+           [Rq] recv nothing, deliver;
            tail;