koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix: Keep focus on the current workspace when moving containers, add testcase

Browse Source
This commit is contained in:
Michael Stapelberg
2010-07-17 13:27:34 +02:00
parent 49add4f3e4
commit 099df7f438
4 changed files with 96 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
testcases/t/32-move-workspace.t Normal file
View File

@ -0,0 +1,45 @@
#!perl
# vim:ts=4:sw=4:expandtab
#
# Checks if the 'move workspace' command works correctly
#
use i3test tests => 7;
use Time::HiRes qw(sleep);
my $i3 = i3("/tmp/nestedcons");
# We move the pointer out of our way to avoid a bug where the focus will
# be set to the window under the cursor
my $x = X11::XCB::Connection->new;
$x->root->warp_pointer(0, 0);
my $tmp = get_unused_workspace();
my $tmp2 = get_unused_workspace();
$i3->command("workspace $tmp")->recv;
ok(@{get_ws_content($tmp)} == 0, 'no containers yet');
$i3->command('open')->recv;
my ($nodes, $focus) = get_ws_content($tmp);
my $first = $focus->[0];
$i3->command('open')->recv;
($nodes, $focus) = get_ws_content($tmp);
my $second = $focus->[0];
ok(@{get_ws_content($tmp)} == 2, 'two containers on first ws');
$i3->command("workspace $tmp2")->recv;
ok(@{get_ws_content($tmp2)} == 0, 'no containers on second ws yet');
$i3->command("workspace $tmp")->recv;
$i3->command("move workspace $tmp2")->recv;
ok(@{get_ws_content($tmp)} == 1, 'one container on first ws anymore');
ok(@{get_ws_content($tmp2)} == 1, 'one container on second ws');
($nodes, $focus) = get_ws_content($tmp2);
is($focus->[0], $second, 'same container on different ws');
($nodes, $focus) = get_ws_content($tmp);
is($nodes->[0]->{focused}, 1, 'first container focused on first ws');
diag( "Testing i3, Perl $], $^X" );