14 lines
660 B
Factor
14 lines
660 B
Factor
IN: io.crlf.tests
|
|
USING: io.crlf tools.test io.streams.string io ;
|
|
|
|
[ "Hello, world." ] [ "Hello, world." [ read-crlf ] with-string-reader ] unit-test
|
|
[ "Hello, world." ] [ "Hello, world.\r\n" [ read-crlf ] with-string-reader ] unit-test
|
|
[ "Hello, world.\r" [ read-crlf ] with-string-reader ] must-fail
|
|
[ f ] [ "" [ read-crlf ] with-string-reader ] unit-test
|
|
[ "" ] [ "\r\n" [ read-crlf ] with-string-reader ] unit-test
|
|
|
|
[ "foo\r" [ read-?crlf ] with-string-reader ] must-fail
|
|
[ f ] [ "" [ read-?crlf ] with-string-reader ] unit-test
|
|
[ "" ] [ "\n" [ read-?crlf ] with-string-reader ] unit-test
|
|
[ "foo" ] [ "foo\n" [ read-?crlf ] with-string-reader ] unit-test
|