2 # vim:ts=4:sw=4:expandtab
4 # Please read the following documents before working on tests:
5 # • https://build.i3wm.org/docs/testsuite.html
8 # • https://build.i3wm.org/docs/lib-i3test.html
9 # (alternatively: perldoc ./testcases/lib/i3test.pm)
11 # • https://build.i3wm.org/docs/ipc.html
14 # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
15 # (unless you are already familiar with Perl)
17 # Verifies that --release key bindings are not shadowed by non-release key
18 # bindings for the same key.
20 # Bug still in: 4.11-103-gc8d51b4
21 # Bug introduced with commit bf3cd41b5ddf1e757515ab5fbf811be56e5f69cc
22 use i3test i3_config => <<EOT;
24 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
26 bindsym Print nop Print
27 bindsym --release Control+Print nop Control+Print
30 bindsym Mod1+b nop Mod1+b
31 bindsym --release Mod1+Shift+b nop Mod1+Shift+b release
33 bindsym --release Shift+x nop Shift+x
38 bindcode --release 133 nop 133 release
42 bindcode 27 --release mode "default"
44 bindsym Mod1+r mode "a_mode"
45 bindcode 27 nop do not receive
48 use ExtUtils::PkgConfig;
51 skip "libxcb-xkb too old (need >= 1.11)", 1 unless
52 ExtUtils::PkgConfig->atleast_version('xcb-xkb', '1.11');
54 is(listen_for_binding(
56 xtest_key_press(107); # Print
57 xtest_key_release(107); # Print
62 'triggered the "Print" keybinding');
64 is(listen_for_binding(
66 xtest_key_press(37); # Control_L
67 xtest_key_press(107); # Print
68 xtest_key_release(107); # Print
69 xtest_key_release(37); # Control_L
74 'triggered the "Control+Print" keybinding');
76 is(listen_for_binding(
78 xtest_key_press(64); # Alt_L
79 xtest_key_press(56); # b
80 xtest_key_release(56); # b
81 xtest_key_release(64); # Alt_L
86 'triggered the "Mod1+b" keybinding');
88 is(listen_for_binding(
90 xtest_key_press(64); # Alt_L
91 xtest_key_press(50); # Shift_L
92 xtest_key_press(56); # b
93 xtest_key_release(56); # b
94 xtest_key_release(50); # Shift_L
95 xtest_key_release(64); # Alt_L
99 'Mod1+Shift+b release',
100 'triggered the "Mod1+Shift+b" release keybinding');
102 is(listen_for_binding(
104 xtest_key_press(50); # Shift
105 xtest_key_press(53); # x
106 xtest_key_release(53); # x
107 xtest_key_release(50); # Shift
112 'triggered the "Shift+x" keybinding by releasing x first');
114 is(listen_for_binding(
116 xtest_key_press(50); # Shift
117 xtest_key_press(53); # x
118 xtest_key_release(50); # Shift
119 xtest_key_release(53); # x
124 'triggered the "Shift+x" keybinding by releasing Shift first');
126 is(listen_for_binding(
128 xtest_key_press(133);
133 'triggered the 133 keycode press binding');
135 is(listen_for_binding(
137 xtest_key_release(133);
142 'triggered the 133 keycode release binding');
145 is(listen_for_binding(
147 xtest_key_press(64); # Alt_l
148 xtest_key_press(27); # r
149 xtest_key_release(27); # r
150 xtest_key_release(64); # Alt_l
155 "switched to mode \"a_mode\" $i/2");
157 is(listen_for_binding(
159 xtest_key_press(27); # r
160 xtest_key_release(27); # r
165 "switched back to default $i/2");