godpt

[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
 
-Start w = startEngine t w
+Start w = doTasks (onStartup t) w
 
 t = withShared () \channels->
        tcpconnect "localhost" 8123 channels
@@ -14,12 +14,12 @@ t = withShared () \channels->
                        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 ()
-                       | not (trace_tn "onData") = undef
+                       | not (trace_tn ("onData: " +++ newdata)) = undef
                        = (Ok "", Nothing, [], False)
                
                onShareChange acc ()