# HG changeset patch
# User sr
# Date 1587634015 -7200
# Node ID eeb87a767aa86c7fa29a22b3f62e3840646e65bd
# Parent  bae0da8e4dcb1ad98a1a66dff20c01d1247a1046
#FEATURE by gg
class: RegressionTests::WebSocketTest
removed: #testHelloWorld
category of: #manualCompressionTest

class: WebSocketTest
added:
	#manualCompressionTest
	#testHelloWorld
changed: #testCommunication100

diff -r bae0da8e4dcb -r eeb87a767aa8 RegressionTests__WebSocketTest.st
--- a/RegressionTests__WebSocketTest.st	Fri Mar 20 13:40:36 2020 +0100
+++ b/RegressionTests__WebSocketTest.st	Thu Apr 23 11:26:55 2020 +0200
@@ -839,6 +839,38 @@
 
 !WebSocketTest methodsFor:'tests manual'!
 
+manualCompressionTest
+    "
+        ATTENTION: only the receiver supports decompression,
+        so check it manually if the received value is 'Hello World'
+
+        to let it run, rename me to start with 'test...'
+        DO NOT check in, because the test will fail
+
+        WebSocketStream verbose:true.
+        WebSocketStream verboseProtocol:true.
+
+        WebSocketStream verbose:false.
+        WebSocketStream verboseProtocol:false.
+
+        WebSocketStream maxBytesPerFrame:1024. 
+        WebSocketStream maxBytesPerFrame:nil.      
+    "
+
+    |compressedDataStream zipStream|
+
+    compressedDataStream := #[] writeStream.
+    zipStream := ZipStream writeOpenOn:compressedDataStream.
+    zipStream nextPutAll:'Hello World'.
+    zipStream close.
+
+    self 
+        communicationWithData:compressedDataStream contents    
+        doAssert:true.
+
+    "Created: / 23-04-2020 / 11:24:11 / Stefan Reise"
+!
+
 manualTestWithFirefox
     "
         self new manualTestWithFirefox