Fixed bug [1669632fff] case (i) - autoseparator was missing on <Control-1>

1 files changed, 14 insertions, 0 deletions

diff --git a/tests/text.test b/tests/text.test
index fa00ce3..e170fb4 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -3205,6 +3205,20 @@ test text-25.18 {patch 1469210 - inserting after undo} -setup {
 } -cleanup {
     destroy .t
 } -result 1
+test text-25.19 {patch 1669632 (i) - undo after Contron-1} -setup {
+    destroy .t
+} -body {
+    text .t -undo 1
+    .t insert end foo\nbar
+    .t edit reset
+    .t insert 2.2 WORLD
+    event generate .t <Control-1> -x 1 -y 1
+    .t insert insert HELLO
+    .t edit undo
+    .t get 2.2 2.7
+} -cleanup {
+    destroy .t
+} -result WORLD
 
 test text-26.1 {bug fix - 624372, ControlUtfProc long lines} {
     destroy .t