56 lines
1.9 KiB
Factor
56 lines
1.9 KiB
Factor
USING: accessors http.client http.client.private http
|
|
io.streams.string kernel namespaces sequences tools.test urls ;
|
|
IN: http.client.tests
|
|
|
|
[ "localhost" f ] [ "localhost" parse-host ] unit-test
|
|
[ "localhost" 8888 ] [ "localhost:8888" parse-host ] unit-test
|
|
|
|
[ "foo.txt" ] [ "http://www.paulgraham.com/foo.txt" download-name ] unit-test
|
|
[ "foo.txt" ] [ "http://www.arc.com/foo.txt?xxx" download-name ] unit-test
|
|
[ "foo.txt" ] [ "http://www.arc.com/foo.txt/" download-name ] unit-test
|
|
[ "www.arc.com" ] [ "http://www.arc.com////" download-name ] unit-test
|
|
|
|
[
|
|
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"
|
|
<get-request>
|
|
] unit-test
|
|
|
|
[
|
|
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"
|
|
<get-request>
|
|
] unit-test
|
|
|
|
[ "HEAD" ] [ "http://google.com" <head-request> method>> ] unit-test
|
|
[ "DELETE" ] [ "http://arc.com" <delete-request> method>> ] unit-test
|
|
[ "TRACE" ] [ "http://concatenative.org" <trace-request> method>> ] unit-test
|
|
[ "OPTIONS" ] [ "http://factorcode.org" <options-request> method>> ] unit-test
|
|
|
|
[ t ] [
|
|
{
|
|
"HTTP/1.1 200 Document follows"
|
|
"connection: close"
|
|
"content-type: text/html; charset=UTF-8"
|
|
"date: Wed, 12 Oct 2011 18:57:49 GMT"
|
|
"server: Factor http.server"
|
|
} [ "\n" join ] [ "\r\n" join ] bi
|
|
[ [ read-response ] with-string-reader ] same?
|
|
] unit-test
|