projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
change build machine, use /usr/bin/tclsh instead of /usr/bin/tcl
[fleet.git]
/
tests
/
flags
/
signal-0-from-inbox-to-outbox.test.test
1
// expected output
2
#expect 0
3
4
#ship debug : Debug
5
#ship fifo : Fifo
6
7
debug.in:
8
send token to fifo.out:0;
9
set ilc=*; recv, deliver;
10
11
fifo.out:
12
set word= 2;
13
set ilc=1;
14
recv token;
15
set flags a=c, b=b;
16
[a] set word= 1;
17
[!a] set word= 0;
18
send to debug.in;
19
20