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';
self assert: (Request readFrom: writeStream readStream) content contents = 'body'.
Jump to Line
Something went wrong with that request. Please try again.