Change testcases to work with the released version of X11::XCB
This commit is contained in:
@ -10,11 +10,11 @@ BEGIN {
|
||||
use_ok('X11::XCB::Window');
|
||||
}
|
||||
|
||||
X11::XCB::Connection->connect(':0');
|
||||
my $x = X11::XCB::Connection->new;
|
||||
|
||||
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
|
||||
|
||||
my $window = X11::XCB::Window->new(
|
||||
my $window = $x->root->create_child(
|
||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||
rect => $original_rect,
|
||||
override_redirect => 1,
|
||||
@ -25,7 +25,6 @@ isa_ok($window, 'X11::XCB::Window');
|
||||
|
||||
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
|
||||
|
||||
$window->create;
|
||||
$window->map;
|
||||
|
||||
my $new_rect = $window->rect;
|
||||
|
Reference in New Issue
Block a user