X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=tcp%2Ftest.icl;h=edfea7ada3baa0853261e04fcc299b4300f4bd9a;hb=95e99be6bdd04513688b88f1afaefac360eeff1d;hp=e5f494e2e30b453dd01c4ecd1dd34e360bf0b3ab;hpb=ec0704b3b8d380f05f93076ca16da6c5701fe4bc;p=clean-tests.git

diff --git a/tcp/test.icl b/tcp/test.icl
index e5f494e..edfea7a 100644
--- 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 ()