diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-05-02 16:58:33 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-05-02 16:58:33 (GMT) |
| commit | 0b6034171d1c461e9c7758e6ba29962052d89ad3 (patch) | |
| tree | 2113747ed2bcd850e4016e1ff9f0a971c2f48b9b /tests | |
| parent | 15e5fa342b580bd3d22f1c83bffc4ae1c171cf65 (diff) | |
| download | tk-0b6034171d1c461e9c7758e6ba29962052d89ad3.zip tk-0b6034171d1c461e9c7758e6ba29962052d89ad3.tar.gz tk-0b6034171d1c461e9c7758e6ba29962052d89ad3.tar.bz2 | |
Add (currently failing) tests bind-33.16, bind-33.17 and bind-33.18 exercising the case reported in bug [16ef161925]
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/bind.test | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 7cb515d..8bd215a 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6624,6 +6624,57 @@ test bind-33.15 {prefer last in case of homogeneous equal patterns} -setup { # because both bindings are homogeneous equal, so the most recently defined # must be preferred. } -result {last} +test bind-33.16 {simulate use of the keyboard to trigger a pattern sequence with modifier - bug [16ef161925]} -setup { + pack [frame .t.f] + focus -force .t.f + update + set x {} +} -body { + bind .t.f <Escape><Control-c> { lappend x "Esc_Control-c" } + event generate .t.f <Escape> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control-c> + set x +} -cleanup { + destroy .t.f +} -result {Esc_Control-c} +test bind-33.17 {simulate use of the keyboard to trigger a pattern sequence with modifier - bug [16ef161925]} -setup { + pack [frame .t.f] + focus -force .t.f + update + set x {} +} -body { + bind .t.f <Escape><Control-c> { lappend x "Esc_Control-c" } + bind .t.f <Escape><Control_L><Control-c> { lappend x "Esc_Ctrl_L_Control-c" } + event generate .t.f <Escape> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control-c> + set x +} -cleanup { + destroy .t.f +} -result {Esc_Ctrl_L_Control-c} +test bind-33.18 {simulate use of the keyboard to trigger a pattern sequence with modifier - bug [16ef161925]} -setup { + pack [frame .t.f] + focus -force .t.f + update + set x {} +} -body { + bind .t.f <Escape><Control-c> { lappend x "Esc_Control-c" } + bind .t.f <Escape><Control_L><Control-c> { lappend x "Esc_Ctrl_L_Control-c" } + bind .t.f <Escape><Control_L><Control_L><Control-c> { lappend x "Esc_Ctrl_L(2)_Control-c" } + event generate .t.f <Escape> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control_L> + event generate .t.f <Control-c> + set x +} -cleanup { + destroy .t.f +} -result {Esc_Ctrl_L(2)_Control-c} test bind-34.1 {-warp works relatively to a window} -setup { toplevel .top |