X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=testcases%2Ft%2F102-dock.t;h=ce33f052166fdf55e86e3617e34a430ad4b03dfe;hb=fce7570f961bcb373e1ac0965bb3ed41747e0d3b;hp=f97fa21cf2f598cd27af10b1f4b73c686b73c60a;hpb=e9acd36ce438624751e14b56fee5bd79318cbad0;p=i3%2Fi3 diff --git a/testcases/t/102-dock.t b/testcases/t/102-dock.t index f97fa21c..ce33f052 100644 --- a/testcases/t/102-dock.t +++ b/testcases/t/102-dock.t @@ -23,7 +23,7 @@ my $screens = $x->screens; my $primary = first { $_->primary } @{$screens}; # TODO: focus the primary screen before -my $window = open_window($x, { +my $window = open_window({ window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'), }); @@ -76,7 +76,7 @@ is(@docked, 0, 'no more dock clients'); # check if it gets placed on bottom (by coordinates) ##################################################################### -$window = open_window($x, { +$window = open_window({ rect => [ 0, 1000, 30, 30 ], background_color => '#FF0000', window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'), @@ -100,7 +100,7 @@ is(@docked, 0, 'no more dock clients'); # check if it gets placed on bottom (by hint) ##################################################################### -$window = open_window($x, { +$window = open_window({ dont_map => 1, rect => [ 0, 1000, 30, 30 ], background_color => '#FF0000', @@ -137,7 +137,7 @@ wait_for_unmap $window; @docked = get_dock_clients(); is(@docked, 0, 'no more dock clients'); -$window = open_window($x, { +$window = open_window({ dont_map => 1, rect => [ 0, 1000, 30, 30 ], background_color => '#FF0000', @@ -174,7 +174,7 @@ $window->destroy; # regression test: transient dock client ##################################################################### -my $fwindow = open_window($x, { +my $fwindow = open_window({ dont_map => 1, background_color => '#FF0000', window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_DOCK'),