2007-09-20 18:09:08 -04:00
|
|
|
USING: tools.test unicode.breaks sequences math kernel ;
|
|
|
|
|
|
|
|
|
|
[ "\u1112\u1161\u11abA\u0300a\r\r\n" ]
|
|
|
|
|
[ "\r\n\raA\u0300\u1112\u1161\u11ab" string-reverse ] unit-test
|
|
|
|
|
[ "dcba" ] [ "abcd" string-reverse ] unit-test
|
2008-01-28 00:54:38 -05:00
|
|
|
[ 3 ] [ "\u1112\u1161\u11abA\u0300a"
|
|
|
|
|
dup last-grapheme head last-grapheme ] unit-test
|
