USING: sequences.interleaved strings tools.test ; { "" } [ "" CHAR: _ >string ] unit-test { "a" } [ "a" CHAR: _ >string ] unit-test { "a_b" } [ "ab" CHAR: _ >string ] unit-test { "a_b_c" } [ "abc" CHAR: _ >string ] unit-test { "a_b_c_d" } [ "abcd" CHAR: _ >string ] unit-test