--- a/RegressionTests__WebSocketTest.st	Wed Feb 05 13:30:34 2020 +0100
+++ b/RegressionTests__WebSocketTest.st	Wed Feb 05 13:57:17 2020 +0100
@@ -418,6 +418,60 @@
     "Created: / 17-01-2020 / 13:23:15 / Stefan Reise"
 ! !
 
+!WebSocketTest methodsFor:'release'!
+
+setUp
+    |response|   
+
+    DemoWebSocketService start
+        webSocketCreationCallback:[:newWebSocket |
+            ServerWebSocket := newWebSocket.
+        ].
+
+    OperatingSystem isUNIXlike ifTrue:[
+        "the first request, 
+         gets error response,
+         hmmm linux need some time..."
+        Delay waitForSeconds:3.
+    ].
+
+    response := HTTPInterface 
+        get:('ws://localhost:%1%2'
+            bindWith:DemoWebSocketService defaultPort
+            with:DemoWebSocketService linkName).
+
+    response isErrorResponse ifTrue:[
+        self error:'failed to connect'.
+    ]. 
+
+    ClientWebSocket := response webSocket.
+
+    "Created: / 05-02-2020 / 13:54:35 / Stefan Reise"
+!
+
+tearDown
+    |runningServer|
+
+    super tearDown.
+
+    ServerWebSocket notNil ifTrue:[
+        ServerWebSocket close.
+    ].
+
+    ClientWebSocket notNil ifTrue:[
+        ClientWebSocket close.
+    ].
+
+    runningServer := HTTPServer runningServerOnPort:DemoWebSocketService defaultPort.
+    runningServer isNil ifTrue:[
+        ^ self
+    ].
+
+    runningServer terminateServer.
+
+    "Created: / 05-02-2020 / 13:34:55 / Stefan Reise"
+! !
+
 !WebSocketTest methodsFor:'setup'!
 
 setupServerAndClientWebsocket
@@ -924,13 +978,13 @@
 
 defaultPort
     OperatingSystem isMSWINDOWSlike ifTrue:[
-        ^ 9096
+        ^ 9158
     ].
 
     ^ 9095
 
     "Created: / 18-11-2019 / 13:19:29 / Stefan Reise"
-    "Modified: / 23-01-2020 / 12:38:03 / Stefan Reise"
+    "Modified: / 05-02-2020 / 13:48:39 / Stefan Reise"
 !
 
 linkName