steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

http.server.requests: fix LH{ } in tests.

db4
John Benediktsson 2015-11-04 13:01:39 -08:00
parent bda9092cef
commit 02c4ec3630
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/http/server/requests/requests-tests.factor
View File

@ -1,6 +1,7 @@
USING: accessors assocs continuations http http.client http.client.private USING: accessors assocs continuations http http.client
http.server http.server.requests io.crlf io.streams.limited io.streams.string http.client.private http.server http.server.requests io.crlf
kernel math math.parser multiline namespaces peg sequences splitting io.streams.limited io.streams.string linked-assocs kernel math
math.parser multiline namespaces peg sequences splitting
tools.test urls ; tools.test urls ;
IN: http.server.requests.tests IN: http.server.requests.tests
@ -22,12 +23,12 @@ IN: http.server.requests.tests
] unit-test ] unit-test
! Incorrect content-length works fine ! Incorrect content-length works fine
{ H{ { "foo" "bar" } } } [ { LH{ { "foo" "bar" } } } [
{ { "foo" "bar" } } "localhost" <post-request> request>string { { "foo" "bar" } } "localhost" <post-request> request>string
"7" "190" replace string>request post-data>> params>> "7" "190" replace string>request post-data>> params>>
] unit-test ] unit-test
{ H{ { "name" "John Smith" } } } [ { LH{ { "name" "John Smith" } } } [
{ { "name" "John Smith" } } "localhost" <post-request> request>string { { "name" "John Smith" } } "localhost" <post-request> request>string
string>request post-data>> params>> string>request post-data>> params>>
] unit-test ] unit-test