my $stdout;
run [ '../test.config_parser', $command ],
- '>&-',
+ '>/dev/null',
'2>', \$stdout;
# TODO: use a timeout, so that we can error out if it doesn’t terminate
my @lines = split("\n", $stdout);
@lines = grep { not /^# / } @lines;
- ## The criteria management calls are irrelevant and not what we want to test
- ## in the first place.
- #@lines = grep { !(/cmd_criteria_init()/ || /cmd_criteria_match_windows/) } @lines;
+ # The criteria management calls are irrelevant and not what we want to test
+ # in the first place.
+ @lines = grep { !(/cfg_criteria_init/ || /cfg_criteria_pop_state/) } @lines;
return join("\n", @lines) . "\n";
}
mode "meh" {
bindsym Mod1 + Shift + x resize grow
bindcode Mod1+44 resize shrink
+ bindsym --release Mod1+x exec foo
}
EOT
my $expected = <<'EOT';
cfg_enter_mode(meh)
-cfg_mode_binding(bindsym, Mod1,Shift, x, resize grow)
-cfg_mode_binding(bindcode, Mod1, 44, resize shrink)
+cfg_mode_binding(bindsym, Mod1,Shift, x, (null), (null), resize grow)
+cfg_mode_binding(bindcode, Mod1, 44, (null), (null), resize shrink)
+cfg_mode_binding(bindsym, Mod1, x, --release, (null), exec foo)
EOT
is(parser_calls($config),
$expected,
'single number (move workspace 3) ok');
+################################################################################
+# exec and exec_always
+################################################################################
+
$config = <<'EOT';
exec geeqie
exec --no-startup-id /tmp/foo.sh
is(parser_calls($config),
$expected,
- 'single number (move workspace 3) ok');
+ 'exec okay');
+
+################################################################################
+# for_window
+################################################################################
+
+$config = <<'EOT';
+for_window [class="^Chrome"] floating enable
+EOT
+
+$expected = <<'EOT';
+cfg_criteria_add(class, ^Chrome)
+cfg_for_window(floating enable)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'for_window okay');
+
+################################################################################
+# assign
+################################################################################
+
+$config = <<'EOT';
+assign [class="^Chrome"] 4
+assign [class="^Chrome"] named workspace
+assign [class="^Chrome"] "quoted named workspace"
+assign [class="^Chrome"] → "quoted named workspace"
+EOT
+
+$expected = <<'EOT';
+cfg_criteria_add(class, ^Chrome)
+cfg_assign(4)
+cfg_criteria_add(class, ^Chrome)
+cfg_assign(named workspace)
+cfg_criteria_add(class, ^Chrome)
+cfg_assign(quoted named workspace)
+cfg_criteria_add(class, ^Chrome)
+cfg_assign(quoted named workspace)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'for_window okay');
+
+################################################################################
+# floating_minimum_size / floating_maximum_size
+################################################################################
+
+$config = <<'EOT';
+floating_minimum_size 80x55
+floating_minimum_size 80 x 55
+floating_maximum_size 73 x 10
+EOT
+
+$expected = <<'EOT';
+cfg_floating_minimum_size(80, 55)
+cfg_floating_minimum_size(80, 55)
+cfg_floating_maximum_size(73, 10)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'floating_minimum_size ok');
+
+################################################################################
+# popup_during_fullscreen
+################################################################################
+
+$config = <<'EOT';
+popup_during_fullscreen ignore
+popup_during_fullscreen leave_fullscreen
+popup_during_fullscreen SMArt
+EOT
+
+$expected = <<'EOT';
+cfg_popup_during_fullscreen(ignore)
+cfg_popup_during_fullscreen(leave_fullscreen)
+cfg_popup_during_fullscreen(smart)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'popup_during_fullscreen ok');
+
+
+################################################################################
+# floating_modifier
+################################################################################
+
+$config = <<'EOT';
+floating_modifier Mod1
+floating_modifier mOd1
+EOT
+
+$expected = <<'EOT';
+cfg_floating_modifier(Mod1)
+cfg_floating_modifier(Mod1)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'floating_modifier ok');
+
+################################################################################
+# default_orientation
+################################################################################
+
+$config = <<'EOT';
+default_orientation horizontal
+default_orientation vertical
+default_orientation auto
+EOT
+
+$expected = <<'EOT';
+cfg_default_orientation(horizontal)
+cfg_default_orientation(vertical)
+cfg_default_orientation(auto)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'default_orientation ok');
+
+################################################################################
+# workspace_layout
+################################################################################
+
+$config = <<'EOT';
+workspace_layout default
+workspace_layout stacked
+workspace_layout stacking
+workspace_layout tabbed
+EOT
+
+$expected = <<'EOT';
+cfg_workspace_layout(default)
+cfg_workspace_layout(stacked)
+cfg_workspace_layout(stacking)
+cfg_workspace_layout(tabbed)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'workspace_layout ok');
+
+################################################################################
+# workspace assignments, with trailing whitespace (ticket #921)
+################################################################################
+
+$config = <<'EOT';
+workspace "3" output DP-1
+workspace "3" output VGA-1
+EOT
+
+$expected = <<'EOT';
+cfg_workspace(3, DP-1)
+cfg_workspace(3, VGA-1)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'workspace assignment ok');
+
+################################################################################
+# new_window
+################################################################################
+
+$config = <<'EOT';
+new_window 1pixel
+new_window normal
+new_window none
+new_float 1pixel
+new_float normal
+new_float none
+EOT
+
+$expected = <<'EOT';
+cfg_new_window(new_window, 1pixel, -1)
+cfg_new_window(new_window, normal, 2)
+cfg_new_window(new_window, none, -1)
+cfg_new_window(new_float, 1pixel, -1)
+cfg_new_window(new_float, normal, 2)
+cfg_new_window(new_float, none, -1)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'new_window ok');
+
+################################################################################
+# hide_edge_borders
+################################################################################
+
+$config = <<'EOT';
+hide_edge_borders none
+hide_edge_borders vertical
+hide_edge_borders horizontal
+hide_edge_borders both
+EOT
+
+$expected = <<'EOT';
+cfg_hide_edge_borders(none)
+cfg_hide_edge_borders(vertical)
+cfg_hide_edge_borders(horizontal)
+cfg_hide_edge_borders(both)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'hide_edge_borders ok');
+
+################################################################################
+# focus_follows_mouse
+################################################################################
+
+$config = <<'EOT';
+focus_follows_mouse yes
+focus_follows_mouse no
+EOT
+
+$expected = <<'EOT';
+cfg_focus_follows_mouse(yes)
+cfg_focus_follows_mouse(no)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'focus_follows_mouse ok');
+
+################################################################################
+# mouse_warping
+################################################################################
+
+$config = <<'EOT';
+mouse_warping output
+mouse_warping none
+EOT
+
+$expected = <<'EOT';
+cfg_mouse_warping(output)
+cfg_mouse_warping(none)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'mouse_warping ok');
+
+################################################################################
+# force_display_urgency_hint
+################################################################################
+
+is(parser_calls('force_display_urgency_hint 300'),
+ "cfg_force_display_urgency_hint(300)\n",
+ 'force_display_urgency_hint ok');
+
+is(parser_calls('force_display_urgency_hint 500 ms'),
+ "cfg_force_display_urgency_hint(500)\n",
+ 'force_display_urgency_hint ok');
+
+is(parser_calls('force_display_urgency_hint 700ms'),
+ "cfg_force_display_urgency_hint(700)\n",
+ 'force_display_urgency_hint ok');
+
+$config = <<'EOT';
+force_display_urgency_hint 300
+force_display_urgency_hint 500 ms
+force_display_urgency_hint 700ms
+force_display_urgency_hint 700
+EOT
+
+$expected = <<'EOT';
+cfg_force_display_urgency_hint(300)
+cfg_force_display_urgency_hint(500)
+cfg_force_display_urgency_hint(700)
+cfg_force_display_urgency_hint(700)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'force_display_urgency_hint ok');
+
+################################################################################
+# workspace
+################################################################################
+$config = <<'EOT';
+workspace 3 output VGA-1
+workspace "4: output" output VGA-2
+workspace bleh output LVDS1/I_1
+EOT
+
+$expected = <<'EOT';
+cfg_workspace(3, VGA-1)
+cfg_workspace(4: output, VGA-2)
+cfg_workspace(bleh, LVDS1/I_1)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'workspace ok');
+
+################################################################################
+# ipc-socket
+################################################################################
+
+$config = <<'EOT';
+ipc-socket /tmp/i3.sock
+ipc_socket ~/.i3/i3.sock
+EOT
+
+$expected = <<'EOT';
+cfg_ipc_socket(/tmp/i3.sock)
+cfg_ipc_socket(~/.i3/i3.sock)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'ipc-socket ok');
+
+################################################################################
+# colors
+################################################################################
+
+$config = <<'EOT';
+client.focused #4c7899 #285577 #ffffff #2e9ef4
+client.focused_inactive #333333 #5f676a #ffffff #484e50
+client.unfocused #333333 #222222 #888888 #292d2e
+client.urgent #2f343a #900000 #ffffff #900000
+client.placeholder #000000 #0c0c0c #ffffff #000000
+EOT
+
+$expected = <<'EOT';
+cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
+cfg_color(client.focused_inactive, #333333, #5f676a, #ffffff, #484e50)
+cfg_color(client.unfocused, #333333, #222222, #888888, #292d2e)
+cfg_color(client.urgent, #2f343a, #900000, #ffffff, #900000)
+cfg_color(client.placeholder, #000000, #0c0c0c, #ffffff, #000000)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'colors ok');
+
+################################################################################
+# Verify that errors don’t harm subsequent valid statements
+################################################################################
+
+$config = <<'EOT';
+hide_edge_border both
+client.focused #4c7899 #285577 #ffffff #2e9ef4
+EOT
+
+my $expected_all_tokens = <<'EOT';
+ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'bindsym', 'bindcode', 'bind', 'bar', 'font', 'mode', 'floating_minimum_size', 'floating_maximum_size', 'floating_modifier', 'default_orientation', 'workspace_layout', 'new_window', 'new_float', 'hide_edge_borders', 'for_window', 'assign', 'no_focus', 'focus_follows_mouse', 'mouse_warping', 'force_focus_wrapping', 'force_xinerama', 'force-xinerama', 'workspace_auto_back_and_forth', 'fake_outputs', 'fake-outputs', 'force_display_urgency_hint', 'focus_on_window_activation', 'show_marks', 'workspace', 'ipc_socket', 'ipc-socket', 'restart_state', 'popup_during_fullscreen', 'exec_always', 'exec', 'client.background', 'client.focused_inactive', 'client.focused', 'client.unfocused', 'client.urgent', 'client.placeholder'
+EOT
+
+my $expected_end = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: hide_edge_border both
+ERROR: CONFIG: ^^^^^^^^^^^^^^^^^^^^^
+ERROR: CONFIG: Line 2: client.focused #4c7899 #285577 #ffffff #2e9ef4
+cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
+EOT
+
+$expected = $expected_all_tokens . $expected_end;
+
+is(parser_calls($config),
+ $expected,
+ 'errors dont harm subsequent statements');
+
+$config = <<'EOT';
+hide_edge_borders FOOBAR
+client.focused #4c7899 #285577 #ffffff #2e9ef4
+EOT
+
+$expected = <<'EOT';
+ERROR: CONFIG: Expected one of these tokens: 'none', 'vertical', 'horizontal', 'both', '1', 'yes', 'true', 'on', 'enable', 'active'
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: hide_edge_borders FOOBAR
+ERROR: CONFIG: ^^^^^^
+ERROR: CONFIG: Line 2: client.focused #4c7899 #285577 #ffffff #2e9ef4
+cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'errors dont harm subsequent statements');
+
+################################################################################
+# Regression: semicolons end comments, but shouldn’t
+################################################################################
+
+$config = <<'EOT';
+# "foo" client.focused #4c7899 #285577 #ffffff #2e9ef4
+EOT
+
+$expected = <<'EOT';
+
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'semicolon does not end a comment line');
+
+################################################################################
+# Error message with 2+2 lines of context
+################################################################################
+
+$config = <<'EOT';
+# i3 config file (v4)
+
+font foobar
+
+unknown qux
+
+# yay
+# this should not show up
+EOT
+
+my $expected_head = <<'EOT';
+cfg_font(foobar)
+EOT
+
+my $expected_tail = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 3: font foobar
+ERROR: CONFIG: Line 4:
+ERROR: CONFIG: Line 5: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+ERROR: CONFIG: Line 6:
+ERROR: CONFIG: Line 7: # yay
+EOT
+
+$expected = $expected_head . $expected_all_tokens . $expected_tail;
+
+is(parser_calls($config),
+ $expected,
+ 'error message (2+2 context) ok');
+
+################################################################################
+# Error message with 0+0 lines of context
+################################################################################
+
+$config = <<'EOT';
+unknown qux
+EOT
+
+$expected_tail = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+EOT
+
+$expected = $expected_all_tokens . $expected_tail;
+
+is(parser_calls($config),
+ $expected,
+ 'error message (0+0 context) ok');
+
+################################################################################
+# Error message with 1+0 lines of context
+################################################################################
+
+$config = <<'EOT';
+# context before
+unknown qux
+EOT
+
+$expected_tail = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: # context before
+ERROR: CONFIG: Line 2: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+EOT
+
+$expected = $expected_all_tokens . $expected_tail;
+
+is(parser_calls($config),
+ $expected,
+ 'error message (1+0 context) ok');
+
+################################################################################
+# Error message with 0+1 lines of context
+################################################################################
+
+$config = <<'EOT';
+unknown qux
+# context after
+EOT
+
+$expected_tail = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+ERROR: CONFIG: Line 2: # context after
+EOT
+
+$expected = $expected_all_tokens . $expected_tail;
+
+is(parser_calls($config),
+ $expected,
+ 'error message (0+1 context) ok');
+
+################################################################################
+# Error message with 0+2 lines of context
+################################################################################
+
+$config = <<'EOT';
+unknown qux
+# context after
+# context 2 after
+EOT
+
+$expected_tail = <<'EOT';
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+ERROR: CONFIG: Line 2: # context after
+ERROR: CONFIG: Line 3: # context 2 after
+EOT
+
+$expected = $expected_all_tokens . $expected_tail;
+
+is(parser_calls($config),
+ $expected,
+ 'error message (0+2 context) ok');
+
+################################################################################
+# Error message within mode blocks
+################################################################################
+
+$config = <<'EOT';
+mode "yo" {
+ bindsym x resize shrink left
+ unknown qux
+}
+EOT
+
+$expected = <<'EOT';
+cfg_enter_mode(yo)
+cfg_mode_binding(bindsym, (null), x, (null), (null), resize shrink left)
+ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'bindsym', 'bindcode', 'bind', '}'
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: mode "yo" {
+ERROR: CONFIG: Line 2: bindsym x resize shrink left
+ERROR: CONFIG: Line 3: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+ERROR: CONFIG: Line 4: }
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'error message (mode block) ok');
+
+################################################################################
+# Error message within bar blocks
+################################################################################
+
+$config = <<'EOT';
+bar {
+ output LVDS-1
+ unknown qux
+}
+EOT
+
+$expected = <<'EOT';
+cfg_bar_output(LVDS-1)
+ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'i3bar_command', 'status_command', 'socket_path', 'mode', 'hidden_state', 'id', 'modifier', 'wheel_up_cmd', 'wheel_down_cmd', 'position', 'output', 'tray_output', 'font', 'separator_symbol', 'binding_mode_indicator', 'workspace_buttons', 'strip_workspace_numbers', 'verbose', 'colors', '}'
+ERROR: CONFIG: (in file <stdin>)
+ERROR: CONFIG: Line 1: bar {
+ERROR: CONFIG: Line 2: output LVDS-1
+ERROR: CONFIG: Line 3: unknown qux
+ERROR: CONFIG: ^^^^^^^^^^^
+ERROR: CONFIG: Line 4: }
+cfg_bar_finish()
+EOT
+
+is(parser_calls($config),
+ $expected,
+ 'error message (bar block) ok');
done_testing;