repositories
/
clean-tests.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tsets
[clean-tests.git]
/
tcp
/
test.icl
diff --git
a/tcp/test.icl
b/tcp/test.icl
index
e5f494e
..
edfea7a
100644
(file)
--- a/
tcp/test.icl
+++ b/
tcp/test.icl
@@
-4,7
+4,7
@@
import iTasks
import StdMisc,StdDebug
import Data.Maybe
import StdMisc,StdDebug
import Data.Maybe
-Start w =
startEngine t
w
+Start w =
doTasks (onStartup t)
w
t = withShared () \channels->
tcpconnect "localhost" 8123 channels
t = withShared () \channels->
tcpconnect "localhost" 8123 channels
@@
-14,12
+14,12
@@
t = withShared () \channels->
onShareChange=onShareChange,
onDisconnect=onDisconnect}
where
onShareChange=onShareChange,
onDisconnect=onDisconnect}
where
- onConnect acc ()
- | not (trace_tn
"onConnect"
) = undef
+ onConnect
cid
acc ()
+ | not (trace_tn
("onConnect: " +++ toString cid)
) = undef
= (Ok "", Nothing, [], False)
onData newdata acc ()
= (Ok "", Nothing, [], False)
onData newdata acc ()
- | not (trace_tn
"onData"
) = undef
+ | not (trace_tn
("onData: " +++ newdata)
) = undef
= (Ok "", Nothing, [], False)
onShareChange acc ()
= (Ok "", Nothing, [], False)
onShareChange acc ()