---- [email protected] wrote:
> The test passes with the included git diff. Seems request-host returns a
> pair instead of a string, so just use the car.
>
Bah. Looks like I hozed attaching it. Another try.
-Dale
diff --git a/test-suite/tests/web-request.test b/test-suite/tests/web-request.test
index b1182d2..157075a 100644
--- a/test-suite/tests/web-request.test
+++ b/test-suite/tests/web-request.test
@@ -48,7 +48,7 @@ Accept-Language: en-gb, en;q=0.9\r
(request? r)))
(pass-if (equal?
- (request-host (build-request (string->uri "http://www.gnu.org/";)))
+ (car (request-host (build-request (string->uri "http://www.gnu.org/";))))
"www.gnu.org"))
(pass-if (equal? (request-method r) 'GET))
