2 # vim:ts=4:sw=4:expandtab
5 use X11::XCB 'WINDOW_CLASS_INPUT_OUTPUT';
7 my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
9 my $window = $x->root->create_child(
10 class => WINDOW_CLASS_INPUT_OUTPUT,
11 rect => $original_rect,
12 override_redirect => 1,
13 background_color => '#C0C0C0',
16 isa_ok($window, 'X11::XCB::Window');
18 is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
22 my $new_rect = $window->rect;
23 isa_ok($new_rect, 'X11::XCB::Rect');
25 is_deeply($new_rect, $original_rect, "window untouched");