diff options
| author | fvogel <fvogelnew1@free.fr> | 2024-04-20 10:04:51 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2024-04-20 10:04:51 (GMT) |
| commit | e644a90bb3084ed9f5b932caeda884afaa8099ff (patch) | |
| tree | 5cdfaecd56c1ba59052a5670fc25e3f111b57490 /tests | |
| parent | 27db51fecd833ecd4a918acb93e6055ebf70b206 (diff) | |
| download | tk-e644a90bb3084ed9f5b932caeda884afaa8099ff.zip tk-e644a90bb3084ed9f5b932caeda884afaa8099ff.tar.gz tk-e644a90bb3084ed9f5b932caeda884afaa8099ff.tar.bz2 | |
Add (currently failing) test text-27.26 demonstrating bug [ab839efc5f].
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test index c5ab92b..ff83e6f 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6967,6 +6967,21 @@ test text-27.25 {<<UndoStack>> virtual event} -setup { } -cleanup { destroy .t } -result {0 0 1 2 3 4 4 5 6 6 7 8 8 9} +test text-27.26 {bug ab839efc5f - .text edit undo inserts separators} -setup { + destroy .t +} -body { + text .t -undo 1 + .t insert 1.0 "1. 123 5 789012 LINE-1\n2.\n3. 123 5 789012 LINE-3\n" + .t tag add sel 3.0 3.end + .t delete sel.first sel.last + .t edit undo + .t tag add sel 3.0 3.end + .t delete sel.first sel.last + .t edit undo + .t get 3.0 3.end +} -cleanup { + destroy .t +} -result {3. 123 5 789012 LINE-3} test text-28.1 {bug fix - 624372, ControlUtfProc long lines} -body { |