Skip to content

Instantly share code, notes, and snippets.

@tkf
Created July 4, 2012 11:46
Show Gist options
  • Save tkf/3046935 to your computer and use it in GitHub Desktop.
Save tkf/3046935 to your computer and use it in GitHub Desktop.
Running 17 tests (2012-07-04 13:44:38+0200)
passed 1/17 websocket-calculate-accept
passed 2/17 websocket-close
passed 3/17 websocket-create-headers
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Test websocket-encode-frame backtrace:
substring("\376\356\220xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
(progn (websocket-ensure-length s payload-end) (substring s payload-
(if payloadp (progn (websocket-ensure-length s payload-end) (substri
(when payloadp (websocket-ensure-length s payload-end) (substring s
(let* ((opcode (websocket-get-opcode s)) (fin (logand 128 (websocket
(catch (quote websocket-incomplete-frame) (websocket-ensure-length s
websocket-read-frame("\376\356\220xxxxxxxxxxxxxxxxxxxxxxxxxxx
(websocket-frame-payload (websocket-read-frame (websocket-encode-fra
(list long-string (websocket-frame-payload (websocket-read-frame (we
(let ((fn-35 (function equal)) (args-36 (list long-string (websocket
(should (equal long-string (websocket-frame-payload (websocket-read-
(let ((long-string (make-string len 120))) (should (equal long-strin
(while --cl-dolist-temp-- (setq len (car --cl-dolist-temp--)) (let (
(let ((--cl-dolist-temp-- (quote (200 70000))) len) (while --cl-doli
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (quote (20
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist
(block nil (let ((--cl-dolist-temp-- (quote (200 70000))) len) (whil
(dolist (len (quote (200 70000))) (let ((long-string (make-string le
(let ((websocket-mask-frames nil)) (should (equal websocket-test-hel
(lambda nil (let ((websocket-mask-frames nil)) (should (equal websoc
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-encode-frame nil (lambda
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t (lambda (event-type &rest event-args) (ecase event-t
ert-run-tests-batch(nil)
(let ((stats (ert-run-tests-batch selector))) (kill-emacs (if (zerop
(unwind-protect (let ((stats (ert-run-tests-batch selector))) (kill-
ert-run-tests-batch-and-exit()
command-line-1(("-L" "/home/takafumi/.emacs.d/el-get/wrap-region/uti
command-line()
normal-top-level()
Test websocket-encode-frame condition:
(wrong-type-argument integerp -300647710719990.0)
FAILED 4/17 websocket-encode-frame
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: Arithmetic error
Got error from the on-message function: Arithmetic error
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: See if websocket can handle this
passed 5/17 websocket-filter-handle-error-in-filter
passed 6/17 websocket-genbytes-length
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Test websocket-get-bytes backtrace:
signal(error ("websocket-get-bytes: value too large to parse!"))
error("websocket-get-bytes: value too large to parse!")
(progn (error "websocket-get-bytes: value too large to parse!"))
(if (calc-eval (quote ("$ > $$")) (quote pred) cval most-positive-fi
(when (calc-eval (quote ("$ > $$")) (quote pred) cval most-positive-
(let* ((32-bit-parts (bindat-get-field (bindat-unpack (quote ((:val
(if (= n 8) (let* ((32-bit-parts (bindat-get-field (bindat-unpack (q
websocket-get-bytes("" 8)
(list 1 (websocket-get-bytes "" 8))
(let ((fn-580 (function equal)) (args-581 (list 1 (websocket-get-byt
(should (equal 1 (websocket-get-bytes "" 8)))
(lambda nil (should (equal 5 (websocket-get-bytes "" 1))) (should (
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-get-bytes nil (lambda nil
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t (lambda (event-type &rest event-args) (ecase event-t
ert-run-tests-batch(nil)
(let ((stats (ert-run-tests-batch selector))) (kill-emacs (if (zerop
(unwind-protect (let ((stats (ert-run-tests-batch selector))) (kill-
ert-run-tests-batch-and-exit()
command-line-1(("-L" "/home/takafumi/.emacs.d/el-get/wrap-region/uti
command-line()
normal-top-level()
Test websocket-get-bytes condition:
(error "websocket-get-bytes: value too large to parse!")
FAILED 7/17 websocket-get-bytes
passed 8/17 websocket-get-opcode
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
passed 9/17 websocket-get-payload-len
Got error from the on-open function: Ignore me!
passed 10/17 websocket-outer-filter
passed 11/17 websocket-outer-filter-bad-connection
passed 12/17 websocket-process-frame
passed 13/17 websocket-read-frame
passed 14/17 websocket-send
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Test websocket-to-bytes backtrace:
signal(ert-test-failed (((should (equal 70000 (websocket-get-bytes (
ert-fail(((should (equal 70000 (websocket-get-bytes (websocket-to-by
(if (unwind-protect (setq value-791 (apply fn-789 args-790)) (setq f
(unless (unwind-protect (setq value-791 (apply fn-789 args-790)) (se
(let (form-description-793) (unless (unwind-protect (setq value-791
(let ((value-791 (quote ert-form-evaluation-aborted-792))) (let (for
(let ((fn-789 (function equal)) (args-790 (list 70000 (websocket-get
(should (equal 70000 (websocket-get-bytes (websocket-to-bytes 70000
(lambda nil (should (equal 30 (websocket-get-bytes (websocket-to-byt
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-to-bytes nil (lambda nil
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t (lambda (event-type &rest event-args) (ecase event-t
ert-run-tests-batch(nil)
(let ((stats (ert-run-tests-batch selector))) (kill-emacs (if (zerop
(unwind-protect (let ((stats (ert-run-tests-batch selector))) (kill-
ert-run-tests-batch-and-exit()
command-line-1(("-L" "/home/takafumi/.emacs.d/el-get/wrap-region/uti
command-line()
normal-top-level()
Test websocket-to-bytes condition:
(ert-test-failed
((should
(equal 70000
(websocket-get-bytes ... 8)))
:form
(equal 70000 -300647710720000.0)
:value nil :explanation
(different-types 70000 -300647710720000.0)))
FAILED 15/17 websocket-to-bytes
passed 16/17 websocket-verify-headers
passed 17/17 websocket-verify-response-code
Ran 17 tests, 14 results as expected, 3 unexpected (2012-07-04 13:44:38+0200)
3 unexpected results:
FAILED websocket-encode-frame
FAILED websocket-get-bytes
FAILED websocket-to-bytes
Running 17 tests (2012-07-04 13:45:18+0200)
passed 1/17 websocket-calculate-accept
passed 2/17 websocket-close
passed 3/17 websocket-create-headers
Test websocket-encode-frame backtrace:
lsh(1.6298145055770874e-05 -16)
bindat--pack-u32(1.6298145055770874e-05)
bindat--pack-item(1.6298145055770874e-05 u32 1 nil)
bindat--pack-item([1.6298145055770874e-05 70000.0] vec 2 u32)
bindat--pack-group(((:val . [1.6298145055770874e-05 70000.0])) ((:va
bindat-pack(((:val vec 2 u32)) ((:val . [1.6298145055770874e-05 7000
(if (= nbytes 8) (bindat-pack (\` ((:val vec 2 u32))) (\` ((:val . [
websocket-to-bytes(70000 8)
(append (websocket-to-bytes (length payload) (cond ((< (length paylo
(progn (append (websocket-to-bytes (length payload) (cond ((< (lengt
(if (and payloadp (>= (length payload) 126)) (progn (append (websock
(when (and payloadp (>= (length payload) 126)) (append (websocket-to
(append (list (logior (cond ((eq opcode (quote continuation)) 0) ((e
(apply (quote unibyte-string) (append (list (logior (cond ((eq opcod
(let* ((opcode (websocket-frame-opcode frame)) (payload (websocket-f
websocket-encode-frame([cl-struct-websocket-frame text "xxxxxxxxxxxx
(websocket-read-frame (websocket-encode-frame (make-websocket-frame
(websocket-frame-payload (websocket-read-frame (websocket-encode-fra
(list long-string (websocket-frame-payload (websocket-read-frame (we
(let ((fn-35 (function equal)) (args-36 (list long-string (websocket
(should (equal long-string (websocket-frame-payload (websocket-read-
(let ((long-string (make-string len 120))) (should (equal long-strin
(while --cl-dolist-temp-- (setq len (car --cl-dolist-temp--)) (let (
(let ((--cl-dolist-temp-- (quote (200 70000))) len) (while --cl-doli
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (quote (20
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist
(block nil (let ((--cl-dolist-temp-- (quote (200 70000))) len) (whil
(dolist (len (quote (200 70000))) (let ((long-string (make-string le
(let ((websocket-mask-frames nil)) (should (equal websocket-test-hel
(lambda nil (let ((websocket-mask-frames nil)) (should (equal websoc
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-encode-frame nil (lambda
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t #[(event-type &rest event-args) "\306=\203F \211G
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" "." "-l" "websocket-test.el" "-f" "ert-run-test
command-line()
normal-top-level()
Test websocket-encode-frame condition:
(wrong-type-argument integerp 1.6298145055770874e-05)
FAILED 4/17 websocket-encode-frame
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: Arithmetic error
Got error from the on-message function: Arithmetic error
Got error from the on-message function: See if websocket can handle this
Got error from the on-message function: See if websocket can handle this
passed 5/17 websocket-filter-handle-error-in-filter
passed 6/17 websocket-genbytes-length
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Test websocket-get-bytes backtrace:
signal(error ("websocket-get-bytes: value too large to parse!"))
error("websocket-get-bytes: value too large to parse!")
(progn (error "websocket-get-bytes: value too large to parse!"))
(if (calc-eval (quote ("$ > $$")) (quote pred) cval most-positive-fi
(when (calc-eval (quote ("$ > $$")) (quote pred) cval most-positive-
(let* ((32-bit-parts (bindat-get-field (bindat-unpack (quote ((:val
(if (= n 8) (let* ((32-bit-parts (bindat-get-field (bindat-unpack (q
websocket-get-bytes("" 8)
(list 4294967297.0 (websocket-get-bytes "" 8))
(let ((fn-580 (function equal)) (args-581 (list 4294967297.0 (websoc
(should (equal 4294967297.0 (websocket-get-bytes "" 8)))
(lambda nil (should (equal 5 (websocket-get-bytes "" 1))) (should (
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-get-bytes nil (lambda nil
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t #[(event-type &rest event-args) "\306=\203F \211G
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" "." "-l" "websocket-test.el" "-f" "ert-run-test
command-line()
normal-top-level()
Test websocket-get-bytes condition:
(error "websocket-get-bytes: value too large to parse!")
FAILED 7/17 websocket-get-bytes
passed 8/17 websocket-get-opcode
Working... pow = 2
Working... pow = 4
Working... pow = 16
Working... pow = 256
Working... pow = 65536
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
Working... pow = 4294967296
passed 9/17 websocket-get-payload-len
Got error from the on-open function: Ignore me!
passed 10/17 websocket-outer-filter
passed 11/17 websocket-outer-filter-bad-connection
passed 12/17 websocket-process-frame
passed 13/17 websocket-read-frame
passed 14/17 websocket-send
Test websocket-to-bytes backtrace:
lsh(1.6298145055770874e-05 -16)
bindat--pack-u32(1.6298145055770874e-05)
bindat--pack-item(1.6298145055770874e-05 u32 1 nil)
bindat--pack-item([1.6298145055770874e-05 70000.0] vec 2 u32)
bindat--pack-group(((:val . [1.6298145055770874e-05 70000.0])) ((:va
bindat-pack(((:val vec 2 u32)) ((:val . [1.6298145055770874e-05 7000
(if (= nbytes 8) (bindat-pack (\` ((:val vec 2 u32))) (\` ((:val . [
websocket-to-bytes(70000 8)
(websocket-get-bytes (websocket-to-bytes 70000 8) 8)
(list 70000 (websocket-get-bytes (websocket-to-bytes 70000 8) 8))
(let ((fn-789 (function equal)) (args-790 (list 70000 (websocket-get
(should (equal 70000 (websocket-get-bytes (websocket-to-bytes 70000
(lambda nil (should (equal 30 (websocket-get-bytes (websocket-to-byt
byte-code("\306\307!rq\210\310\216\311 \312\216\313\314\315\316\3
ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
byte-code("\306\307!\211r\310\311!q\210\312 d\313\223)L\210\314\216
ert-run-test([cl-struct-ert-test websocket-to-bytes nil (lambda nil
ert-run-or-rerun-test([cl-struct-ert--stats t [[cl-struct-ert-test w
ert-run-tests(t #[(event-type &rest event-args) "\306=\203F \211G
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-L" "." "-l" "websocket-test.el" "-f" "ert-run-test
command-line()
normal-top-level()
Test websocket-to-bytes condition:
(wrong-type-argument integerp 1.6298145055770874e-05)
FAILED 15/17 websocket-to-bytes
passed 16/17 websocket-verify-headers
passed 17/17 websocket-verify-response-code
Ran 17 tests, 14 results as expected, 3 unexpected (2012-07-04 13:45:19+0200)
3 unexpected results:
FAILED websocket-encode-frame
FAILED websocket-get-bytes
FAILED websocket-to-bytes
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment