[ read-request ] with-string-reader
[ write-request ] with-string-writer
! normalize crlf
- string-lines "\n" join
+ lines "\n" join
] unit-test
STRING: read-request-test-2
[ read-response ] with-string-reader
[ write-response ] with-string-writer
! normalize crlf
- string-lines "\n" join
+ lines "\n" join
] unit-test
{ t } [