diff options
Diffstat (limited to 'test-suite/tests/web-request.test')
-rw-r--r-- | test-suite/tests/web-request.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/web-request.test b/test-suite/tests/web-request.test index e1eec2f74..8cf1c2e87 100644 --- a/test-suite/tests/web-request.test +++ b/test-suite/tests/web-request.test @@ -47,6 +47,10 @@ Accept-Language: en-gb, en;q=0.9\r (set! r (read-request (open-input-string example-1))) (request? r))) + (pass-if (equal? + (request-host (build-request (string->uri "http://www.gnu.org/"))) + '("www.gnu.org" . #f))) + (pass-if (equal? (request-method r) 'GET)) (pass-if (equal? (request-uri r) (build-uri 'http #:path "/qux"))) |