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 32b99dd..8cf1c2e 100644 (file)
--- a/test-suite/tests/web-request.test
+++ b/test-suite/tests/web-request.test
@@ -47,15 +47,16 @@ 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")))
     
-    (pass-if (equal? (read-request-body/latin-1 r) #f))
-    ;; Since it's #f, should be an idempotent read, so we can try
-    ;; bytevectors too
-    (pass-if (equal? (read-request-body/bytevector r) #f))
-    
+    (pass-if (equal? (read-request-body r) #f))
+
     (pass-if "checking all headers"
       (equal?
        (request-headers r)