diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-04-10 09:25:06 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-04-10 09:25:06 (GMT) |
| commit | 1225fcb36c1772b3d91b8ae8f65086eb518cee25 (patch) | |
| tree | c6770d50657610709aac3181927471a980111580 /tests | |
| parent | ef3aaf6a85ae1d5f9fabfe4372535b9df454cd9b (diff) | |
| download | tk-1225fcb36c1772b3d91b8ae8f65086eb518cee25.zip tk-1225fcb36c1772b3d91b8ae8f65086eb518cee25.tar.gz tk-1225fcb36c1772b3d91b8ae8f65086eb518cee25.tar.bz2 | |
Add non-regression test textMark-6.6 (failing before the fix, passing with the fix)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/textMark.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/textMark.test b/tests/textMark.test index 043ff82..1335464 100644 --- a/tests/textMark.test +++ b/tests/textMark.test @@ -182,6 +182,18 @@ test textMark-6.5 {insert and current marks in an empty peer - bug 3487407} -bod } -cleanup { .t configure -startline {} -endline {} } -result {1.0} +test textMark-6.6 {attempt to move the insert mark beyond peer -endline - bug 34db75c0ac} -body { + .t peer create .p -startline 1 -endline 2 + pack .p + update + .p mark set insert 1.0 + focus -force .p + event generate .p <<NextLine>> + event generate .p <<NextLine>> ; # shall not error out + set res [.p index insert] +} -cleanup { + destroy .p +} -result {1.9} test textMark-7.1 {MarkFindNext - invalid mark name} -body { .t mark next bogus |