nixo
/
gri3-wm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Expand fullscreen test to setting the hint before mapping the window

This commit is contained in:
Michael Stapelberg 2009-08-21 12:15:53 +02:00
parent 4da54f1279
commit a1e9f75fe5
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
testcases/t/02-fullscreen.t
View File

@ -1,8 +1,9 @@
#!perl #!perl
use Test::More tests => 5; use Test::More tests => 8;
use Test::Deep; use Test::Deep;
use X11::XCB qw(:all); use X11::XCB qw(:all);
use Data::Dumper;
# We use relatively long sleeps (1/4 second) to make sure the window manager # We use relatively long sleeps (1/4 second) to make sure the window manager
# reacted. # reacted.
@ -45,4 +46,23 @@ sleep(0.25);
$new_rect = $window->rect; $new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen"); ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen");
$window->unmap;
$window = X11::XCB::Window->new(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => $original_rect,
background_color => 61440,
);
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
$window->create;
$window->fullscreen(1);
$window->map;
sleep(0.25);
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned after fullscreen");
ok($window->mapped, "Window is mapped after opening it in fullscreen mode");
diag( "Testing i3, Perl $], $^X" ); diag( "Testing i3, Perl $], $^X" );