Close empty workspaces after cross-output move (+test) (Thanks chrysn)

fixes #795
This commit is contained in:
Michael Stapelberg
2012-09-22 19:03:19 +02:00
parent 9aff503a55
commit 1e143feab1
2 changed files with 29 additions and 1 deletions

View File

@ -133,6 +133,26 @@ is($old_rect->{y}, $new_rect->{y}, 'y coordinate unchanged');
is($old_rect->{width}, $new_rect->{width}, 'width unchanged');
is($old_rect->{height}, $new_rect->{height}, 'height unchanged');
################################################################################
# Verify that empty workspaces get cleaned up when moving a different workspace
# to that output.
################################################################################
my $empty_ws = fresh_workspace(output => 0);
my $other_output_ws = fresh_workspace(output => 1);
cmd 'open';
($x0, $x1) = workspaces_per_screen();
ok($empty_ws ~~ @$x0, 'empty_ws on fake-0');
ok($other_output_ws ~~ @$x1, 'other_output_ws on fake-1');
cmd 'move workspace to output left';
($x0, $x1) = workspaces_per_screen();
ok(!($empty_ws ~~ @$x0), 'empty_ws not on fake-0');
ok(!($empty_ws ~~ @$x1), 'empty_ws not on fake-1');
ok($other_output_ws ~~ @$x0, 'other_output_ws on fake-0');
exit_gracefully($pid);
done_testing;