Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
14 lines (11 sloc) 359 Bytes
TestCase subclass: RequestTest [
testContent [
| writeStream |
writeStream := (WriteStream on: String new)
nextPutAll: 'GET http://test/path?query=1 HTTP/1.1'; cr; nl;
nextPutAll: 'Content-Length: 4'; cr; nl; cr; nl;
nextPutAll: 'body123';
yourself.
self assert: (Request readFrom: writeStream readStream) content contents = 'body'.
]
]
Jump to Line
Something went wrong with that request. Please try again.