git.sur5r.net Git - i3/i3/blob - testcases/t/154-regress-multiple-dock.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Regression test for closing one of multiple dock clients
   5 #
   6 use X11::XCB qw(:all);
   7 use i3test;
   8
   9 BEGIN {
  10     use_ok('X11::XCB::Window');
  11 }
  12
  13 my $x = X11::XCB::Connection->new;
  14
  15 my $tmp = fresh_workspace;
  16
  17 #####################################################################
  18 # verify that there is no dock window yet
  19 #####################################################################
  20
  21 # Children of all dockareas
  22 my @docked = get_dock_clients;
  23
  24 is(@docked, 0, 'no dock clients yet');
  25
  26 #####################################################################
  27 # open a dock client
  28 #####################################################################
  29
  30 my $first = open_window($x, {
  31         background_color => '#FF0000',
  32         window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
  33     });
  34
  35 #####################################################################
  36 # Open a second dock client
  37 #####################################################################
  38
  39 my $second = open_window($x, {
  40         background_color => '#FF0000',
  41         window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
  42     });
  43
  44 #####################################################################
  45 # Kill the second dock client
  46 #####################################################################
  47 cmd "nop destroying dock client";
  48 $second->destroy;
  49
  50 #####################################################################
  51 # Now issue a focus command
  52 #####################################################################
  53 cmd 'focus right';
  54
  55 does_i3_live;
  56
  57 done_testing;