mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix web-request.test

Browse source 
* test-suite/tests/web-request.test ("example-1"): Fix expected format
  of `host' header.
This commit is contained in:
Andy Wingo 2011-07-18 10:37:46 +02:00
parent 037a680321
commit ecfb148137
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/web-request.test
View file

@ -49,7 +49,7 @@ Accept-Language: en-gb, en;q=0.9\r
(pass-if (equal?
(request-host (build-request (string->uri "http://www.gnu.org/")))
"www.gnu.org"))
'("www.gnu.org" . #f)))
(pass-if (equal? (request-method r) 'GET))