gri3-wm/testcases/t/162-regress-dock-urgent.t

60 lines
1.3 KiB
Perl
Raw Normal View History

#!perl
# vim:ts=4:sw=4:expandtab
#
# Regression test for setting the urgent hint on dock clients.
# found in 4be3178d4d360c2996217d811e61161c84d25898
#
use X11::XCB qw(:all);
use i3test;
BEGIN {
use_ok('X11::XCB::Window');
}
my $x = X11::XCB::Connection->new;
my $i3 = i3(get_socket_path());
my $tmp = fresh_workspace;
#####################################################################
# verify that there is no dock window yet
#####################################################################
# Children of all dockareas
my @docked = get_dock_clients;
is(@docked, 0, 'no dock clients yet');
# open a dock client
my $window = $x->root->create_child(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => [ 0, 0, 30, 30],
background_color => '#FF0000',
window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
);
$window->map;
sleep 0.25;
#####################################################################
# check that we can find it in the layout tree at the expected position
#####################################################################
@docked = get_dock_clients;
is(@docked, 1, 'one dock client found');
# verify the height
my $docknode = $docked[0];
is($docknode->{rect}->{height}, 30, 'dock node has unchanged height');
$window->add_hint('urgency');
sync_with_i3($x);
does_i3_live;
done_testing;