ok(!recv_take_focus($window), 'did not receive ClientMessage');
- my $con = shift get_ws_content($ws);
+ my ($nodes) = get_ws_content($ws);
+ my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;
ok(!recv_take_focus($window), 'did not receive ClientMessage');
- my $con = shift get_ws_content($ws);
+ my ($nodes) = get_ws_content($ws);
+ my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;
ok(!recv_take_focus($window), 'did not receive ClientMessage');
- my $con = shift get_ws_content($ws);
+ my ($nodes) = get_ws_content($ws);
+ my $con = shift @$nodes;
ok($con->{focused}, 'con is focused');
done_testing;
dpkg-dev devscripts git equivs \
clang clang-format-3.5 \
lintian \
- libanyevent-perl libanyevent-i3-perl libextutils-pkgconfig-perl xcb-proto cpanminus xvfb xserver-xephyr xauth libinline-perl libinline-c-perl libxml-simple-perl libmouse-perl libmousex-nativetraits-perl libextutils-depends-perl perl-modules libtest-deep-perl libtest-exception-perl libxml-parser-perl libtest-simple-perl libtest-fatal-perl libdata-dump-perl libtest-differences-perl libxml-tokeparser-perl libipc-run-perl libxcb-xtest0-dev libx11-xcb-perl libanyevent-i3-perl && \
+ libanyevent-perl libanyevent-i3-perl libextutils-pkgconfig-perl xcb-proto cpanminus xvfb xserver-xephyr xauth libinline-perl libinline-c-perl libxml-simple-perl libmouse-perl libmousex-nativetraits-perl libextutils-depends-perl perl libtest-deep-perl libtest-exception-perl libxml-parser-perl libtest-simple-perl libtest-fatal-perl libdata-dump-perl libtest-differences-perl libxml-tokeparser-perl libipc-run-perl libxcb-xtest0-dev libx11-xcb-perl libanyevent-i3-perl && \
rm -rf /var/lib/apt/lists/*
# Install i3 build dependencies.