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