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

splitting: string-lines docs say it returns strings, so do that.

db4
John Benediktsson 2013-03-24 19:45:29 -07:00
parent 3ce93bf86f
commit 872e3c4e83
2 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
core/splitting/splitting-tests.factor
View File

@ -58,17 +58,17 @@ unit-test
[ { "hello" "hi" } ] [ "hello\rhi" string-lines ] unit-test
[ { "hello" "hi" } ] [ "hello\r\nhi" string-lines ] unit-test
[ { SBUF" " } ] [ SBUF" " string-lines ] unit-test
[ { SBUF" " SBUF" " } ] [ SBUF" \n" string-lines ] unit-test
[ { SBUF" " SBUF" " } ] [ SBUF" \r" string-lines ] unit-test
[ { SBUF" " SBUF" " } ] [ SBUF" \r\n" string-lines ] unit-test
[ { SBUF" hello" } ] [ SBUF" hello" string-lines ] unit-test
[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\n" string-lines ] unit-test
[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\r" string-lines ] unit-test
[ { SBUF" hello" SBUF" " } ] [ SBUF" hello\r\n" string-lines ] unit-test
[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\nhi" string-lines ] unit-test
[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\rhi" string-lines ] unit-test
[ { SBUF" hello" SBUF" hi" } ] [ SBUF" hello\r\nhi" string-lines ] unit-test
[ { "" } ] [ SBUF" " string-lines ] unit-test
[ { "" "" } ] [ SBUF" \n" string-lines ] unit-test
[ { "" "" } ] [ SBUF" \r" string-lines ] unit-test
[ { "" "" } ] [ SBUF" \r\n" string-lines ] unit-test
[ { "hello" } ] [ SBUF" hello" string-lines ] unit-test
[ { "hello" "" } ] [ SBUF" hello\n" string-lines ] unit-test
[ { "hello" "" } ] [ SBUF" hello\r" string-lines ] unit-test
[ { "hello" "" } ] [ SBUF" hello\r\n" string-lines ] unit-test
[ { "hello" "hi" } ] [ SBUF" hello\nhi" string-lines ] unit-test
[ { "hello" "hi" } ] [ SBUF" hello\rhi" string-lines ] unit-test
[ { "hello" "hi" } ] [ SBUF" hello\r\nhi" string-lines ] unit-test
[ { "hey" "world" "what's" "happening" } ]
[ "heyAworldBwhat'sChappening" [ LETTER? ] split-when ] unit-test

3
core/splitting/splitting.factor
View File

@ -121,5 +121,4 @@ M: string string-lines
1array
] if ;
M: sbuf string-lines
[ "" like string-lines ] keep [ like ] curry map ;
M: sbuf string-lines "" like string-lines ;