62a4237ed0
This hopefully increases the reliability of the test. Empty containers created by “open” sometimes get spurious UnmapNotify events, and in at least one run, this test failed because of such an event.
101 lines
2.6 KiB
Perl
101 lines
2.6 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)
|
|
#
|
|
# Check if empty split containers are automatically closed.
|
|
#
|
|
use i3test;
|
|
|
|
my $i3 = i3(get_socket_path());
|
|
|
|
my $tmp = fresh_workspace;
|
|
|
|
ok(@{get_ws_content($tmp)} == 0, 'no containers yet');
|
|
|
|
my $first = open_empty_con($i3);
|
|
my $second = open_empty_con($i3);
|
|
cmd qq|[con_id="$first"] focus|;
|
|
|
|
cmd 'split v';
|
|
|
|
my ($nodes, $focus) = get_ws_content($tmp);
|
|
|
|
is($nodes->[0]->{focused}, 0, 'split container not focused');
|
|
|
|
# focus the split container
|
|
cmd 'focus parent';
|
|
($nodes, $focus) = get_ws_content($tmp);
|
|
my $split = $focus->[0];
|
|
cmd 'focus child';
|
|
|
|
$second = open_empty_con($i3);
|
|
|
|
isnt($first, $second, 'different container focused');
|
|
|
|
##############################################################
|
|
# close both windows and see if the split container still exists
|
|
##############################################################
|
|
|
|
cmd 'kill';
|
|
cmd 'kill';
|
|
($nodes, $focus) = get_ws_content($tmp);
|
|
isnt($nodes->[0]->{id}, $split, 'split container closed');
|
|
|
|
# clean up the remaining containers to ensure this workspace will be garbage
|
|
# collected.
|
|
cmd 'kill';
|
|
cmd 'kill';
|
|
|
|
##############################################################
|
|
# same thing but this time we are moving the cons away instead
|
|
# of killing them
|
|
##############################################################
|
|
|
|
$tmp = fresh_workspace;
|
|
|
|
ok(@{get_ws_content($tmp)} == 0, 'no containers yet');
|
|
|
|
$first = open_empty_con($i3);
|
|
$second = open_empty_con($i3);
|
|
cmd qq|[con_id="$first"] focus|;
|
|
|
|
cmd 'split v';
|
|
|
|
($nodes, $focus) = get_ws_content($tmp);
|
|
|
|
is($nodes->[0]->{focused}, 0, 'split container not focused');
|
|
|
|
# focus the split container
|
|
cmd 'focus parent';
|
|
($nodes, $focus) = get_ws_content($tmp);
|
|
$split = $focus->[0];
|
|
cmd 'focus child';
|
|
|
|
$second = open_empty_con($i3);
|
|
|
|
isnt($first, $second, 'different container focused');
|
|
|
|
##############################################################
|
|
# close both windows and see if the split container still exists
|
|
##############################################################
|
|
|
|
my $otmp = get_unused_workspace();
|
|
cmd "move workspace $otmp";
|
|
cmd "move workspace $otmp";
|
|
($nodes, $focus) = get_ws_content($tmp);
|
|
isnt($nodes->[0]->{id}, $split, 'split container closed');
|
|
|
|
done_testing;
|