tests: rename files (00x-*.t is basic stuff, >=100-*.t are tests using IPC)

This commit is contained in:
Michael Stapelberg
2011-10-08 14:38:50 +01:00
parent c48a092e24
commit ae1ab9eb27
74 changed files with 15 additions and 0 deletions

View File

@ -0,0 +1,59 @@
#!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;