2008-06-08 16:30:58 -04:00
|
|
|
USING: cords strings tools.test kernel sequences ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: cords.tests
|
2008-06-08 16:30:58 -04:00
|
|
|
|
|
|
|
|
[ "hello world" ] [ "hello" " world" cord-append dup like ] unit-test
|
|
|
|
|
[ "hello world" ] [ { "he" "llo" " world" } cord-concat dup like ] unit-test
|
