fp

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

diff --git a/tcp/test.icl b/tcp/test.icl
index 29a4b71..e5f494e 100644 (file)
--- a/tcp/test.icl
+++ b/tcp/test.icl
@@ -7,8 +7,7 @@ import Data.Maybe
 Start w = startEngine t w
 
 t = withShared () \channels->
-       forever (chooseAction [(Action "Set", ())] >>- \_->set () channels)
-       ||- tcpconnect "localhost" 8123 channels
+       tcpconnect "localhost" 8123 channels
                {ConnectionHandlers|
                        onConnect=onConnect,
                        onData=onData,