git.sur5r.net Git - i3/i3/blob - testcases/t/162-regress-dock-urgent.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Regression test for setting the urgent hint on dock clients.
   5 # found in 4be3178d4d360c2996217d811e61161c84d25898
   6 #
   7 use i3test;
   8
   9 my $i3 = i3(get_socket_path());
  10
  11 my $tmp = fresh_workspace;
  12
  13 #####################################################################
  14 # verify that there is no dock window yet
  15 #####################################################################
  16
  17 # Children of all dockareas
  18 my @docked = get_dock_clients;
  19
  20 is(@docked, 0, 'no dock clients yet');
  21
  22 # open a dock client
  23
  24 my $window = open_window(
  25     window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
  26 );
  27
  28 #####################################################################
  29 # check that we can find it in the layout tree at the expected position
  30 #####################################################################
  31
  32 @docked = get_dock_clients;
  33 is(@docked, 1, 'one dock client found');
  34
  35 # verify the height
  36 my $docknode = $docked[0];
  37
  38 is($docknode->{rect}->{height}, 30, 'dock node has unchanged height');
  39
  40 $window->add_hint('urgency');
  41
  42 sync_with_i3;
  43
  44 does_i3_live;
  45
  46 done_testing;