git.sur5r.net Git - i3/i3/blob - testcases/t/183-config-variables.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Checks that variables are parsed correctly by using for_window rules with
   5 # variables in it.
   6 #
   7
   8 use i3test i3_autostart => 0;
   9
  10 # starts i3 with the given config, opens a window, returns its border style
  11 sub launch_get_border {
  12     my ($config) = @_;
  13
  14     my $pid = launch_with_config($config);
  15
  16     my $i3 = i3(get_socket_path(0));
  17     my $tmp = fresh_workspace;
  18
  19     my $window = open_window(name => 'special title');
  20
  21     my @content = @{get_ws_content($tmp)};
  22     cmp_ok(@content, '==', 1, 'one node on this workspace now');
  23     my $border = $content[0]->{border};
  24
  25     exit_gracefully($pid);
  26
  27     return $border;
  28 }
  29
  30 #####################################################################
  31 # test thet windows get the default border
  32 #####################################################################
  33
  34 my $config = <<EOT;
  35 # i3 config file (v4)
  36 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
  37 EOT
  38
  39 is(launch_get_border($config), 'normal', 'normal border');
  40
  41 #####################################################################
  42 # now use a variable and for_window
  43 #####################################################################
  44
  45 $config = <<'EOT';
  46 # i3 config file (v4)
  47 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
  48
  49 set $vartest special title
  50 for_window [title="$vartest"] border none
  51 EOT
  52
  53 is(launch_get_border($config), 'none', 'no border');
  54
  55 #####################################################################
  56 # check that whitespaces and tabs are ignored
  57 #####################################################################
  58
  59 $config = <<'EOT';
  60 # i3 config file (v4)
  61 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
  62
  63 set               $vartest             special title
  64 for_window [title="$vartest"] border none
  65 EOT
  66
  67 is(launch_get_border($config), 'none', 'no border');
  68
  69
  70
  71 done_testing;
  72