From: Ingo Bürk Date: Thu, 4 Jun 2015 13:55:39 +0000 (+0200) Subject: Added testcase for #1695. X-Git-Tag: 4.11~91^2 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=refs%2Fpull%2F1697%2Fhead;p=i3%2Fi3 Added testcase for #1695. --- diff --git a/testcases/t/525-i3bar-mouse-bindings.t b/testcases/t/525-i3bar-mouse-bindings.t new file mode 100644 index 00000000..eabcad7a --- /dev/null +++ b/testcases/t/525-i3bar-mouse-bindings.t @@ -0,0 +1,104 @@ +#!perl +# vim:ts=4:sw=4:expandtab +# +# Please read the following documents before working on tests: +# • http://build.i3wm.org/docs/testsuite.html +# (or docs/testsuite) +# +# • http://build.i3wm.org/docs/lib-i3test.html +# (alternatively: perldoc ./testcases/lib/i3test.pm) +# +# • http://build.i3wm.org/docs/ipc.html +# (or docs/ipc) +# +# • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf +# (unless you are already familiar with Perl) +# +# Ensures that mouse bindings on the i3bar work correctly. +# Ticket: #1695 +use i3test i3_autostart => 0; + +my ($cv, $timer); +sub reset_test { + $cv = AE::cv; + $timer = AE::timer(1, 0, sub { $cv->send(0); }); +} + +my $config = < /dev/null); + skip 'xdotool is required for this test', 1 if $?; + + my $pid = launch_with_config($config); + my $i3 = i3(get_socket_path()); + $i3->connect()->recv; + my $ws = fresh_workspace; + + reset_test; + $i3->subscribe({ + window => sub { + my ($event) = @_; + if ($event->{change} eq 'focus') { + $cv->send($event->{container}); + } + }, + })->recv; + + my $left = open_window; + my $right = open_window; + sync_with_i3; + my $con = $cv->recv; + is($con->{window}, $right->{id}, 'focus is initially on the right container'); + reset_test; + + qx(xdotool mousemove 3 3 click 1); + sync_with_i3; + $con = $cv->recv; + is($con->{window}, $left->{id}, 'button 1 moves focus left'); + reset_test; + + qx(xdotool mousemove 3 3 click 2); + sync_with_i3; + $con = $cv->recv; + is($con->{window}, $right->{id}, 'button 2 moves focus right'); + reset_test; + + qx(xdotool mousemove 3 3 click 3); + sync_with_i3; + $con = $cv->recv; + is($con->{window}, $left->{id}, 'button 3 moves focus left'); + reset_test; + + qx(xdotool mousemove 3 3 click 4); + sync_with_i3; + $con = $cv->recv; + is($con->{window}, $right->{id}, 'button 4 moves focus right'); + reset_test; + + qx(xdotool mousemove 3 3 click 5); + sync_with_i3; + $con = $cv->recv; + is($con->{window}, $left->{id}, 'button 5 moves focus left'); + reset_test; + + exit_gracefully($pid); + +} + +done_testing;