}
subtest 'Window without WM_TAKE_FOCUS', sub {
- fresh_workspace;
+ my $ws = fresh_workspace;
my $window = open_window;
ok(!recv_take_focus($window), 'did not receive ClientMessage');
+ my $con = shift get_ws_content($ws);
+ ok($con->{focused}, 'con is focused');
+
done_testing;
};
# list), the window cannot accept input focus, so we should not try to focus
# the window at all.
subtest 'Window with WM_TAKE_FOCUS and without InputHint', sub {
- fresh_workspace;
+ my $ws = fresh_workspace;
my $take_focus = $x->atom(name => 'WM_TAKE_FOCUS');
ok(!recv_take_focus($window), 'did not receive ClientMessage');
+ my $con = shift get_ws_content($ws);
+ ok($con->{focused}, 'con is focused');
+
done_testing;
};
# nearly identical presently, so this is currently used also as a proxy test
# for the latter case.
subtest 'Window with WM_TAKE_FOCUS and unspecified InputHint', sub {
- fresh_workspace;
+ my $ws = fresh_workspace;
my $take_focus = $x->atom(name => 'WM_TAKE_FOCUS');
ok(!recv_take_focus($window), 'did not receive ClientMessage');
+ my $con = shift get_ws_content($ws);
+ ok($con->{focused}, 'con is focused');
+
done_testing;
};