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

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