basis/cords/cords-tests.factor

   1 USING: cords strings tools.test kernel sequences ;
   2 IN: cords.tests
   3
   4 [ "hello world" ] [ "hello" " world" cord-append dup like ] unit-test
   5 [ "hello world" ] [ { "he" "llo" " world" } cord-concat dup like ] unit-test