gri3-wm/testcases/t/02-fullscreen.t

68 lines
1.4 KiB
Perl
Raw Normal View History

2009-07-16 13:43:43 +02:00
#!perl
use Test::More tests => 8;
2009-07-16 13:43:43 +02:00
use Test::Deep;
use X11::XCB qw(:all);
use Data::Dumper;
2009-07-16 13:43:43 +02:00
# We use relatively long sleeps (1/4 second) to make sure the window manager
# reacted.
2009-07-23 01:14:36 +02:00
use Time::HiRes qw(sleep);
2009-07-16 13:43:43 +02:00
BEGIN {
use_ok('X11::XCB::Window');
}
X11::XCB::Connection->connect(':0');
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
my $window = X11::XCB::Window->new(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => $original_rect,
background_color => '#C0C0C0',
2009-07-16 13:43:43 +02:00
);
isa_ok($window, 'X11::XCB::Window');
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
$window->create;
$window->map;
2009-07-23 01:14:36 +02:00
sleep(0.25);
2009-07-16 13:43:43 +02:00
my $new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");
$original_rect = $new_rect;
2009-07-23 01:14:36 +02:00
sleep(0.25);
2009-07-16 13:43:43 +02:00
$window->fullscreen(1);
2009-07-23 01:14:36 +02:00
sleep(0.25);
2009-07-16 13:43:43 +02:00
$new_rect = $window->rect;
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");
2009-07-16 13:43:43 +02:00
diag( "Testing i3, Perl $], $^X" );