2 # vim:ts=4:sw=4:expandtab
4 # Regression test for closing one of multiple dock clients
10 use_ok('X11::XCB::Window');
13 my $x = X11::XCB::Connection->new;
15 my $tmp = fresh_workspace;
17 #####################################################################
18 # verify that there is no dock window yet
19 #####################################################################
21 # Children of all dockareas
22 my @docked = get_dock_clients;
24 is(@docked, 0, 'no dock clients yet');
26 #####################################################################
28 #####################################################################
30 my $first = open_window($x, {
31 background_color => '#FF0000',
32 window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
35 #####################################################################
36 # Open a second dock client
37 #####################################################################
39 my $second = open_window($x, {
40 background_color => '#FF0000',
41 window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
44 #####################################################################
45 # Kill the second dock client
46 #####################################################################
47 cmd "nop destroying dock client";
50 #####################################################################
51 # Now issue a focus command
52 #####################################################################