branch: externals/websocket
commit fa751be5b7d09b1ae5b3b5be1ea36a0491c2617f
Author: Andrew Hyatt <ahy...@gmail.com>
Commit: Andrew Hyatt <ahy...@gmail.com>
Add new test for correct websocket frame encoding.
The test is designed to reproduce the issue in
https://github.com/ahyatt/emacs-websocket/issues/58.
---
websocket-test.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/websocket-test.el b/websocket-test.el
index 38119693f1..f6a9c25ffa 100644
--- a/websocket-test.el
+++ b/websocket-test.el
@@ -197,6 +197,20 @@
(ert-deftest websocket-mask-is-unibyte ()
(should-not (multibyte-string-p (websocket-mask "\344\275\240\345\245\275"
"abcdef"))))
+(ert-deftest websocket-frame-correctly-encoded ()
+ ;; This example comes from
https://github.com/ahyatt/emacs-websocket/issues/58.
+ (cl-letf ((text
"{\"parent_header\":{},\"header\":{\"msg_id\":\"a2940bc8-619e-4872-97bd-4c8d6fb93017\",\"msg_type\":\"history_request\",\"version\":\"5.3\",\"username\":\"n\",\"session\":\"409cf442-74ba-462f-8183-6652503005af\",\"date\":\"2019-06-20T02:17:43.925049-0500\"},\"content\":{\"output\":false,\"raw\":false,\"hist_access_type\":\"tail\",\"n\":100},\"metadata\":{},\"buffers\":[],\"channel\":\"shell\"}")
+ ((symbol-function #'websocket-genbytes)
+ (lambda (&rest _) "\10\206\356\224")))
+ (let ((frame (websocket-read-frame
+ (websocket-encode-frame
+ (make-websocket-frame :opcode 'text
+ :payload (encode-coding-string text
'raw-text)
+ :completep t)
+ t))))
+ (should frame)
+ (should (equal (websocket-frame-payload frame) text)))))
+
(ert-deftest websocket-create-headers ()
(let ((base-headers (concat "Host: www.example.com\r\n"
"Upgrade: websocket\r\n"
