branch: externals/websocket
commit ef975a91f16a181ca9e5684e0cbe9d338c53a240
Author: Andrew Hyatt <[email protected]>
Commit: Andrew Hyatt <[email protected]>
Restore a bit of testing I accidentally deleted.
---
websocket-test.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/websocket-test.el b/websocket-test.el
index 36e27025f1..e51d440069 100644
--- a/websocket-test.el
+++ b/websocket-test.el
@@ -286,6 +286,14 @@
websocket-test-hello
(websocket-encode-frame
(make-websocket-frame :opcode 'text :payload "Hello" :completep
t) nil)))
+ (dolist (len '(200 70000))
+ (let ((long-string (make-string len ?x)))
+ (should (equal long-string
+ (websocket-frame-payload
+ (websocket-read-frame
+ (websocket-encode-frame
+ (make-websocket-frame :opcode 'text
+ :payload long-string) t)))))))
(flet ((websocket-genbytes (n) (substring websocket-test-masked-hello 2 6)))
(should (equal websocket-test-masked-hello
(websocket-encode-frame
