tests: rename files (00x-*.t is basic stuff, >=100-*.t are tests using IPC)
This commit is contained in:
33
testcases/t/004-unmanaged.t
Normal file
33
testcases/t/004-unmanaged.t
Normal file
@ -0,0 +1,33 @@
|
||||
#!perl
|
||||
# vim:ts=4:sw=4:expandtab
|
||||
|
||||
use i3test;
|
||||
use X11::XCB qw(:all);
|
||||
|
||||
BEGIN {
|
||||
use_ok('X11::XCB::Window');
|
||||
}
|
||||
|
||||
my $x = X11::XCB::Connection->new;
|
||||
|
||||
my $original_rect = X11::XCB::Rect->new(x => 0, y => 0, width => 30, height => 30);
|
||||
|
||||
my $window = $x->root->create_child(
|
||||
class => WINDOW_CLASS_INPUT_OUTPUT,
|
||||
rect => $original_rect,
|
||||
override_redirect => 1,
|
||||
background_color => '#C0C0C0',
|
||||
);
|
||||
|
||||
isa_ok($window, 'X11::XCB::Window');
|
||||
|
||||
is_deeply($window->rect, $original_rect, "rect unmodified before mapping");
|
||||
|
||||
$window->map;
|
||||
|
||||
my $new_rect = $window->rect;
|
||||
isa_ok($new_rect, 'X11::XCB::Rect');
|
||||
|
||||
is_deeply($new_rect, $original_rect, "window untouched");
|
||||
|
||||
done_testing;
|
Reference in New Issue
Block a user