a65394646c
Otherwise, the cursor might be at (1025, 0) due to previous testcases and we wouldn’t start up on the correct workspace.
126 lines
4.0 KiB
Perl
126 lines
4.0 KiB
Perl
#!perl
|
||
# vim:ts=4:sw=4:expandtab
|
||
#
|
||
# Tests whether the 'move workspace <ws> to [output] <output>' command works
|
||
#
|
||
use List::Util qw(first);
|
||
use i3test i3_autostart => 0;
|
||
|
||
# TODO:
|
||
# introduce 'move workspace 3 to output <output>' with synonym 'move workspace 3 to <output>'
|
||
|
||
# Ensure the pointer is at (0, 0) so that we really start on the first
|
||
# (the left) workspace.
|
||
$x->root->warp_pointer(0, 0);
|
||
|
||
my $config = <<EOT;
|
||
# i3 config file (v4)
|
||
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
||
|
||
fake-outputs 1024x768+0+0,1024x768+1024+0
|
||
EOT
|
||
my $pid = launch_with_config($config);
|
||
|
||
################################################################################
|
||
# Setup workspaces so that they stay open (with an empty container).
|
||
################################################################################
|
||
|
||
is(focused_ws, '1', 'starting on workspace 1');
|
||
# ensure workspace 1 stays open
|
||
open_window;
|
||
|
||
cmd 'focus output right';
|
||
is(focused_ws, '2', 'workspace 2 on second output');
|
||
# ensure workspace 2 stays open
|
||
open_window;
|
||
|
||
cmd 'focus output right';
|
||
is(focused_ws, '1', 'back on workspace 1');
|
||
|
||
# We don’t use fresh_workspace with named workspaces here since they come last
|
||
# when using 'workspace next'.
|
||
cmd 'workspace 5';
|
||
# ensure workspace 5 stays open
|
||
open_window;
|
||
|
||
################################################################################
|
||
# Move a workspace over and verify that it is on the right output.
|
||
################################################################################
|
||
|
||
# The current order should be:
|
||
# output 1: 1, 5
|
||
# output 2: 2
|
||
cmd 'workspace 5';
|
||
is(focused_ws, '5', 'workspace 5 focused');
|
||
|
||
my ($x0, $x1) = workspaces_per_screen();
|
||
ok('5' ~~ @$x0, 'workspace 5 on fake-0');
|
||
|
||
cmd 'move workspace to output fake-1';
|
||
|
||
sub workspaces_per_screen {
|
||
my $i3 = i3(get_socket_path());
|
||
my $tree = $i3->get_tree->recv;
|
||
my @outputs = @{$tree->{nodes}};
|
||
|
||
my $fake0 = first { $_->{name} eq 'fake-0' } @outputs;
|
||
my $fake0_content = first { $_->{type} == 2 } @{$fake0->{nodes}};
|
||
|
||
my $fake1 = first { $_->{name} eq 'fake-1' } @outputs;
|
||
my $fake1_content = first { $_->{type} == 2 } @{$fake1->{nodes}};
|
||
|
||
my @fake0_workspaces = map { $_->{name} } @{$fake0_content->{nodes}};
|
||
my @fake1_workspaces = map { $_->{name} } @{$fake1_content->{nodes}};
|
||
|
||
return \@fake0_workspaces, \@fake1_workspaces;
|
||
}
|
||
|
||
($x0, $x1) = workspaces_per_screen();
|
||
ok('5' ~~ @$x1, 'workspace 5 now on fake-1');
|
||
|
||
################################################################################
|
||
# Verify that a new workspace will be created when moving the last workspace.
|
||
################################################################################
|
||
|
||
is_deeply($x0, [ '1' ], 'only workspace 1 remaining on fake-0');
|
||
|
||
cmd 'workspace 1';
|
||
cmd 'move workspace to output fake-1';
|
||
|
||
($x0, $x1) = workspaces_per_screen();
|
||
ok('1' ~~ @$x1, 'workspace 1 now on fake-1');
|
||
is_deeply($x0, [ '3' ], 'workspace 2 created on fake-0');
|
||
|
||
################################################################################
|
||
# Verify that 'move workspace to output <direction>' works
|
||
################################################################################
|
||
|
||
cmd 'workspace 5';
|
||
cmd 'move workspace to output left';
|
||
|
||
($x0, $x1) = workspaces_per_screen();
|
||
ok('5' ~~ @$x0, 'workspace 5 back on fake-0');
|
||
|
||
################################################################################
|
||
# Verify that coordinates of floating windows are fixed correctly when moving a
|
||
# workspace to a different output.
|
||
################################################################################
|
||
|
||
cmd 'workspace 5';
|
||
my $floating_window = open_floating_window;
|
||
|
||
my $old_rect = $floating_window->rect;
|
||
|
||
cmd 'move workspace to output right';
|
||
|
||
my $new_rect = $floating_window->rect;
|
||
|
||
isnt($old_rect->{x}, $new_rect->{x}, 'x coordinate changed');
|
||
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');
|
||
|
||
exit_gracefully($pid);
|
||
|
||
done_testing;
|