73 lines
2.4 KiB
Perl
73 lines
2.4 KiB
Perl
#!perl
|
|
# vim:ts=4:sw=4:expandtab
|
|
|
|
use i3test tests => 9;
|
|
use Time::HiRes qw(sleep);
|
|
|
|
my $i3 = i3("/tmp/nestedcons");
|
|
|
|
my $tmp = get_unused_workspace();
|
|
$i3->command("workspace $tmp")->recv;
|
|
|
|
#############################################################################
|
|
# 1: see if focus stays the same when toggling tiling/floating mode
|
|
#############################################################################
|
|
|
|
$i3->command("open")->recv;
|
|
$i3->command("open")->recv;
|
|
|
|
my @content = @{get_ws_content($tmp)};
|
|
cmp_ok(@content, '==', 2, 'two containers opened');
|
|
cmp_ok($content[1]->{focused}, '==', 1, 'Second container focused');
|
|
|
|
$i3->command("mode floating")->recv;
|
|
$i3->command("mode tiling")->recv;
|
|
|
|
@content = @{get_ws_content($tmp)};
|
|
cmp_ok($content[1]->{focused}, '==', 1, 'Second container still focused after mode toggle');
|
|
|
|
#############################################################################
|
|
# 2: see if the focus gets reverted correctly when closing floating clients
|
|
# (first to the next floating client, then to the last focused tiling client)
|
|
#############################################################################
|
|
|
|
$tmp = get_unused_workspace();
|
|
$i3->command("workspace $tmp")->recv;
|
|
|
|
$i3->command("open")->recv;
|
|
$i3->command("open")->recv;
|
|
$i3->command("open")->recv;
|
|
|
|
@content = @{get_ws_content($tmp)};
|
|
cmp_ok(@content, '==', 3, 'two containers opened');
|
|
cmp_ok($content[2]->{focused}, '==', 1, 'Last container focused');
|
|
|
|
my $last_id = $content[2]->{id};
|
|
my $second_id = $content[1]->{id};
|
|
my $first_id = $content[0]->{id};
|
|
diag("last_id = $last_id, second_id = $second_id, first_id = $first_id");
|
|
|
|
$i3->command(qq|[con_id="$second_id"] focus|)->recv;
|
|
@content = @{get_ws_content($tmp)};
|
|
cmp_ok($content[1]->{focused}, '==', 1, 'Second container focused');
|
|
|
|
$i3->command("mode floating")->recv;
|
|
|
|
$i3->command(qq|[con_id="$last_id"] focus|)->recv;
|
|
@content = @{get_ws_content($tmp)};
|
|
cmp_ok($content[1]->{focused}, '==', 1, 'Last container focused');
|
|
|
|
$i3->command("mode floating")->recv;
|
|
|
|
diag("focused = " . get_focused($tmp));
|
|
|
|
$i3->command("kill")->recv;
|
|
|
|
diag("focused = " . get_focused($tmp));
|
|
# TODO: this test result is actually not right. the focus reverts to where the mouse pointer is.
|
|
cmp_ok(get_focused($tmp), '==', $second_id, 'Focus reverted to second floating container');
|
|
|
|
$i3->command("kill")->recv;
|
|
@content = @{get_ws_content($tmp)};
|
|
cmp_ok($content[0]->{focused}, '==', 1, 'Focus reverted to tiling container');
|