diff options
| -rw-r--r-- | tests/spinbox.test | 20 | ||||
| -rw-r--r-- | tests/ttk/spinbox.test | 21 |
2 files changed, 41 insertions, 0 deletions
diff --git a/tests/spinbox.test b/tests/spinbox.test index 1ef48c5..6a700b5 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -3873,6 +3873,26 @@ test spinbox-25.1 {textvariable lives in a non-existing namespace} -setup { } -cleanup { destroy .s } -result {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} +test spinbox-25.3 {Bugs [2a32225cd1] and [9fa3e08243]} -setup { + destroy .s + pack [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} # Collected comments about lacks from the test # XXX Still need to write tests for SpinboxBlinkProc, SpinboxFocusProc, diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test index 9c82cd7..4a22dfc 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 |