projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
835ffc02529ac0cfcec88877ef0c0e0c1cc00449
[fleet.git]
/
tests
/
stack
/
stack-test.fleet
1
#ship stack : Stack
2
#ship debug : Debug
3
4
#expect 4
5
#expect 3
6
#expect 2
7
#expect 1
8
#expect 0
9
10
stack.push: [5] take, deliver; notify stack.pop;
11
12
0: sendto stack.push;
13
1: sendto stack.push;
14
2: sendto stack.push;
15
3: sendto stack.push;
16
4: sendto stack.push;
17
18
stack.pop: wait; [*] take, sendto debug.in;
19
debug.in: [*] take, deliver;
20
21