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"
|
2014-07-09 18:37:21 +00:00
|
|
|
(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))))
|
2014-07-09 18:37:21 +00:00
|
|
|
|
|
|
|
|
(test-exit)
|
