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 i3test;
   8 use X11::XCB qw(ICCCM_WM_STATE_NORMAL ICCCM_WM_STATE_WITHDRAWN);
   9
  10 my $window = open_window;
  11
  12 is($window->state, ICCCM_WM_STATE_NORMAL, 'WM_STATE normal');
  13
  14 $window->unmap;
  15
  16 wait_for_unmap $window;
  17
  18 is($window->state, ICCCM_WM_STATE_WITHDRAWN, 'WM_STATE withdrawn');
  19
  20 done_testing;