awful-sse/tests/run.scm

22 lines
468 B
Scheme
Raw Permalink Normal View History

2020-12-29 02:29:22 +00:00
(import (chicken base)
(chicken io)
awful http-client intarweb uri-common server-test test)
2014-07-08 18:45:06 +00:00
(awful-apps (list "client.scm"))
(with-test-server
(lambda ()
(awful-start
(lambda ()
(load-apps (awful-apps)))))
(lambda ()
(test "data: sse\n\n"
(with-input-from-request
2014-07-08 18:45:06 +00:00
(make-request
uri: (uri-reference "http://localhost:8080/sse")
headers: (headers '((accept text/event-stream))))
#f
read-string))))
(test-exit)