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 => [ 20, 20, 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 cmp_ok($top->{x}, '==', 20, 'i3 mapped it to x=20');
  31 cmp_ok($top->{y}, '==', 20, 'i3 mapped it to y=20');
  32
  33 $window->unmap;
  34
  35 #####################################################################
  36 # check that a tiling window which is then made floating still has
  37 # at least the size of its initial geometry
  38 #####################################################################
  39
  40 $window = open_window(rect => [ 1, 1, 80, 90 ]);
  41
  42 isa_ok($window, 'X11::XCB::Window');
  43
  44 cmd 'floating enable';
  45 sync_with_i3;
  46
  47 ($absolute, $top) = $window->rect;
  48
  49 cmp_ok($absolute->{width}, '==', 80, "i3 let the width at 80");
  50 cmp_ok($absolute->{height}, '==', 90, "i3 let the height at 90");
  51
  52 $window->unmap;
  53
  54 done_testing;