git.sur5r.net Git - i3/i3/blob - testcases/t/122-split.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Tests splitting
   5 #
   6 use i3test;
   7
   8 my $tmp = fresh_workspace;
   9
  10 my $ws = get_ws($tmp);
  11 is($ws->{orientation}, 'horizontal', 'orientation horizontal by default');
  12 cmd 'split v';
  13 $ws = get_ws($tmp);
  14 is($ws->{orientation}, 'vertical', 'split v changes workspace orientation');
  15
  16 ######################################################################
  17 # Open two containers, split, open another container. Then verify
  18 # the layout is like we expect it to be
  19 ######################################################################
  20 cmd 'open';
  21 cmd 'open';
  22 my $content = get_ws_content($tmp);
  23
  24 is(@{$content}, 2, 'two containers on workspace level');
  25 my $first = $content->[0];
  26 my $second = $content->[1];
  27
  28 is(@{$first->{nodes}}, 0, 'first container has no children');
  29 is(@{$second->{nodes}}, 0, 'second container has no children (yet)');
  30 my $old_name = $second->{name};
  31
  32
  33 cmd 'split h';
  34 cmd 'open';
  35
  36 $content = get_ws_content($tmp);
  37
  38 is(@{$content}, 2, 'two containers on workspace level');
  39 $first = $content->[0];
  40 $second = $content->[1];
  41
  42 is(@{$first->{nodes}}, 0, 'first container has no children');
  43 isnt($second->{name}, $old_name, 'second container was replaced');
  44 is($second->{orientation}, 'horizontal', 'orientation is horizontal');
  45 is(@{$second->{nodes}}, 2, 'second container has 2 children');
  46 is($second->{nodes}->[0]->{name}, $old_name, 'found old second container');
  47
  48 # TODO: extend this test-case (test next/prev)
  49 # - wrapping (no horizontal switch possible, goes level-up)
  50 # - going level-up "manually"
  51
  52 ######################################################################
  53 # Test splitting multiple times without actually creating windows
  54 ######################################################################
  55
  56 $tmp = fresh_workspace;
  57
  58 $ws = get_ws($tmp);
  59 is($ws->{orientation}, 'horizontal', 'orientation horizontal by default');
  60 cmd 'split v';
  61 $ws = get_ws($tmp);
  62 is($ws->{orientation}, 'vertical', 'split v changes workspace orientation');
  63
  64 cmd 'open';
  65 my @content = @{get_ws_content($tmp)};
  66
  67 # recursively sums up all nodes and their children
  68 sub sum_nodes {
  69     my ($nodes) = @_;
  70
  71     return 0 if !@{$nodes};
  72
  73     my @children = (map { @{$_->{nodes}} } @{$nodes},
  74                     map { @{$_->{'floating_nodes'}} } @{$nodes});
  75
  76     return @{$nodes} + sum_nodes(\@children);
  77 }
  78
  79 my $old_count = sum_nodes(\@content);
  80 cmd 'split v';
  81
  82 @content = @{get_ws_content($tmp)};
  83 $old_count = sum_nodes(\@content);
  84
  85 cmd 'split v';
  86
  87 @content = @{get_ws_content($tmp)};
  88 my $count = sum_nodes(\@content);
  89 is($count, $old_count, 'not more windows after splitting again');
  90
  91 done_testing;