git.sur5r.net Git - i3/i3/blob - testcases/t/57-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 my $i3 = i3(get_socket_path());
  15
  16 my $tmp = fresh_workspace;
  17
  18 #####################################################################
  19 # open a window, verify it’s not in fullscreen mode
  20 #####################################################################
  21
  22 my $win = open_standard_window($x);
  23
  24 my $nodes = get_ws_content $tmp;
  25 is(@$nodes, 1, 'exactly one client');
  26 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen');
  27
  28 #####################################################################
  29 # make it fullscreen
  30 #####################################################################
  31
  32 cmd 'nop making fullscreen';
  33 cmd 'fullscreen';
  34
  35 my $nodes = get_ws_content $tmp;
  36 is($nodes->[0]->{fullscreen_mode}, 1, 'client fullscreen now');
  37
  38 #####################################################################
  39 # send level up, try to un-fullscreen
  40 #####################################################################
  41 cmd 'level up';
  42 cmd 'fullscreen';
  43
  44 my $nodes = get_ws_content $tmp;
  45 is($nodes->[0]->{fullscreen_mode}, 0, 'client not fullscreen any longer');
  46
  47 does_i3_live;
  48
  49 done_testing;