698
701
TestWordLeft('After empty > prev', 1,13, 1,12);
699
702
TestWordLeft('After space empty > prev', 1,15, 6,14);
704
TestWordLeft('single char at eol "A B|"', 4,17, 3,17, 1,17);
702
707
{%region word right}
703
708
TestWordRight('simple "te|xt"', 8, 1, 11, 1, 14, 1);
704
709
TestWordRight('simple EOW "text|"', 10, 1, 11, 1, 14, 1);
705
710
TestWordRight('simple BOW "|text"', 6, 1, 11, 1, 14, 1);
706
TestWordRight('simple EOT "li|ne"', 10,15, 12,15, 12,15);
711
TestWordRight('simple EOT "li|ne"', 10,18, 12,18, 12,18);
707
712
TestWordRight('simple > EOL, next line "te|st"', 16, 1, 18, 1, 1, 2);
709
714
TestWordRight('tab "li|ne"', 16, 3, 19, 3, 24, 3);
831
AllowPastEOL := True;
821
832
{%region word left}
822
833
TestWordLeft('simple "te|st"', 16, 1, 14, 1, [1,'Some text to st'],
823
834
11, 1, [1,'Some text st']);
928
939
8, 6, [6, 'umlaute in text']);
929
940
TestWordRight('After Umlaut > EOL, next line', 18, 6, 18, 6, [6, 'umlaute äää in te'],
930
941
18, 6, [6, 6, 'umlaute äää in te'+TestLines[6]]);
943
TestWordRight('Umlaut EOW "äää in text |"', 21, 6, 21, 6, [6, 6, 'umlaute äää in text normal line']);
932
945
//TestWordRight('Before untrimmed > next', 12, 7, 4, 8,