3 use Test::More tests => 4;
7 use Time::HiRes qw(sleep);
10 use_ok('X11::XCB::Window');
13 X11::XCB::Connection->connect(':0');
15 my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
17 my $window = X11::XCB::Window->new(
18 class => WINDOW_CLASS_INPUT_OUTPUT,
19 rect => $original_rect,
20 background_color => '#C0C0C0',
23 isa_ok($window, 'X11::XCB::Window');
25 is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
32 my $new_rect = $window->rect;
33 ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");
35 diag( "Testing i3, Perl $], $^X" );