git.sur5r.net Git - i3/i3/blob - testcases/t/163-wm-state.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Tests if WM_STATE is WM_STATE_NORMAL when mapped and WM_STATE_WITHDRAWN when
   5 # unmapped.
   6 #
   7 use X11::XCB qw(:all);
   8 use i3test;
   9
  10 my $x = X11::XCB::Connection->new;
  11
  12 my $window = open_window($x);
  13
  14 sync_with_i3($x);
  15
  16 is($window->state, ICCCM_WM_STATE_NORMAL, 'WM_STATE normal');
  17
  18 $window->unmap;
  19
  20 wait_for_unmap $x;
  21
  22 is($window->state, ICCCM_WM_STATE_WITHDRAWN, 'WM_STATE withdrawn');
  23
  24 done_testing;