From 1225fcb36c1772b3d91b8ae8f65086eb518cee25 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 10 Apr 2021 09:25:06 +0000
Subject: Add non-regression test textMark-6.6 (failing before the fix, passing
 with the fix)

---
 tests/textMark.test | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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
-- 
cgit v0.12