2 # vim:ts=4:sw=4:expandtab
4 # Regression test for closing one of multiple dock clients
8 my $tmp = fresh_workspace;
10 #####################################################################
11 # verify that there is no dock window yet
12 #####################################################################
14 # Children of all dockareas
15 my @docked = get_dock_clients;
17 is(@docked, 0, 'no dock clients yet');
19 #####################################################################
21 #####################################################################
23 my $first = open_window({
24 background_color => '#FF0000',
25 window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
28 #####################################################################
29 # Open a second dock client
30 #####################################################################
32 my $second = open_window({
33 background_color => '#FF0000',
34 window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
37 #####################################################################
38 # Kill the second dock client
39 #####################################################################
40 cmd "nop destroying dock client";
43 #####################################################################
44 # Now issue a focus command
45 #####################################################################