2 # vim:ts=4:sw=4:expandtab
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 override_redirect => 1,
19 background_color => '#C0C0C0',
22 isa_ok($window, 'X11::XCB::Window');
24 is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
28 my $new_rect = $window->rect;
29 isa_ok($new_rect, 'X11::XCB::Rect');
31 is_deeply($new_rect, $original_rect, "window untouched");
33 diag( "Testing i3, Perl $], $^X" );