aa11c03d4c
Change the behavior of movement into a branch with respect to the position the moving con will be placed within the branch when the movement is complete. The correct position is determined by the direction of movement or the position of the focused-inactive container within the branch. If the direction of movement is the same as the orientation of the branch container, append or prepend the container to the branch in the obvious way. If the movement is to the right or downward, insert the moving container in the first position (i.e., the leftmost or top position resp.) If the movement is to the left or upward, insert the moving container in the last position (i.e., the rightmost or bottom position resp.) If the direction of movement is different from the orientation of the branch container, insert the container into the branch after the focused-inactive container. fixes #1060
377 lines
12 KiB
Perl
377 lines
12 KiB
Perl
#!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)
|
|
#
|
|
# Test that movement of a con into a branch will place the moving con at the
|
|
# correct position within the branch.
|
|
#
|
|
# If the direction of movement is the same as the orientation of the branch
|
|
# container, append or prepend the container to the branch in the obvious way.
|
|
# If the movement is to the right or downward, insert the moving container in
|
|
# the first position (i.e., the leftmost or top position resp.) If the movement
|
|
# is to the left or upward, insert the moving container in the last position
|
|
# (i.e., the rightmost or bottom position resp.)
|
|
#
|
|
# If the direction of movement is different from the orientation of the branch
|
|
# container, insert the container into the branch after the focused-inactive
|
|
# container.
|
|
#
|
|
# For testing purposes, we will demonstrate the behavior for tabbed containers
|
|
# to represent the case of split-horizontal branches and stacked containers to
|
|
# represent the case of split-vertical branches.
|
|
#
|
|
# Ticket: #1060
|
|
# Bug still in: 4.6-109-g18cfc36
|
|
|
|
use i3test;
|
|
|
|
# Opens tabs on the presently focused branch and adds several additional
|
|
# windows. Shifts focus to somewhere in the middle of the tabs so the most
|
|
# general case can be assumed.
|
|
sub open_tabs {
|
|
cmd 'layout tabbed';
|
|
open_window;
|
|
open_window;
|
|
open_window;
|
|
open_window;
|
|
cmd 'focus left; focus left'
|
|
}
|
|
|
|
# Likewise for a stack
|
|
sub open_stack {
|
|
cmd 'layout stacking';
|
|
open_window;
|
|
open_window;
|
|
open_window;
|
|
open_window;
|
|
cmd 'focus up; focus up'
|
|
}
|
|
|
|
# Gets the position of the given leaf within the given branch. The first
|
|
# position is one (1). Returns negative one (-1) if the leaf cannot be found
|
|
# within the branch.
|
|
sub get_leaf_position {
|
|
my ($branch, $leaf) = @_;
|
|
my $position = -1;
|
|
for my $i (0 .. @{$branch->{nodes}}) {
|
|
if ($branch->{nodes}[$i]->{id} == $leaf) {
|
|
$position = $i + 1;
|
|
last;
|
|
};
|
|
}
|
|
return $position;
|
|
}
|
|
|
|
# convenience function to focus a con by id to avoid having to type an ugly
|
|
# command each time
|
|
sub focus_con {
|
|
my $con_id = shift @_;
|
|
cmd "[con_id=\"$con_id\"] focus";
|
|
}
|
|
|
|
# Places a leaf into a branch and focuses the leaf. The newly created branch
|
|
# will have orientation specified by the second parameter.
|
|
sub branchify {
|
|
my ($con_id, $orientation) = @_;
|
|
focus_con($con_id);
|
|
$orientation eq 'horizontal' ? cmd 'splith' : cmd 'splitv';
|
|
open_window;
|
|
focus_con($con_id);
|
|
}
|
|
|
|
##############################################################################
|
|
# When moving a con right into tabs, the moving con should be placed as the
|
|
# first tab in the branch
|
|
##############################################################################
|
|
my $ws = fresh_workspace;
|
|
|
|
# create the target leaf
|
|
open_window;
|
|
my $target_leaf = get_focused($ws);
|
|
|
|
# create the tabbed branch container
|
|
open_window;
|
|
cmd 'splith';
|
|
open_tabs;
|
|
|
|
# move the target leaf into the tabbed branch
|
|
focus_con($target_leaf);
|
|
cmd 'move right';
|
|
|
|
# the target leaf should be the first in the branch
|
|
my $branch = shift @{get_ws_content($ws)};
|
|
is($branch->{nodes}[0]->{id}, $target_leaf, 'moving con right into tabs placed it as the first tab in the branch');
|
|
|
|
# repeat the test when the target is in a branch
|
|
cmd 'move up; move left';
|
|
branchify($target_leaf, 'vertical');
|
|
cmd 'move right';
|
|
|
|
$branch = pop @{get_ws_content($ws)};
|
|
is($branch->{nodes}[0]->{id}, $target_leaf, 'moving con right into tabs from a branch placed it as the first tab in the branch');
|
|
|
|
##############################################################################
|
|
# When moving a con right into a stack, the moving con should be placed
|
|
# below the focused-inactive leaf
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
|
|
# create the target leaf
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# create the stacked branch container and find the focused leaf
|
|
open_window;
|
|
cmd 'splith';
|
|
open_stack;
|
|
my $secondary_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the stacked branch
|
|
focus_con($target_leaf);
|
|
cmd 'move right';
|
|
|
|
# the secondary focus leaf should be below the target
|
|
$branch = shift @{get_ws_content($ws)};
|
|
my $target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
my $secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con right into a stack placed it below the focused-inactive leaf');
|
|
|
|
# repeat the test when the target is in a branch
|
|
cmd 'move up; move left';
|
|
branchify($target_leaf, 'vertical');
|
|
cmd 'move right';
|
|
|
|
$branch = pop @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con right into a stack from a branch placed it below the focused-inactive leaf');
|
|
|
|
##############################################################################
|
|
# When moving a con down into a stack, the moving con should be placed at the
|
|
# top of the stack
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
cmd 'layout splitv';
|
|
|
|
# create the target leaf
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# create the stacked branch container
|
|
open_window;
|
|
cmd 'splitv';
|
|
open_stack;
|
|
|
|
# move the target leaf into the stacked branch
|
|
focus_con($target_leaf);
|
|
cmd 'move down';
|
|
|
|
# the target leaf should be on the top of the stack
|
|
$branch = shift @{get_ws_content($ws)};
|
|
is($branch->{nodes}[0]->{id}, $target_leaf, 'moving con down into a stack placed it on the top of the stack');
|
|
|
|
# repeat the test when the target is in a branch
|
|
cmd 'move right; move up';
|
|
branchify($target_leaf, 'horizontal');
|
|
cmd 'move down';
|
|
|
|
$branch = pop @{get_ws_content($ws)};
|
|
is($branch->{nodes}[0]->{id}, $target_leaf, 'moving con down into a stack from a branch placed it on the top of the stack');
|
|
|
|
##############################################################################
|
|
# When moving a con down into tabs, the moving con should be placed after the
|
|
# focused-inactive tab
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
cmd 'layout splitv';
|
|
|
|
# create the target leaf
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# create the tabbed branch container and find the focused tab
|
|
open_window;
|
|
cmd 'splitv';
|
|
open_tabs;
|
|
$secondary_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the tabbed branch
|
|
focus_con($target_leaf);
|
|
cmd 'move down';
|
|
|
|
# the secondary focus tab should be to the right
|
|
$branch = shift @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con down into tabs placed it after the focused-inactive tab');
|
|
|
|
# repeat the test when the target is in a branch
|
|
cmd 'move right; move up';
|
|
branchify($target_leaf, 'horizontal');
|
|
cmd 'move down';
|
|
|
|
$branch = pop @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con down into tabs from a branch placed it after the focused-inactive tab');
|
|
|
|
##############################################################################
|
|
# When moving a con left into tabs, the moving con should be placed as the last
|
|
# tab in the branch
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
|
|
# create the tabbed branch container
|
|
open_window;
|
|
cmd 'splith';
|
|
open_tabs;
|
|
|
|
# create the target leaf
|
|
cmd 'focus parent';
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the tabbed branch
|
|
cmd 'move left';
|
|
|
|
# the target leaf should be last in the branch
|
|
$branch = shift @{get_ws_content($ws)};
|
|
|
|
is($branch->{nodes}->[-1]->{id}, $target_leaf, 'moving con left into tabs placed it as the last tab in the branch');
|
|
|
|
# repeat the test when the target leaf is in a branch
|
|
cmd 'move up; move right';
|
|
branchify($target_leaf, 'vertical');
|
|
cmd 'move left';
|
|
|
|
$branch = shift @{get_ws_content($ws)};
|
|
is($branch->{nodes}->[-1]->{id}, $target_leaf, 'moving con left into tabs from a branch placed it as the last tab in the branch');
|
|
|
|
##############################################################################
|
|
# When moving a con left into a stack, the moving con should be placed below
|
|
# the focused-inactive leaf
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
|
|
# create the stacked branch container and find the focused leaf
|
|
open_window;
|
|
open_stack;
|
|
$secondary_leaf = get_focused($ws);
|
|
|
|
# create the target leaf to the right
|
|
cmd 'focus parent';
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the stacked branch
|
|
cmd 'move left';
|
|
|
|
# the secondary focus leaf should be below
|
|
$branch = shift @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con left into a stack placed it below the focused-inactive leaf');
|
|
|
|
# repeat the test when the target leaf is in a branch
|
|
cmd 'move up; move right';
|
|
branchify($target_leaf, 'vertical');
|
|
cmd 'move left';
|
|
|
|
$branch = shift @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con left into a stack from a branch placed it below the focused-inactive leaf');
|
|
|
|
##############################################################################
|
|
# When moving a con up into a stack, the moving con should be placed last in
|
|
# the stack
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
cmd 'layout splitv';
|
|
|
|
# create the stacked branch container
|
|
open_window;
|
|
cmd 'splitv';
|
|
open_stack;
|
|
|
|
# create the target leaf
|
|
cmd 'focus parent';
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the stacked branch
|
|
cmd 'move up';
|
|
|
|
# the target leaf should be on the bottom of the stack
|
|
$branch = shift @{get_ws_content($ws)};
|
|
|
|
is($branch->{nodes}->[-1]->{id}, $target_leaf, 'moving con up into stack placed it on the bottom of the stack');
|
|
|
|
# repeat the test when the target leaf is in a branch
|
|
cmd 'move right; move down';
|
|
branchify($target_leaf, 'horizontal');
|
|
cmd 'move up';
|
|
|
|
$branch = shift @{get_ws_content($ws)};
|
|
|
|
is($branch->{nodes}->[-1]->{id}, $target_leaf, 'moving con up into stack from a branch placed it on the bottom of the stack');
|
|
|
|
##############################################################################
|
|
# When moving a con up into tabs, the moving con should be placed after the
|
|
# focused-inactive tab
|
|
##############################################################################
|
|
$ws = fresh_workspace;
|
|
cmd 'layout splitv';
|
|
|
|
# create the tabbed branch container and find the focused leaf
|
|
open_window;
|
|
cmd 'splitv';
|
|
open_tabs;
|
|
$secondary_leaf = get_focused($ws);
|
|
|
|
# create the target leaf below
|
|
cmd 'focus parent';
|
|
open_window;
|
|
$target_leaf = get_focused($ws);
|
|
|
|
# move the target leaf into the tabbed branch
|
|
cmd 'move up';
|
|
|
|
# the secondary focus tab should be to the right
|
|
$branch = shift @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con up into tabs placed it after the focused-inactive tab');
|
|
|
|
# repeat the test when the target leaf is in a branch
|
|
cmd 'move right; move down';
|
|
branchify($target_leaf, 'horizontal');
|
|
cmd 'move up';
|
|
|
|
$branch = shift @{get_ws_content($ws)};
|
|
$target_leaf_position = get_leaf_position($branch, $target_leaf);
|
|
$secondary_leaf_position = get_leaf_position($branch, $secondary_leaf);
|
|
|
|
is($target_leaf_position, $secondary_leaf_position + 1, 'moving con up into tabs from a branch placed it after the focused-inactive tab');
|
|
|
|
done_testing;
|