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

diff --git a/tcp/test.icl b/tcp/test.icl
deleted file mode 100644
index e5f494e..0000000
--- a/tcp/test.icl
+++ /dev/null
@@ -1,31 +0,0 @@
-module test
-
-import iTasks
-import StdMisc,StdDebug
-import Data.Maybe
-
-Start w = startEngine t w
-
-t = withShared () \channels->
-	tcpconnect "localhost" 8123 channels
-		{ConnectionHandlers|
-			onConnect=onConnect,
-			onData=onData,
-			onShareChange=onShareChange,
-			onDisconnect=onDisconnect}
-	where
-		onConnect acc ()
-			| not (trace_tn "onConnect") = undef
-			= (Ok "", Nothing, [], False)
-
-		onData newdata acc ()
-			| not (trace_tn "onData") = undef
-			= (Ok "", Nothing, [], False)
-		
-		onShareChange acc ()
-			| not (trace_tn "onShareChange") = undef
-			= (Ok "", Nothing, [], False)
-
-		onDisconnect _ ()
-			| not (trace_tn "onDisconnect") = undef
-			= (Ok "", Nothing)