read: Support R7RS |...| symbol notation.

[bpt/guile.git] / test-suite / tests / web-request.test

diff --git a/test-suite/tests/web-request.test b/test-suite/tests/web-request.test
index e1eec2f..8cf1c2e 100644 (file)
--- 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")))