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
34 use ExtUtils::PkgConfig;
37 skip "libxcb-xkb too old (need >= 1.11)", 1 unless
38 ExtUtils::PkgConfig->atleast_version('xcb-xkb', '1.11');
40 is(listen_for_binding(
42 xtest_key_press(107); # Print
43 xtest_key_release(107); # Print
48 'triggered the "Print" keybinding');
50 is(listen_for_binding(
52 xtest_key_press(37); # Control_L
53 xtest_key_press(107); # Print
54 xtest_key_release(107); # Print
55 xtest_key_release(37); # Control_L
60 'triggered the "Control+Print" keybinding');
62 is(listen_for_binding(
64 xtest_key_press(64); # Alt_L
65 xtest_key_press(56); # b
66 xtest_key_release(56); # b
67 xtest_key_release(64); # Alt_L
72 'triggered the "Mod1+b" keybinding');
74 is(listen_for_binding(
76 xtest_key_press(64); # Alt_L
77 xtest_key_press(50); # Shift_L
78 xtest_key_press(56); # b
79 xtest_key_release(56); # b
80 xtest_key_release(50); # Shift_L
81 xtest_key_release(64); # Alt_L
85 'Mod1+Shift+b release',
86 'triggered the "Mod1+Shift+b" release keybinding');