git.sur5r.net Git - i3/i3/blob - testcases/t/005-floating.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3
   4 use i3test;
   5
   6 # Create a floating window which is smaller than the minimum enforced size of i3
   7 my $window = open_floating_window;
   8
   9 isa_ok($window, 'X11::XCB::Window');
  10
  11 my ($absolute, $top) = $window->rect;
  12
  13 ok($window->mapped, 'Window is mapped');
  14 cmp_ok($absolute->{width}, '>=', 75, 'i3 raised the width to 75');
  15 cmp_ok($absolute->{height}, '>=', 50, 'i3 raised the height to 50');
  16
  17 ok($absolute->{x} != 0 && $absolute->{y} != 0, 'i3 did not map it to (0x0)');
  18
  19 $window->unmap;
  20
  21 $window = open_floating_window(rect => [ 1, 1, 80, 90 ]);
  22
  23 isa_ok($window, 'X11::XCB::Window');
  24
  25 ($absolute, $top) = $window->rect;
  26
  27 cmp_ok($absolute->{width}, '==', 80, "i3 let the width at 80");
  28 cmp_ok($absolute->{height}, '==', 90, "i3 let the height at 90");
  29
  30 # We need to compare the position with decorations due to the way
  31 # we do decoration rendering (on the parent frame) in the tree branch
  32 cmp_ok($top->{x}, '==', 1, 'i3 mapped it to x=1');
  33 cmp_ok($top->{y}, '==', 19, 'i3 mapped it to y=18');
  34
  35 $window->unmap;
  36
  37 #####################################################################
  38 # check that a tiling window which is then made floating still has
  39 # at least the size of its initial geometry
  40 #####################################################################
  41
  42 $window = open_window(rect => [ 1, 1, 80, 90 ]);
  43
  44 isa_ok($window, 'X11::XCB::Window');
  45
  46 cmd 'floating enable';
  47 sync_with_i3;
  48
  49 ($absolute, $top) = $window->rect;
  50
  51 cmp_ok($absolute->{width}, '==', 80, "i3 let the width at 80");
  52 cmp_ok($absolute->{height}, '==', 90, "i3 let the height at 90");
  53
  54 $window->unmap;
  55
  56 done_testing;