projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fa85061a5843ed9cefdb2f081223c43607b89a92
[fleet.git]
/
tests
/
pump
/
test-massacre.fleet
1
#expect 7
2
#expect 7
3
#expect 7
4
#expect 7
5
#expect 9
6
7
#ship debug : Debug
8
#ship memory : Memory
9
#ship fifo : Fifo
10
11
debug.in:
12
load repeat counter with 3;
13
take, deliver, notify fifo.in;
14
[*] take, deliver;
15
16
fifo.out:
17
load repeat counter with 4;
18
take, sendto debug.in;
19
notify memory.inCBD;
20
take, sendto debug.in;
21
22
fifo.in:
23
literal 7;
24
deliver;
25
load repeat counter with *;
26
discard, deliver;
27
28
memory.inCBD:
29
take;
30
literal {
31
fifo.in:
32
massacre;
33
nop;
34
literal 9;
35
deliver;
36
}; deliver;
37
38
39