.

[clean-tests.git] / tcp / test.icl

diff --git a/tcp/test.icl b/tcp/test.icl
deleted file mode 100644 (file)
index 29a4b71..0000000
--- a/tcp/test.icl
+++ /dev/null
@@ -1,32 +0,0 @@
-module test
-
-import iTasks
-import StdMisc,StdDebug
-import Data.Maybe
-
-Start w = startEngine t w
-
-t = withShared () \channels->
-       forever (chooseAction [(Action "Set", ())] >>- \_->set () 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)