git.sur5r.net Git - i3/i3/blob - testcases/t/169-border-toggle.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Tests if the 'border toggle' command works correctly
   5 #
   6 use i3test;
   7
   8 my $tmp = fresh_workspace;
   9
  10 cmd 'open';
  11
  12 my @nodes = @{get_ws_content($tmp)};
  13 is(@nodes, 1, 'one container on this workspace');
  14 is($nodes[0]->{border}, 'normal', 'border style normal');
  15
  16 cmd 'border 1pixel';
  17 @nodes = @{get_ws_content($tmp)};
  18 is($nodes[0]->{border}, '1pixel', 'border style 1pixel');
  19
  20 cmd 'border none';
  21 @nodes = @{get_ws_content($tmp)};
  22 is($nodes[0]->{border}, 'none', 'border style none');
  23
  24 cmd 'border normal';
  25 @nodes = @{get_ws_content($tmp)};
  26 is($nodes[0]->{border}, 'normal', 'border style back to normal');
  27
  28 cmd 'border toggle';
  29 @nodes = @{get_ws_content($tmp)};
  30 is($nodes[0]->{border}, 'none', 'border style none');
  31
  32 cmd 'border toggle';
  33 @nodes = @{get_ws_content($tmp)};
  34 is($nodes[0]->{border}, '1pixel', 'border style 1pixel');
  35
  36 cmd 'border toggle';
  37 @nodes = @{get_ws_content($tmp)};
  38 is($nodes[0]->{border}, 'normal', 'border style back to normal');
  39
  40 done_testing;