basis/unicode/breaks/breaks-tests.factor

   1 USING: tools.test unicode.breaks sequences math kernel ;
   2
   3 [ "\u001112\u001161\u0011abA\u000300a\r\r\n" ]
   4 [ "\r\n\raA\u000300\u001112\u001161\u0011ab" string-reverse ] unit-test
   5 [ "dcba" ] [ "abcd" string-reverse ] unit-test
   6 [ 3 ] [ "\u001112\u001161\u0011abA\u000300a"
   7         dup last-grapheme head last-grapheme ] unit-test