5 use Time::HiRes qw(sleep);
8 use_ok('X11::XCB::Window');
11 my $x = X11::XCB::Connection->new;
13 my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
15 my $window = $x->root->create_child(
16 class => WINDOW_CLASS_INPUT_OUTPUT,
17 rect => $original_rect,
18 background_color => '#C0C0C0',
21 isa_ok($window, 'X11::XCB::Window');
23 is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
29 my $new_rect = $window->rect;
30 ok(!eq_deeply($new_rect, $original_rect), "Window got repositioned");
32 diag( "Testing i3, Perl $], $^X" );