Add testcase for floating windows, add sleep to 01-tile.t

This commit is contained in:
Michael Stapelberg
2009-08-05 20:47:10 +02:00
parent 8d2cb53794
commit 6e77e9d3f2
3 changed files with 67 additions and 1 deletions

View File

@ -4,6 +4,7 @@ use Test::More tests => 4;
use Test::Deep;
use X11::XCB qw(:all);
use Data::Dumper;
use Time::HiRes qw(sleep);
BEGIN {
use_ok('X11::XCB::Window');
@ -27,6 +28,8 @@ is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
$window->create;
$window->map;
sleep(0.25);
my $new_rect = $window->rect;
ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");