Extend testcase for dock clients with wm_transient_for hint

This commit is contained in:
Michael Stapelberg 2010-01-01 16:19:55 +01:00
parent 65cae2cad1
commit 8a9b57c874
1 changed files with 13 additions and 0 deletions

View File

@ -43,4 +43,17 @@ sleep 0.25;
my $rect = $window->rect; my $rect = $window->rect;
is($rect->width, $primary->rect->width, 'dock client is as wide as the screen'); is($rect->width, $primary->rect->width, 'dock client is as wide as the screen');
my $fwindow = $x->root->create_child(
class => WINDOW_CLASS_INPUT_OUTPUT,
rect => [ 0, 0, 30, 30],
background_color => '#FF0000',
type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),
);
$fwindow->transient_for($window);
$fwindow->map;
sleep 0.25;
diag( "Testing i3, Perl $], $^X" ); diag( "Testing i3, Perl $], $^X" );