basis/http/server/redirection/redirection-tests.factor

   1 IN: http.server.redirection.tests
   2 USING: http http.server.redirection urls accessors
   3 namespaces tools.test present kernel ;
   4
   5 \ relative-to-request must-infer
   6
   7 [
   8     <request>
   9         <url>
  10             "http" >>protocol
  11             "www.apple.com" >>host
  12             "/xxx/bar" >>path
  13             { { "a" "b" } } >>query
  14         dup url set
  15         >>url
  16     request set
  17
  18     [ "http://www.apple.com:80/xxx/bar" ] [
  19         <url> relative-to-request present
  20     ] unit-test
  21
  22     [ "http://www.apple.com:80/xxx/baz" ] [
  23         <url> "baz" >>path relative-to-request present
  24     ] unit-test
  25
  26     [ "http://www.apple.com:80/xxx/baz?c=d" ] [
  27         <url> "baz" >>path { { "c" "d" } } >>query relative-to-request present
  28     ] unit-test
  29
  30     [ "http://www.apple.com:80/xxx/bar?c=d" ] [
  31         <url> { { "c" "d" } } >>query relative-to-request present
  32     ] unit-test
  33
  34     [ "http://www.apple.com:80/flip" ] [
  35         <url> "/flip" >>path relative-to-request present
  36     ] unit-test
  37
  38     [ "http://www.apple.com:80/flip?c=d" ] [
  39         <url> "/flip" >>path { { "c" "d" } } >>query relative-to-request present
  40     ] unit-test
  41
  42     [ "http://www.jedit.org:80/" ] [
  43         "http://www.jedit.org" >url relative-to-request present
  44     ] unit-test
  45
  46     [ "http://www.jedit.org:80/?a=b" ] [
  47         "http://www.jedit.org" >url { { "a" "b" } } >>query relative-to-request present
  48     ] unit-test
  49 ] with-scope