From b1e49e8fcaf74233197cc64fae57ddefaa7045c0 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 2 May 2020 19:25:08 +0000
Subject: Add new test bind-33.19, further exercising simulation of the
 keyboard to trigger bindings containing several patterns.

---
 tests/bind.test | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/tests/bind.test b/tests/bind.test
index 8bd215a..7431079 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -6675,6 +6675,22 @@ test bind-33.18 {simulate use of the keyboard to trigger a pattern sequence with
 } -cleanup {
     destroy .t.f
 } -result {Esc_Ctrl_L(2)_Control-c}
+test bind-33.19 {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><KeyPress><KeyPress><Control-c> { lappend x "Esc_Key(2)_Control-c" }
+    event generate .t.f <Escape>
+    event generate .t.f <Alt_L>
+    event generate .t.f <Control_L>
+    event generate .t.f <Control-c>
+    set x
+} -cleanup {
+    destroy .t.f
+} -result {Esc_Key(2)_Control-c}
 
 test bind-34.1 {-warp works relatively to a window} -setup {
     toplevel .top
-- 
cgit v0.12