USING: http.client http.client.private http tools.test
-tuple-syntax namespaces urls ;
+namespaces urls ;
+IN: http.client.tests
+
[ "localhost" f ] [ "localhost" parse-host ] unit-test
[ "localhost" 8888 ] [ "localhost:8888" parse-host ] unit-test
[ "www.arc.com" ] [ "http://www.arc.com////" download-name ] unit-test
[
- TUPLE{ request
- url: TUPLE{ url protocol: "http" host: "www.apple.com" port: 80 path: "/index.html" }
- method: "GET"
- version: "1.1"
- cookies: V{ }
- header: H{ { "connection" "close" } { "user-agent" "Factor http.client" } }
+ T{ request
+ { url T{ url { protocol "http" } { host "www.apple.com" } { port 80 } { path "/index.html" } } }
+ { method "GET" }
+ { version "1.1" }
+ { cookies V{ } }
+ { header H{ { "connection" "close" } { "user-agent" "Factor http.client" } } }
+ { redirects 10 }
}
] [
"http://www.apple.com/index.html"
] unit-test
[
- TUPLE{ request
- url: TUPLE{ url protocol: "https" host: "www.amazon.com" port: 443 path: "/index.html" }
- method: "GET"
- version: "1.1"
- cookies: V{ }
- header: H{ { "connection" "close" } { "user-agent" "Factor http.client" } }
+ T{ request
+ { url T{ url { protocol "https" } { host "www.amazon.com" } { port 443 } { path "/index.html" } } }
+ { method "GET" }
+ { version "1.1" }
+ { cookies V{ } }
+ { header H{ { "connection" "close" } { "user-agent" "Factor http.client" } } }
+ { redirects 10 }
}
] [
"https://www.amazon.com/index.html"