X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=tcp%2Ftest.icl;h=e5f494e2e30b453dd01c4ecd1dd34e360bf0b3ab;hb=1eb7ba9a34eacb68c762bd9f7f81865cf37ecb0b;hp=29a4b712d104635616413edba1831b5f64d59830;hpb=938d3406c1e406db293024b9a5710579a0090893;p=clean-tests.git

diff --git a/tcp/test.icl b/tcp/test.icl
index 29a4b71..e5f494e 100644
--- 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,