Skip to content
Browse files

Add test websocket-genbytes-length

This test fails in Emacs 24.1.50.1.
  • Loading branch information...
1 parent 9d8794a commit 45245a4699b527e06e36e9b21c2234d458d9461b @tkf tkf committed May 7, 2012
Showing with 5 additions and 0 deletions.
  1. +5 −0 websocket-test.el
View
5 websocket-test.el
@@ -40,6 +40,10 @@
(websocket-outer-filter websocket output))
(nreverse packet-data)))
+(ert-deftest websocket-genbytes-length ()
+ (loop repeat 100
+ do (should (= (string-bytes (websocket-genbytes)) 8))))
+
(ert-deftest websocket-filter-basic ()
(should (equal
'("foo")
@@ -73,6 +77,7 @@
(websocket-test-get-filtered-response
'("HTTP 1.1" "\0foo\377")))))
+(ert-run-tests-interactively 'websocket-genbytes-length)
(ert-run-tests-interactively 'websocket-filter-basic)
(ert-run-tests-interactively 'websocket-filter-inflight-packets)
(ert-run-tests-interactively 'websocket-filter-first-response)

0 comments on commit 45245a4

Please sign in to comment.
Something went wrong with that request. Please try again.