http.client: fix test cases broken by schema:path url parsing change.

diff --git a/basis/http/client/client-tests.factor b/basis/http/client/client-tests.factor
index e1ae200ac6366920b05a30f78c99d7105830b754..ceab96a6d96bb6de01d752dfcc774d656879ed4d 100644 (file)
--- a/basis/http/client/client-tests.factor
+++ b/basis/http/client/client-tests.factor
@@ -192,20 +192,20 @@ CONSTANT: classic-proxy-settings H{
     ] with-variables
 ] unit-test
 
-{ URL" http://localhost:3128" } [
-    { { "http.proxy" "localhost:3128" } } [
+{ URL" //localhost:3128" } [
+    { { "http.proxy" "//localhost:3128" } } [
        "google.com" "GET" <client-request> ?default-proxy proxy-url>>
     ] with-variables
 ] unit-test
 
-{ URL" http://localhost:3128" } [
+{ URL" //localhost:3128" } [
     "google.com" "GET" <client-request>
-    URL" localhost:3128" >>proxy-url ?default-proxy proxy-url>>
+    URL" //localhost:3128" >>proxy-url ?default-proxy proxy-url>>
 ] unit-test
 
-{ URL" http://localhost:3128" } [
+{ URL" //localhost:3128" } [
     "google.com" "GET" <client-request>
-    "localhost:3128" >>proxy-url ?default-proxy proxy-url>>
+    "//localhost:3128" >>proxy-url ?default-proxy proxy-url>>
 ] unit-test
 
 { URL" http://proxysec.private:3128" } [

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index 771b9120cf6b91705f9449da4252162d0c89c195..9acdd247d6fab4f800177d0172829645e52d6fdb 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -204,8 +204,7 @@ SYMBOL: redirects
     ] if ;
 
 : misparsed-url? ( url -- url' )
-    [ protocol>> not ] [ host>> not ] [ path>> ]
-    tri and and ;
+    [ protocol>> not ] [ host>> not ] [ path>> ] tri and and ;
 
 : request-url ( url -- url' )
     dup >url dup misparsed-url? [