1 IN: http.server.redirection.tests
2 USING: http http.server.redirection urls accessors
3 namespaces tools.test present kernel ;
5 \ relative-to-request must-infer
11 "www.apple.com" >>host
13 { { "a" "b" } } >>query
18 [ "http://www.apple.com:80/xxx/bar" ] [
19 <url> relative-to-request present
22 [ "http://www.apple.com:80/xxx/baz" ] [
23 <url> "baz" >>path relative-to-request present
26 [ "http://www.apple.com:80/xxx/baz?c=d" ] [
27 <url> "baz" >>path { { "c" "d" } } >>query relative-to-request present
30 [ "http://www.apple.com:80/xxx/bar?c=d" ] [
31 <url> { { "c" "d" } } >>query relative-to-request present
34 [ "http://www.apple.com:80/flip" ] [
35 <url> "/flip" >>path relative-to-request present
38 [ "http://www.apple.com:80/flip?c=d" ] [
39 <url> "/flip" >>path { { "c" "d" } } >>query relative-to-request present
42 [ "http://www.jedit.org:80/" ] [
43 "http://www.jedit.org" >url relative-to-request present
46 [ "http://www.jedit.org:80/?a=b" ] [
47 "http://www.jedit.org" >url { { "a" "b" } } >>query relative-to-request present