59 lines
1.7 KiB
Perl
59 lines
1.7 KiB
Perl
|
#!perl
|
||
|
|
# vim:ts=4:sw=4:expandtab
|
||
|
|
#
|
||
|
|
# Tests splitting
|
||
|
|
#
|
||
|
|
use i3test tests => 11;
|
||
|
|
use X11::XCB qw(:all);
|
||
|
|
use v5.10;
|
||
|
|
|
||
|
|
my $i3 = i3("/tmp/nestedcons");
|
||
|
|
|
||
|
|
my $tmp = get_unused_workspace();
|
||
|
|
$i3->command("workspace $tmp")->recv;
|
||
|
|
|
||
|
|
my $ws = get_ws($tmp);
|
||
|
|
is($ws->{orientation}, 0, 'orientation horizontal by default');
|
||
|
|
$i3->command('split v')->recv;
|
||
|
|
$ws = get_ws($tmp);
|
||
|
|
is($ws->{orientation}, 1, 'split v changes workspace orientation');
|
||
|
|
|
||
|
|
######################################################################
|
||
|
|
# Open two containers, split, open another container. Then verify
|
||
|
|
# the layout is like we expect it to be
|
||
|
|
######################################################################
|
||
|
|
$i3->command('open')->recv;
|
||
|
|
$i3->command('open')->recv;
|
||
|
|
my $content = get_ws_content($tmp);
|
||
|
|
|
||
|
|
is(@{$content}, 2, 'two containers on workspace level');
|
||
|
|
my $first = $content->[0];
|
||
|
|
my $second = $content->[1];
|
||
|
|
|
||
|
|
is(@{$first->{nodes}}, 0, 'first container has no children');
|
||
|
|
is(@{$second->{nodes}}, 0, 'second container has no children (yet)');
|
||
|
|
my $old_name = $second->{name};
|
||
|
|
|
||
|
|
|
||
|
|
$i3->command('split h')->recv;
|
||
|
|
$i3->command('open')->recv;
|
||
|
|
|
||
|
|
$content = get_ws_content($tmp);
|
||
|
|
|
||
|
|
is(@{$content}, 2, 'two containers on workspace level');
|
||
|
|
$first = $content->[0];
|
||
|
|
$second = $content->[1];
|
||
|
|
|
||
|
|
is(@{$first->{nodes}}, 0, 'first container has no children');
|
||
|
|
isnt($second->{name}, $old_name, 'second container was replaced');
|
||
|
|
is($second->{orientation}, 0, 'orientation is horizontal');
|
||
|
|
is(@{$second->{nodes}}, 2, 'second container has 2 children');
|
||
|
|
is($second->{nodes}->[0]->{name}, $old_name, 'found old second container');
|
||
|
|
|
||
|
|
# TODO: extend this test-case (test next/prev)
|
||
|
|
# - wrapping (no horizontal switch possible, goes level-up)
|
||
|
|
# - going level-up "manually"
|
||
|
|
|
||
|
|
|
||
|
|
diag( "Testing i3, Perl $], $^X" );
|