Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / http / server / redirection / redirection-tests.factor

diff --git a/basis/http/server/redirection/redirection-tests.factor b/basis/http/server/redirection/redirection-tests.factor
index c7a13703978711d58f16fc099b5badb6426af67d..d502de75b0e6d9779c9fee15d24af513cf0db190 100644 (file)
--- a/basis/http/server/redirection/redirection-tests.factor
+++ b/basis/http/server/redirection/redirection-tests.factor
@@ -1,8 +1,6 @@
-IN: http.server.redirection.tests
 USING: http http.server.redirection urls accessors
 namespaces tools.test present kernel ;
-
-\ relative-to-request must-infer
+IN: http.server.redirection.tests
 
 [
     <request>
@@ -15,35 +13,39 @@ namespaces tools.test present kernel ;
         >>url
     request set
 
-    [ "http://www.apple.com:80/xxx/bar" ] [ 
+    [ "http://www.apple.com/xxx/bar" ] [ 
         <url> relative-to-request present 
     ] unit-test
 
-    [ "http://www.apple.com:80/xxx/baz" ] [
+    [ "http://www.apple.com/xxx/baz" ] [
         <url> "baz" >>path relative-to-request present
     ] unit-test
     
-    [ "http://www.apple.com:80/xxx/baz?c=d" ] [
+    [ "http://www.apple.com/xxx/baz?c=d" ] [
         <url> "baz" >>path { { "c" "d" } } >>query relative-to-request present
     ] unit-test
     
-    [ "http://www.apple.com:80/xxx/bar?c=d" ] [
+    [ "http://www.apple.com/xxx/bar?c=d" ] [
         <url> { { "c" "d" } } >>query relative-to-request present
     ] unit-test
     
-    [ "http://www.apple.com:80/flip" ] [
+    [ "http://www.apple.com/flip" ] [
         <url> "/flip" >>path relative-to-request present
     ] unit-test
     
-    [ "http://www.apple.com:80/flip?c=d" ] [
+    [ "http://www.apple.com/flip?c=d" ] [
         <url> "/flip" >>path { { "c" "d" } } >>query relative-to-request present
     ] unit-test
     
-    [ "http://www.jedit.org:80/" ] [
+    [ "http://www.jedit.org/" ] [
         "http://www.jedit.org" >url relative-to-request present
     ] unit-test
     
-    [ "http://www.jedit.org:80/?a=b" ] [
+    [ "http://www.jedit.org/?a=b" ] [
         "http://www.jedit.org" >url { { "a" "b" } } >>query relative-to-request present
     ] unit-test
+    
+    [ "http://www.jedit.org:1234/?a=b" ] [
+        "http://www.jedit.org:1234" >url { { "a" "b" } } >>query relative-to-request present
+    ] unit-test
 ] with-scope