Add currently failing tests demonstrating bug [2a32225cd1].

2 files changed, 38 insertions, 0 deletions

diff --git a/tests/entry.test b/tests/entry.test
index c0fdfcd..dcddb5b 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -3580,6 +3580,25 @@ test entry-25.2 {Bug [5d991b822e]} {
     destroy .b
     unset new
 } {}
+test entry-25.3 {Bug [2a32225cd1] - Navigation in a password made of several words} -setup {
+    destroy .e
+    pack [entry .e -show *]
+    update
+    set res {}
+} -body {
+    .e insert end "A sample password made of several words"
+    .e icursor end
+    event generate .e <<PrevWord>>  ; # shall move insert to index 0
+    .e delete insert end
+    lappend res [.e get]
+    .e insert end "A sample password made of several words"
+    .e icursor 2
+    event generate .e <<NextWord>>  ; # shall move insert to index end
+    .e delete 0 insert
+    lappend res [.e get]
+} -cleanup {
+    destroy .e
+} -result {{} {}}
 
 
 # Gathered comments about lacks
diff --git a/tests/ttk/entry.test b/tests/ttk/entry.test
index fa53874..c3dd885 100644
--- a/tests/ttk/entry.test
+++ b/tests/ttk/entry.test
@@ -339,5 +339,24 @@ test entry-11.1 {Bug [2830360fff] - Don't loose invalid at focus events} -setup
 } -result {invalid invalid} -cleanup {
     destroy .e
 }
+test entry-11.2 {Bug [2a32225cd1] - Navigation in a password made of several words} -setup {
+    destroy .e
+    pack [ttk::entry .e -show *]
+    update
+    set res {}
+} -body {
+    .e insert end "A sample password made of several words"
+    .e icursor end
+    event generate .e <<PrevWord>>  ; # shall move insert to index 0
+    .e delete insert end
+    lappend res [.e get]
+    .e insert end "A sample password made of several words"
+    .e icursor 2
+    event generate .e <<NextWord>>  ; # shall move insert to index end
+    .e delete 0 insert
+    lappend res [.e get]
+} -cleanup {
+    destroy .e
+} -result {{} {}}
 
 tcltest::cleanupTests