Fix tests

diff --git a/basis/http/server/redirection/redirection-tests.factor b/basis/http/server/redirection/redirection-tests.factor
index c7a13703978711d58f16fc099b5badb6426af67d..14855ca8755aa64f7e063da595febd367a35e253 100644 (file)
--- a/basis/http/server/redirection/redirection-tests.factor
+++ b/basis/http/server/redirection/redirection-tests.factor
@@ -15,35 +15,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