2 # vim:ts=4:sw=4:expandtab
4 # Regression test for correct focus behaviour when moving a floating con to
11 use_ok('X11::XCB::Window');
14 my $x = X11::XCB::Connection->new;
16 my $tmp = fresh_workspace;
18 # open a tiling window on the first workspace
19 open_standard_window($x);
21 my $first = get_focused($tmp);
23 # on a different ws, open a floating window
24 my $otmp = fresh_workspace;
25 open_standard_window($x);
27 my $float = get_focused($otmp);
31 # move the floating con to first workspace
32 cmd "move workspace $tmp";
35 # switch to the first ws and check focus
36 is(get_focused($tmp), $float, 'floating client correctly focused');