diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-29 22:27:52 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-29 22:27:52 (GMT) |
commit | 331436fe3c1504028557d2b648bbf4cdbf8fa78f (patch) | |
tree | c77a6ed7edb5a23bd4a582adbd6ba1ee58458708 /tests | |
parent | ce4009fc3a5ea635909ace420e5cfb373f256853 (diff) | |
download | tk-331436fe3c1504028557d2b648bbf4cdbf8fa78f.zip tk-331436fe3c1504028557d2b648bbf4cdbf8fa78f.tar.gz tk-331436fe3c1504028557d2b648bbf4cdbf8fa78f.tar.bz2 |
Test <<NextWord>>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/spinbox.test | 11 | ||||
-rw-r--r-- | tests/ttk/spinbox.test | 11 |
2 files changed, 18 insertions, 4 deletions
diff --git a/tests/spinbox.test b/tests/spinbox.test index 4187966..6cb52e9 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -3892,15 +3892,22 @@ 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 - .s get + 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 } +} -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 0a3f943..1f32049 100644 --- a/tests/ttk/spinbox.test +++ b/tests/ttk/spinbox.test @@ -291,15 +291,22 @@ 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 - .s get + 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 } +} -result {{A sample } text} # nostomp: NB intentional difference between ttk::spinbox and tk::spinbox; |