X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=tests%2Frequeue%2Ftest-requeue.fleet;h=5d0c12ac8a331a196ef727241cf961e9fa24c881;hb=f109c425b886206b95a5c95e726d742c0e9fe09d;hp=154f7a07834021d786b39a2bce221ff219dbe0b5;hpb=c22b0b766886590fc8f868736689df7bb4a468c1;p=fleet.git diff --git a/tests/requeue/test-requeue.fleet b/tests/requeue/test-requeue.fleet index 154f7a0..5d0c12a 100644 --- 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;