guix - Wojtek's customized Guix

diff options

Diffstat (limited to 'tests')

0 files changed, 0 insertions, 0 deletions

ot;)) (let* ((port (http-fetch (%local-url))) (data (get-string-all port))) (close-port port) data))) (test-equal "http-fetch, error" 404 (with-http-server `((404 "Ne trovita.")) (guard (c ((http-get-error? c) (http-get-error-code c))) (http-fetch (%local-url)) #f))) (test-equal "http-fetch, redirect + error" 403 (with-http-server `((,(build-response #:code 302 #:headers `((location . ,(string->uri-reference "/elsewhere"))) #:reason-phrase "Moved") "Redirect!") (403 "Verboten.")) (guard (c ((http-get-error? c) (http-get-error-code c))) (http-fetch (%local-url)) #f))) (test-end "http-client")


context:
space:
mode: