summaryrefslogtreecommitdiff
path: root/test-suite/tests/web-request.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/web-request.test')
-rw-r--r--test-suite/tests/web-request.test4
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")))