projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
update tests to remove use of [Rq] flag
[fleet.git]
/
tests
/
dock
/
one-instruction-loop.fleet
1
2
// This test case ensures that a single-instruction loop works
3
// properly. The two instructions after the tail will get "clogged"
4
// in the switch fabric until the hatch opens, but that's okay.
5
6
#ship debug : Debug
7
#ship fifo : Fifo
8
9
#expect 5
10
#expect 4
11
12
debug.in:
13
set word=5;
14
deliver;
15
set olc=4;
16
head;
17
set olc--;
18
[d] abort;
19
[d] set word=4;
20
[d] deliver;
21
tail;
22