Permalink
Browse files

Restore a bit of testing I accidentally deleted.

  • Loading branch information...
1 parent d46cacb commit ef975a91f16a181ca9e5684e0cbe9d338c53a240 @ahyatt committed Sep 16, 2013
Showing with 8 additions and 0 deletions.
  1. +8 −0 websocket-test.el
View
@@ -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

0 comments on commit ef975a9

Please sign in to comment.