Added (test-exit) at the end of tests/run.scm

This commit is contained in:
arthurmaciel 2014-07-09 15:37:21 -03:00
parent 5951b78908
commit b8cab6e3b5

View file

@ -9,9 +9,11 @@
(load-apps (awful-apps))))) (load-apps (awful-apps)))))
(lambda () (lambda ()
(test "data: sse\n\n" (test "data: sse\n\n"
(with-input-from-request (with-input-from-request
(make-request (make-request
uri: (uri-reference "http://localhost:8080/sse") uri: (uri-reference "http://localhost:8080/sse")
headers: (headers '((accept text/event-stream)))) headers: (headers '((accept text/event-stream))))
#f #f
read-string)))) read-string))))
(test-exit)