diff --git a/testcases/t/48-regress-floatingmovews.t b/testcases/t/48-regress-floatingmovews.t new file mode 100644 index 00000000..deebecd9 --- /dev/null +++ b/testcases/t/48-regress-floatingmovews.t @@ -0,0 +1,39 @@ +#!perl +# vim:ts=4:sw=4:expandtab +# +# Regression test for correct focus behaviour when moving a floating con to +# another workspace. +# +use X11::XCB qw(:all); +use Time::HiRes qw(sleep); +use i3test tests => 2; + +BEGIN { + use_ok('X11::XCB::Window'); +} + +my $x = X11::XCB::Connection->new; + +my $tmp = get_unused_workspace; +cmd "workspace $tmp"; + +# open a tiling window on the first workspace +open_standard_window($x); +sleep 0.25; +my $first = get_focused($tmp); + +# on a different ws, open a floating window +my $otmp = get_unused_workspace; +cmd "workspace $otmp"; +open_standard_window($x); +sleep 0.25; +my $float = get_focused($otmp); +cmd 'mode toggle'; +sleep 0.25; + +# move the floating con to first workspace +cmd "move workspace $tmp"; +sleep 0.25; + +# switch to the first ws and check focus +is(get_focused($tmp), $float, 'floating client correctly focused');