git.sur5r.net Git - i3/i3/blob - testcases/t/157-regress-fullscreen-level-up.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Regression test: level up should be a noop during fullscreen mode
   5 #
   6 use i3test;
   7
   8 my $tmp = fresh_workspace;
   9
  10 #####################################################################
  11 # open a window, verify it’s not in fullscreen mode
  12 #####################################################################
  13
  14 my $win = open_window;
  15
  16 my $nodes = get_ws_content $tmp;
  17 is(@$nodes, 1, 'exactly one client');
  18 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen');
  19
  20 #####################################################################
  21 # make it fullscreen
  22 #####################################################################
  23
  24 cmd 'nop making fullscreen';
  25 cmd 'fullscreen';
  26
  27 $nodes = get_ws_content $tmp;
  28 is($nodes->[0]->{fullscreen_mode}, 1, 'client fullscreen now');
  29
  30 #####################################################################
  31 # send level up, try to un-fullscreen
  32 #####################################################################
  33 cmd 'level up';
  34 cmd 'fullscreen';
  35
  36 $nodes = get_ws_content $tmp;
  37 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen any longer');
  38
  39 does_i3_live;
  40
  41 done_testing;