91 lines
2.9 KiB
Perl
91 lines
2.9 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;
|
|||
|
|
|
|||
|
|
# TODO:
|
|||
|
|
# introduce 'move workspace 3 to output <output>' with synonym 'move workspace 3 to <output>'
|
|||
|
|
|
|||
|
|
################################################################################
|
|||
|
|
# 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 xinerama-0');
|
|||
|
|
|
|||
|
|
cmd 'move workspace to output xinerama-1';
|
|||
|
|
|
|||
|
|
sub workspaces_per_screen {
|
|||
|
|
my $i3 = i3(get_socket_path());
|
|||
|
|
my $tree = $i3->get_tree->recv;
|
|||
|
|
my @outputs = @{$tree->{nodes}};
|
|||
|
|
|
|||
|
|
my $xinerama0 = first { $_->{name} eq 'xinerama-0' } @outputs;
|
|||
|
|
my $xinerama0_content = first { $_->{type} == 2 } @{$xinerama0->{nodes}};
|
|||
|
|
|
|||
|
|
my $xinerama1 = first { $_->{name} eq 'xinerama-1' } @outputs;
|
|||
|
|
my $xinerama1_content = first { $_->{type} == 2 } @{$xinerama1->{nodes}};
|
|||
|
|
|
|||
|
|
my @xinerama0_workspaces = map { $_->{name} } @{$xinerama0_content->{nodes}};
|
|||
|
|
my @xinerama1_workspaces = map { $_->{name} } @{$xinerama1_content->{nodes}};
|
|||
|
|
|
|||
|
|
return \@xinerama0_workspaces, \@xinerama1_workspaces;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
($x0, $x1) = workspaces_per_screen();
|
|||
|
|
ok('5' ~~ @$x1, 'workspace 5 now on xinerama-1');
|
|||
|
|
|
|||
|
|
################################################################################
|
|||
|
|
# Verify that the last workspace on an output cannot be moved.
|
|||
|
|
################################################################################
|
|||
|
|
|
|||
|
|
cmd 'workspace 1';
|
|||
|
|
cmd 'move workspace to output xinerama-1';
|
|||
|
|
|
|||
|
|
($x0, $x1) = workspaces_per_screen();
|
|||
|
|
ok('1' ~~ @$x0, 'workspace 1 still on xinerama-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 xinerama-0');
|
|||
|
|
|
|||
|
|
|
|||
|
|
done_testing;
|