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 X11::XCB qw(:all);
   7 use i3test;
   8
   9 BEGIN {
  10     use_ok('X11::XCB::Window');
  11 }
  12
  13 my $x = X11::XCB::Connection->new;
  14
  15 my $tmp = fresh_workspace;
  16
  17 #####################################################################
  18 # open a window, verify it’s not in fullscreen mode
  19 #####################################################################
  20
  21 my $win = open_window($x);
  22
  23 my $nodes = get_ws_content $tmp;
  24 is(@$nodes, 1, 'exactly one client');
  25 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen');
  26
  27 #####################################################################
  28 # make it fullscreen
  29 #####################################################################
  30
  31 cmd 'nop making fullscreen';
  32 cmd 'fullscreen';
  33
  34 my $nodes = get_ws_content $tmp;
  35 is($nodes->[0]->{fullscreen_mode}, 1, 'client fullscreen now');
  36
  37 #####################################################################
  38 # send level up, try to un-fullscreen
  39 #####################################################################
  40 cmd 'level up';
  41 cmd 'fullscreen';
  42
  43 my $nodes = get_ws_content $tmp;
  44 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen any longer');
  45
  46 does_i3_live;
  47
  48 done_testing;