Added testcase for changing _NET_WM_WINDOW_TYPE after the window is already managed.
This commit is contained in:
parent
1f472b454c
commit
18c45a7f09
|
@ -408,6 +408,39 @@ EOT
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
##############################################################
|
||||||
|
# 11: check that the criterion 'window_type' works if the
|
||||||
|
# _NET_WM_WINDOW_TYPE is changed after managing.
|
||||||
|
##############################################################
|
||||||
|
|
||||||
|
while (my ($window_type, $atom) = each %window_types) {
|
||||||
|
|
||||||
|
$config = <<"EOT";
|
||||||
|
# i3 config file (v4)
|
||||||
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
||||||
|
for_window [window_type="$window_type"] floating enable, mark branded
|
||||||
|
EOT
|
||||||
|
|
||||||
|
$pid = launch_with_config($config);
|
||||||
|
$tmp = fresh_workspace;
|
||||||
|
|
||||||
|
$window = open_window();
|
||||||
|
|
||||||
|
my $atomname = $x->atom(name => '_NET_WM_WINDOW_TYPE');
|
||||||
|
my $atomtype = $x->atom(name => 'ATOM');
|
||||||
|
$x->change_property(PROP_MODE_REPLACE, $window->id, $atomname->id, $atomtype->id,
|
||||||
|
32, 1, pack('L1', $x->atom(name => $atom)->id));
|
||||||
|
$x->flush;
|
||||||
|
sync_with_i3;
|
||||||
|
|
||||||
|
my @nodes = @{get_ws($tmp)->{floating_nodes}};
|
||||||
|
cmp_ok(@nodes, '==', 1, 'one floating container on this workspace');
|
||||||
|
is($nodes[0]->{nodes}[0]->{mark}, 'branded', "mark set (window_type = $atom)");
|
||||||
|
|
||||||
|
exit_gracefully($pid);
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
##############################################################
|
##############################################################
|
||||||
|
|
||||||
done_testing;
|
done_testing;
|
||||||
|
|
Loading…
Reference in New Issue