cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add an example slow endpoint to help with testing

Browse source 
How other things handle slow responses.
This commit is contained in:
Christopher Baines 2025-07-17 09:55:19 +01:00
parent eec7715928
commit b781d0e86d
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
guix-data-service/web/controller.scm
View file

@ -874,6 +874,21 @@
(('GET "compare-by-datetime" _ ...) (delegate-to compare-controller)) (('GET "compare-by-datetime" _ ...) (delegate-to compare-controller))
(('GET "jobs" _ ...) (delegate-to jobs-controller)) (('GET "jobs" _ ...) (delegate-to jobs-controller))
(('GET "job" job-id) (delegate-to jobs-controller)) (('GET "job" job-id) (delegate-to jobs-controller))
;; Example slow endpoint to help with testing
(('GET "slow")
(list (build-response
#:code 200
#:headers '((content-type . (text/plain
(charset . "utf-8")))
(vary . (accept))))
(lambda (port)
(force-output port)
(for-each
(lambda (i)
(put-string port (simple-format #f "slow ~A\n" i))
(force-output port)
(sleep 5))
(iota 12)))))
(('GET _ ...) (delegate-to nar-controller)) (('GET _ ...) (delegate-to nar-controller))
((method path ...) ((method path ...)
(render-html (render-html