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 i3test;
   7
   8 my $tmp = fresh_workspace;
   9
  10 #####################################################################
  11 # verify that there is no dock window yet
  12 #####################################################################
  13
  14 # Children of all dockareas
  15 my @docked = get_dock_clients;
  16
  17 is(@docked, 0, 'no dock clients yet');
  18
  19 #####################################################################
  20 # open a dock client
  21 #####################################################################
  22
  23 my $first = open_window({
  24         background_color => '#FF0000',
  25         window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
  26     });
  27
  28 #####################################################################
  29 # Open a second dock client
  30 #####################################################################
  31
  32 my $second = open_window({
  33         background_color => '#FF0000',
  34         window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
  35     });
  36
  37 #####################################################################
  38 # Kill the second dock client
  39 #####################################################################
  40 cmd "nop destroying dock client";
  41 $second->destroy;
  42
  43 #####################################################################
  44 # Now issue a focus command
  45 #####################################################################
  46 cmd 'focus right';
  47
  48 does_i3_live;
  49
  50 done_testing;