8 lines
347 B
Factor
8 lines
347 B
Factor
USING: sequences.interleaved strings tools.test ;
|
|
|
|
{ "" } [ "" CHAR: _ <interleaved> >string ] unit-test
|
|
{ "a" } [ "a" CHAR: _ <interleaved> >string ] unit-test
|
|
{ "a_b" } [ "ab" CHAR: _ <interleaved> >string ] unit-test
|
|
{ "a_b_c" } [ "abc" CHAR: _ <interleaved> >string ] unit-test
|
|
{ "a_b_c_d" } [ "abcd" CHAR: _ <interleaved> >string ] unit-test
|