diff options
Diffstat (limited to 'test-suite/tests/web-http.test')
-rw-r--r-- | test-suite/tests/web-http.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/tests/web-http.test b/test-suite/tests/web-http.test index 45cce0229..dfc9677cf 100644 --- a/test-suite/tests/web-http.test +++ b/test-suite/tests/web-http.test @@ -345,6 +345,14 @@ (pass-if-parse etag "W/\"foo\"" '("foo" . #f)) (pass-if-parse location "http://other-place" (build-uri 'http #:host "other-place")) + (pass-if-parse location "#foo" + (build-uri-reference #:fragment "foo")) + (pass-if-parse location "/#foo" + (build-uri-reference #:path "/" #:fragment "foo")) + (pass-if-parse location "/foo" + (build-uri-reference #:path "/foo")) + (pass-if-parse location "//server/foo" + (build-uri-reference #:host "server" #:path "/foo")) (pass-if-parse proxy-authenticate "Basic realm=\"guile\"" '((basic (realm . "guile")))) (pass-if-parse retry-after "Tue, 15 Nov 1994 08:12:31 GMT" |