Merge 8.6

1 files changed, 21 insertions, 0 deletions

diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test
index e2b91f6..1f32049 100644
--- a/tests/ttk/spinbox.test
+++ b/tests/ttk/spinbox.test
@@ -287,6 +287,27 @@ test spinbox-4.2 "Increment with duplicates in -values, no wrap" -setup {
     unset -nocomplain ::spinbox_test max
 } -result {one two three 4 5 two six six six two 5 4 three two one one one one}
 
+test spinbox-11.2 {Bugs [2a32225cd1] and [9fa3e08243]} -setup {
+    destroy .s
+    pack [ttk::spinbox .s]
+    update
+    set res {}
+} -body {
+    .s insert end "A sample text"
+    .s icursor end
+    event generate .s <<PrevWord>>  ; # shall move insert to index 9
+    .s delete insert end
+    lappend res [.s get]
+    .s delete 0 end
+    .s insert end "A sample text"
+    .s icursor 2
+    event generate .s <<NextWord>>  ; # shall move insert to index 9
+    .s delete 0 insert
+    lappend res [.s get]
+} -cleanup {
+    destroy .s
+} -result {{A sample } text}
+
 
 # nostomp: NB intentional difference between ttk::spinbox and tk::spinbox;
 # see also #1439266