From: Deiz Date: Fri, 27 Mar 2015 18:29:53 +0000 (-0400) Subject: Add a test case for #1211 X-Git-Tag: 4.11~161^2 X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=bae66a9dae68870491be50b9fb1d5adf23d7f99c;p=i3%2Fi3 Add a test case for #1211 --- diff --git a/testcases/t/523-move-position-center.t b/testcases/t/523-move-position-center.t new file mode 100644 index 00000000..6b584245 --- /dev/null +++ b/testcases/t/523-move-position-center.t @@ -0,0 +1,63 @@ +#!perl +# vim:ts=4:sw=4:expandtab +# +# Please read the following documents before working on tests: +# • http://build.i3wm.org/docs/testsuite.html +# (or docs/testsuite) +# +# • http://build.i3wm.org/docs/lib-i3test.html +# (alternatively: perldoc ./testcases/lib/i3test.pm) +# +# • http://build.i3wm.org/docs/ipc.html +# (or docs/ipc) +# +# • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf +# (unless you are already familiar with Perl) +# +# Verifies that 'move position center' moves floating cons to the center of +# the appropriate output. +# Ticket: #1211 +# Bug still in: 4.9.1-108-g037cb31 +use i3test i3_autostart => 0; + +my $config = <{floating_nodes}}, 1, 'one floating node on left ws'); +is(scalar @{get_ws('right')->{floating_nodes}}, 0, 'no floating nodes on right ws'); + +# Center the window on the right workspace +cmd 'move workspace right; workspace right; move position center'; +sync_with_i3; + +is(scalar @{get_ws('left')->{floating_nodes}}, 0, 'no floating nodes on left ws'); +is(scalar @{get_ws('right')->{floating_nodes}}, 1, 'one floating node on right ws'); + +exit_gracefully($pid); + +done_testing;