#!perl
# vim:ts=4:sw=4:expandtab
#
+# Please read the following documents before working on tests:
+# • http://build.i3wm.org/docs/testsuite.html
+# (or docs/testsuite)
+#
+# • http://build.i3wm.org/docs/lib-i3test.html
+# (alternatively: perldoc ./testcases/lib/i3test.pm)
+#
+# • http://build.i3wm.org/docs/ipc.html
+# (or docs/ipc)
+#
+# • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
+# (unless you are already familiar with Perl)
+#
# Checks that the bar config is parsed correctly.
#
is($bar_config->{status_command}, 'i3status --foo', 'status_command correct');
ok(!$bar_config->{verbose}, 'verbose off by default');
ok($bar_config->{workspace_buttons}, 'workspace buttons enabled per default');
+ok($bar_config->{binding_mode_indicator}, 'mode indicator enabled per default');
is($bar_config->{mode}, 'dock', 'dock mode by default');
is($bar_config->{position}, 'bottom', 'position bottom by default');
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
bar {
- # Start a default instance of i3bar which provides workspace buttons.
+ # Start a default instance of i3bar which does not provide
+ # workspace buttons.
# Additionally, i3status will provide a statusline.
status_command i3status --bar
mode dock
font Terminus
workspace_buttons no
+ binding_mode_indicator no
verbose yes
socket_path /tmp/foobar
is($bar_config->{status_command}, 'i3status --bar', 'status_command correct');
ok($bar_config->{verbose}, 'verbose on');
ok(!$bar_config->{workspace_buttons}, 'workspace buttons disabled');
+ok(!$bar_config->{binding_mode_indicator}, 'mode indicator disabled');
is($bar_config->{mode}, 'dock', 'dock mode');
is($bar_config->{position}, 'top', 'position top');
is_deeply($bar_config->{outputs}, [ 'HDMI1', 'HDMI2' ], 'outputs ok');
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
bar {
- # Start a default instance of i3bar which provides workspace buttons.
+ # Start a default instance of i3bar which does not provide
+ # workspace buttons.
# Additionally, i3status will provide a statusline.
status_command i3status --bar
mode dock
font Terminus
workspace_buttons no
+ binding_mode_indicator yes
verbose yes
socket_path /tmp/foobar
is($bar_config->{status_command}, 'i3status --bar', 'status_command correct');
ok($bar_config->{verbose}, 'verbose on');
ok(!$bar_config->{workspace_buttons}, 'workspace buttons disabled');
+ok($bar_config->{binding_mode_indicator}, 'mode indicator enabled');
is($bar_config->{mode}, 'dock', 'dock mode');
is($bar_config->{position}, 'top', 'position top');
is_deeply($bar_config->{outputs}, [ 'HDMI1', 'HDMI2' ], 'outputs ok');