projects
/
fleet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#expect 42
#expect 46
-#ship alu : Alu2
+#ship alu : Alu
#ship debug : Debug
#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;
tail;
-alu.in1: literal 2;
- load repeat counter with 4;
+alu.in1: set word= 2;
+ set ilc=4;
deliver;
deliver;
- load loop counter with 2;
- [L] take, deliver;
- [L] discard, deliver;
+ set olc=2;
+ head;
+ [Rq] recv, deliver;
+ [Rq] recv nothing, deliver;
tail;
tail;