81 lines
3.1 KiB
EmacsLisp
81 lines
3.1 KiB
EmacsLisp
;;; noise-sse-test.el --- Tests for SSE client -*- lexical-binding: t; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Tests for noise-sse.el SSE event parsing and connection management.
|
|
|
|
;;; Code:
|
|
|
|
(require 'ert)
|
|
(require 'noise-sse)
|
|
|
|
(ert-deftest noise-sse--parse-event-basic ()
|
|
"Parse a basic SSE event with data field."
|
|
(let ((event "data: {\"type\":\"message\",\"content\":\"hello\"}\n\n"))
|
|
(let ((result (noise-sse--parse-event event)))
|
|
(should (hash-table-p result))
|
|
(should (equal (gethash "type" result) "message"))
|
|
(should (equal (gethash "content" result) "hello")))))
|
|
|
|
(ert-deftest noise-sse--parse-event-multiline ()
|
|
"Parse SSE event with multiline data."
|
|
(let ((event "data: {\"type\":\"message\",\ndata: \"content\":\"hello\"}\n\n"))
|
|
(let ((result (noise-sse--parse-event event)))
|
|
(should (hash-table-p result))
|
|
(should (equal (gethash "type" result) "message")))))
|
|
|
|
(ert-deftest noise-sse--parse-event-empty ()
|
|
"Parse empty SSE event returns nil."
|
|
(let ((event "\n\n"))
|
|
(should (null (noise-sse--parse-event event)))))
|
|
|
|
(ert-deftest noise-sse--initial-state ()
|
|
"SSE client starts in disconnected state."
|
|
(let ((noise-sse--process nil)
|
|
(noise-sse--reconnect-timer nil)
|
|
(noise-sse--reconnect-delay 1))
|
|
(should (null noise-sse--process))
|
|
(should (null noise-sse--reconnect-timer))
|
|
(should (= 1 noise-sse--reconnect-delay))))
|
|
|
|
(ert-deftest noise-sse--reconnect-delay-backoff ()
|
|
"Reconnect delay doubles on each attempt."
|
|
(let ((noise-sse--reconnect-delay 1))
|
|
(noise-sse--increase-reconnect-delay)
|
|
(should (= 2 noise-sse--reconnect-delay))
|
|
(noise-sse--increase-reconnect-delay)
|
|
(should (= 4 noise-sse--reconnect-delay))
|
|
(noise-sse--increase-reconnect-delay)
|
|
(should (= 8 noise-sse--reconnect-delay))))
|
|
|
|
(ert-deftest noise-sse--reconnect-delay-max ()
|
|
"Reconnect delay caps at max value."
|
|
(let ((noise-sse--reconnect-delay 32)
|
|
(noise-sse-max-reconnect-delay 60))
|
|
(noise-sse--increase-reconnect-delay)
|
|
(should (= 60 noise-sse--reconnect-delay))))
|
|
|
|
(ert-deftest noise-sse--filter-processes-complete-event ()
|
|
"Process filter parses and calls handler for complete events."
|
|
(let ((processed-events '()))
|
|
(cl-letf (((symbol-function 'noise-sse--handle-event)
|
|
(lambda (event) (push event processed-events))))
|
|
(let ((noise-sse--buffer ""))
|
|
(noise-sse--filter nil "data: {\"type\":\"message\"}\n\n")
|
|
(should (= 1 (length processed-events)))
|
|
(should (hash-table-p (car processed-events)))))))
|
|
|
|
(ert-deftest noise-sse--filter-buffers-incomplete-event ()
|
|
"Process filter buffers incomplete events until newline."
|
|
(let ((processed-events '()))
|
|
(cl-letf (((symbol-function 'noise-sse--handle-event)
|
|
(lambda (event) (push event processed-events))))
|
|
(let ((noise-sse--buffer ""))
|
|
(noise-sse--filter nil "data: {\"type\":\"message\"")
|
|
(should (= 0 (length processed-events)))
|
|
(noise-sse--filter nil "}\n\n")
|
|
(should (= 1 (length processed-events)))))))
|
|
|
|
(provide 'noise-sse-test)
|
|
;;; noise-sse-test.el ends here
|