From bae66a9dae68870491be50b9fb1d5adf23d7f99c Mon Sep 17 00:00:00 2001 From: Deiz Date: Fri, 27 Mar 2015 14:29:53 -0400 Subject: [PATCH] Add a test case for #1211 --- testcases/t/523-move-position-center.t | 63 ++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 testcases/t/523-move-position-center.t 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; -- 2.39.5