157 lines
3.6 KiB
Factor
Executable File
157 lines
3.6 KiB
Factor
Executable File
USING: http tools.test multiline tuple-syntax
|
|
io.streams.string kernel arrays splitting sequences ;
|
|
IN: http.tests
|
|
|
|
[ "hello%20world" ] [ "hello world" url-encode ] unit-test
|
|
[ "hello world" ] [ "hello%20world" url-decode ] unit-test
|
|
[ "~hello world" ] [ "%7ehello+world" url-decode ] unit-test
|
|
[ f ] [ "%XX%XX%XX" url-decode ] unit-test
|
|
[ f ] [ "%XX%XX%X" url-decode ] unit-test
|
|
|
|
[ "hello world" ] [ "hello+world" url-decode ] unit-test
|
|
[ "hello world" ] [ "hello%20world" url-decode ] unit-test
|
|
[ " ! " ] [ "%20%21%20" url-decode ] unit-test
|
|
[ "hello world" ] [ "hello world%" url-decode ] unit-test
|
|
[ "hello world" ] [ "hello world%x" url-decode ] unit-test
|
|
[ "hello%20world" ] [ "hello world" url-encode ] unit-test
|
|
[ "%20%21%20" ] [ " ! " url-encode ] unit-test
|
|
|
|
[ "\u001234hi\u002045" ] [ "\u001234hi\u002045" url-encode url-decode ] unit-test
|
|
|
|
[ "/" ] [ "http://foo.com" url>path ] unit-test
|
|
[ "/" ] [ "http://foo.com/" url>path ] unit-test
|
|
[ "/bar" ] [ "http://foo.com/bar" url>path ] unit-test
|
|
[ "/bar" ] [ "/bar" url>path ] unit-test
|
|
|
|
STRING: read-request-test-1
|
|
GET http://foo/bar HTTP/1.1
|
|
Some-Header: 1
|
|
Some-Header: 2
|
|
Content-Length: 4
|
|
|
|
blah
|
|
;
|
|
|
|
[
|
|
TUPLE{ request
|
|
port: 80
|
|
method: "GET"
|
|
path: "/bar"
|
|
query: H{ }
|
|
version: "1.1"
|
|
header: H{ { "some-header" "1; 2" } { "content-length" "4" } }
|
|
post-data: "blah"
|
|
cookies: V{ }
|
|
}
|
|
] [
|
|
read-request-test-1 [
|
|
read-request
|
|
] with-string-reader
|
|
] unit-test
|
|
|
|
STRING: read-request-test-1'
|
|
GET /bar HTTP/1.1
|
|
content-length: 4
|
|
some-header: 1; 2
|
|
|
|
blah
|
|
;
|
|
|
|
read-request-test-1' 1array [
|
|
read-request-test-1
|
|
[ read-request ] with-string-reader
|
|
[ write-request ] with-string-writer
|
|
! normalize crlf
|
|
string-lines "\n" join
|
|
] unit-test
|
|
|
|
STRING: read-request-test-2
|
|
HEAD http://foo/bar HTTP/1.1
|
|
Host: www.sex.com
|
|
;
|
|
|
|
[
|
|
TUPLE{ request
|
|
port: 80
|
|
method: "HEAD"
|
|
path: "/bar"
|
|
query: H{ }
|
|
version: "1.1"
|
|
header: H{ { "host" "www.sex.com" } }
|
|
host: "www.sex.com"
|
|
cookies: V{ }
|
|
}
|
|
] [
|
|
read-request-test-2 [
|
|
read-request
|
|
] with-string-reader
|
|
] unit-test
|
|
|
|
STRING: read-response-test-1
|
|
HTTP/1.1 404 not found
|
|
Content-Type: text/html
|
|
|
|
blah
|
|
;
|
|
|
|
[
|
|
TUPLE{ response
|
|
version: "1.1"
|
|
code: 404
|
|
message: "not found"
|
|
header: H{ { "content-type" "text/html" } }
|
|
cookies: V{ }
|
|
}
|
|
] [
|
|
read-response-test-1
|
|
[ read-response ] with-string-reader
|
|
] unit-test
|
|
|
|
|
|
STRING: read-response-test-1'
|
|
HTTP/1.1 404 not found
|
|
content-type: text/html
|
|
|
|
|
|
;
|
|
|
|
read-response-test-1' 1array [
|
|
read-response-test-1
|
|
[ read-response ] with-string-reader
|
|
[ write-response ] with-string-writer
|
|
! normalize crlf
|
|
string-lines "\n" join
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
"rmid=732423sdfs73242; path=/; domain=.example.net; expires=Fri, 31-Dec-2010 23:59:59 GMT"
|
|
dup parse-cookies unparse-cookies =
|
|
] unit-test
|
|
|
|
! Live-fire exercise
|
|
USING: http.server http.server.static http.server.actions
|
|
http.client io.server io.files io accessors namespaces threads
|
|
io.encodings.ascii ;
|
|
|
|
[ ] [
|
|
[
|
|
<dispatcher>
|
|
<action>
|
|
[ stop-server "text/html" <content> [ "Goodbye" write ] >>body ] >>display
|
|
"quit" add-responder
|
|
"extra/http/test" resource-path <static> >>default
|
|
main-responder set
|
|
|
|
[ 1237 httpd ] "HTTPD test" spawn drop
|
|
] with-scope
|
|
] unit-test
|
|
|
|
[ t ] [
|
|
"extra/http/test/foo.html" resource-path ascii file-contents
|
|
"http://localhost:1237/foo.html" http-get =
|
|
] unit-test
|
|
|
|
[ "Goodbye" ] [
|
|
"http://localhost:1237/quit" http-get
|
|
] unit-test
|