git.sur5r.net Git - i3/i3/blob - testcases/t/201-config-parser.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 #
   4 # Please read the following documents before working on tests:
   5 # • http://build.i3wm.org/docs/testsuite.html
   6 #   (or docs/testsuite)
   7 #
   8 # • http://build.i3wm.org/docs/lib-i3test.html
   9 #   (alternatively: perldoc ./testcases/lib/i3test.pm)
  10 #
  11 # • http://build.i3wm.org/docs/ipc.html
  12 #   (or docs/ipc)
  13 #
  14 # • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
  15 #   (unless you are already familiar with Perl)
  16 #
  17 # Tests the standalone parser binary to see if it calls the right code when
  18 # confronted with various commands, if it prints proper error messages for
  19 # wrong commands and if it terminates in every case.
  20 #
  21 use i3test i3_autostart => 0;
  22 use IPC::Run qw(run);
  23
  24 sub parser_calls {
  25     my ($command) = @_;
  26
  27     my $stdout;
  28     run [ 'test.config_parser', $command ],
  29         '>/dev/null',
  30         '2>', \$stdout;
  31     # TODO: use a timeout, so that we can error out if it doesn’t terminate
  32
  33     # Filter out all debugging output.
  34     my @lines = split("\n", $stdout);
  35     @lines = grep { not /^# / } @lines;
  36
  37     # The criteria management calls are irrelevant and not what we want to test
  38     # in the first place.
  39     @lines = grep { !(/cfg_criteria_init/ || /cfg_criteria_pop_state/) } @lines;
  40     return join("\n", @lines) . "\n";
  41 }
  42
  43 my $config = <<'EOT';
  44 mode "meh" {
  45     bindsym Mod1 + Shift +   x resize grow
  46     bindcode Mod1+44 resize shrink
  47     bindsym --release Mod1+x exec foo
  48     bindsym --whole-window button3 nop
  49     bindsym --release --whole-window button3 nop
  50     bindsym --border button3 nop
  51     bindsym --release --border button3 nop
  52     bindsym --exclude-titlebar button3 nop
  53     bindsym --whole-window --border --exclude-titlebar button3 nop
  54 }
  55 EOT
  56
  57 my $expected = <<'EOT';
  58 cfg_enter_mode((null), meh)
  59 cfg_mode_binding(bindsym, Mod1,Shift, x, (null), (null), (null), (null), resize grow)
  60 cfg_mode_binding(bindcode, Mod1, 44, (null), (null), (null), (null), resize shrink)
  61 cfg_mode_binding(bindsym, Mod1, x, --release, (null), (null), (null), exec foo)
  62 cfg_mode_binding(bindsym, (null), button3, (null), (null), --whole-window, (null), nop)
  63 cfg_mode_binding(bindsym, (null), button3, --release, (null), --whole-window, (null), nop)
  64 cfg_mode_binding(bindsym, (null), button3, (null), --border, (null), (null), nop)
  65 cfg_mode_binding(bindsym, (null), button3, --release, --border, (null), (null), nop)
  66 cfg_mode_binding(bindsym, (null), button3, (null), (null), (null), --exclude-titlebar, nop)
  67 cfg_mode_binding(bindsym, (null), button3, (null), --border, --whole-window, --exclude-titlebar, nop)
  68 EOT
  69
  70 is(parser_calls($config),
  71    $expected,
  72    'mode bindings ok');
  73
  74 ################################################################################
  75 # exec and exec_always
  76 ################################################################################
  77
  78 $config = <<'EOT';
  79 exec geeqie
  80 exec --no-startup-id /tmp/foo.sh
  81 exec_always firefox
  82 exec_always --no-startup-id /tmp/bar.sh
  83 EOT
  84
  85 $expected = <<'EOT';
  86 cfg_exec(exec, (null), geeqie)
  87 cfg_exec(exec, --no-startup-id, /tmp/foo.sh)
  88 cfg_exec(exec_always, (null), firefox)
  89 cfg_exec(exec_always, --no-startup-id, /tmp/bar.sh)
  90 EOT
  91
  92 is(parser_calls($config),
  93    $expected,
  94    'exec okay');
  95
  96 ################################################################################
  97 # for_window
  98 ################################################################################
  99
 100 $config = <<'EOT';
 101 for_window [class="^Chrome"] floating enable
 102 EOT
 103
 104 $expected = <<'EOT';
 105 cfg_criteria_add(class, ^Chrome)
 106 cfg_for_window(floating enable)
 107 EOT
 108
 109 is(parser_calls($config),
 110    $expected,
 111    'for_window okay');
 112
 113 ################################################################################
 114 # assign
 115 ################################################################################
 116
 117 $config = <<'EOT';
 118 assign [class="^Chrome"] 4
 119 assign [class="^Chrome"] named workspace
 120 assign [class="^Chrome"] "quoted named workspace"
 121 assign [class="^Chrome"] → "quoted named workspace"
 122 EOT
 123
 124 $expected = <<'EOT';
 125 cfg_criteria_add(class, ^Chrome)
 126 cfg_assign(4)
 127 cfg_criteria_add(class, ^Chrome)
 128 cfg_assign(named workspace)
 129 cfg_criteria_add(class, ^Chrome)
 130 cfg_assign(quoted named workspace)
 131 cfg_criteria_add(class, ^Chrome)
 132 cfg_assign(quoted named workspace)
 133 EOT
 134
 135 is(parser_calls($config),
 136    $expected,
 137    'for_window okay');
 138
 139 ################################################################################
 140 # floating_minimum_size / floating_maximum_size
 141 ################################################################################
 142
 143 $config = <<'EOT';
 144 floating_minimum_size 80x55
 145 floating_minimum_size 80    x  55
 146 floating_maximum_size 73 x 10
 147 EOT
 148
 149 $expected = <<'EOT';
 150 cfg_floating_minimum_size(80, 55)
 151 cfg_floating_minimum_size(80, 55)
 152 cfg_floating_maximum_size(73, 10)
 153 EOT
 154
 155 is(parser_calls($config),
 156    $expected,
 157    'floating_minimum_size ok');
 158
 159 ################################################################################
 160 # popup_during_fullscreen
 161 ################################################################################
 162
 163 $config = <<'EOT';
 164 popup_during_fullscreen ignore
 165 popup_during_fullscreen leave_fullscreen
 166 popup_during_fullscreen SMArt
 167 EOT
 168
 169 $expected = <<'EOT';
 170 cfg_popup_during_fullscreen(ignore)
 171 cfg_popup_during_fullscreen(leave_fullscreen)
 172 cfg_popup_during_fullscreen(smart)
 173 EOT
 174
 175 is(parser_calls($config),
 176    $expected,
 177    'popup_during_fullscreen ok');
 178
 179
 180 ################################################################################
 181 # floating_modifier
 182 ################################################################################
 183
 184 $config = <<'EOT';
 185 floating_modifier Mod1
 186 floating_modifier mOd1
 187 EOT
 188
 189 $expected = <<'EOT';
 190 cfg_floating_modifier(Mod1)
 191 cfg_floating_modifier(Mod1)
 192 EOT
 193
 194 is(parser_calls($config),
 195    $expected,
 196    'floating_modifier ok');
 197
 198 ################################################################################
 199 # default_orientation
 200 ################################################################################
 201
 202 $config = <<'EOT';
 203 default_orientation horizontal
 204 default_orientation vertical
 205 default_orientation auto
 206 EOT
 207
 208 $expected = <<'EOT';
 209 cfg_default_orientation(horizontal)
 210 cfg_default_orientation(vertical)
 211 cfg_default_orientation(auto)
 212 EOT
 213
 214 is(parser_calls($config),
 215    $expected,
 216    'default_orientation ok');
 217
 218 ################################################################################
 219 # workspace_layout
 220 ################################################################################
 221
 222 $config = <<'EOT';
 223 workspace_layout default
 224 workspace_layout stacked
 225 workspace_layout stacking
 226 workspace_layout tabbed
 227 EOT
 228
 229 $expected = <<'EOT';
 230 cfg_workspace_layout(default)
 231 cfg_workspace_layout(stacked)
 232 cfg_workspace_layout(stacking)
 233 cfg_workspace_layout(tabbed)
 234 EOT
 235
 236 is(parser_calls($config),
 237    $expected,
 238    'workspace_layout ok');
 239
 240 ################################################################################
 241 # workspace assignments, with trailing whitespace (ticket #921)
 242 ################################################################################
 243
 244 $config = <<'EOT';
 245 workspace "3" output DP-1
 246 workspace "3" output            VGA-1
 247 EOT
 248
 249 $expected = <<'EOT';
 250 cfg_workspace(3, DP-1)
 251 cfg_workspace(3, VGA-1)
 252 EOT
 253
 254 is(parser_calls($config),
 255    $expected,
 256    'workspace assignment ok');
 257
 258 ################################################################################
 259 # new_window
 260 ################################################################################
 261
 262 $config = <<'EOT';
 263 new_window 1pixel
 264 new_window normal
 265 new_window none
 266 new_float 1pixel
 267 new_float normal
 268 new_float none
 269 EOT
 270
 271 $expected = <<'EOT';
 272 cfg_new_window(new_window, 1pixel, -1)
 273 cfg_new_window(new_window, normal, 2)
 274 cfg_new_window(new_window, none, -1)
 275 cfg_new_window(new_float, 1pixel, -1)
 276 cfg_new_window(new_float, normal, 2)
 277 cfg_new_window(new_float, none, -1)
 278 EOT
 279
 280 is(parser_calls($config),
 281    $expected,
 282    'new_window ok');
 283
 284 ################################################################################
 285 # hide_edge_borders
 286 ################################################################################
 287
 288 $config = <<'EOT';
 289 hide_edge_borders none
 290 hide_edge_borders vertical
 291 hide_edge_borders horizontal
 292 hide_edge_borders both
 293 hide_edge_borders smart
 294 EOT
 295
 296 $expected = <<'EOT';
 297 cfg_hide_edge_borders(none)
 298 cfg_hide_edge_borders(vertical)
 299 cfg_hide_edge_borders(horizontal)
 300 cfg_hide_edge_borders(both)
 301 cfg_hide_edge_borders(smart)
 302 EOT
 303
 304 is(parser_calls($config),
 305    $expected,
 306    'hide_edge_borders ok');
 307
 308 ################################################################################
 309 # focus_follows_mouse
 310 ################################################################################
 311
 312 $config = <<'EOT';
 313 focus_follows_mouse yes
 314 focus_follows_mouse no
 315 EOT
 316
 317 $expected = <<'EOT';
 318 cfg_focus_follows_mouse(yes)
 319 cfg_focus_follows_mouse(no)
 320 EOT
 321
 322 is(parser_calls($config),
 323    $expected,
 324    'focus_follows_mouse ok');
 325
 326 ################################################################################
 327 # mouse_warping
 328 ################################################################################
 329
 330 $config = <<'EOT';
 331 mouse_warping output
 332 mouse_warping none
 333 EOT
 334
 335 $expected = <<'EOT';
 336 cfg_mouse_warping(output)
 337 cfg_mouse_warping(none)
 338 EOT
 339
 340 is(parser_calls($config),
 341    $expected,
 342    'mouse_warping ok');
 343
 344 ################################################################################
 345 # force_display_urgency_hint
 346 ################################################################################
 347
 348 is(parser_calls('force_display_urgency_hint 300'),
 349    "cfg_force_display_urgency_hint(300)\n",
 350    'force_display_urgency_hint ok');
 351
 352 is(parser_calls('force_display_urgency_hint 500 ms'),
 353    "cfg_force_display_urgency_hint(500)\n",
 354    'force_display_urgency_hint ok');
 355
 356 is(parser_calls('force_display_urgency_hint 700ms'),
 357    "cfg_force_display_urgency_hint(700)\n",
 358    'force_display_urgency_hint ok');
 359
 360 $config = <<'EOT';
 361 force_display_urgency_hint 300
 362 force_display_urgency_hint 500 ms
 363 force_display_urgency_hint 700ms
 364 force_display_urgency_hint 700
 365 EOT
 366
 367 $expected = <<'EOT';
 368 cfg_force_display_urgency_hint(300)
 369 cfg_force_display_urgency_hint(500)
 370 cfg_force_display_urgency_hint(700)
 371 cfg_force_display_urgency_hint(700)
 372 EOT
 373
 374 is(parser_calls($config),
 375    $expected,
 376    'force_display_urgency_hint ok');
 377
 378 ################################################################################
 379 # workspace
 380 ################################################################################
 381
 382 $config = <<'EOT';
 383 workspace 3 output VGA-1
 384 workspace "4: output" output VGA-2
 385 workspace bleh output LVDS1/I_1
 386 EOT
 387
 388 $expected = <<'EOT';
 389 cfg_workspace(3, VGA-1)
 390 cfg_workspace(4: output, VGA-2)
 391 cfg_workspace(bleh, LVDS1/I_1)
 392 EOT
 393
 394 is(parser_calls($config),
 395    $expected,
 396    'workspace ok');
 397
 398 ################################################################################
 399 # ipc-socket
 400 ################################################################################
 401
 402 $config = <<'EOT';
 403 ipc-socket /tmp/i3.sock
 404 ipc_socket ~/.i3/i3.sock
 405 EOT
 406
 407 $expected = <<'EOT';
 408 cfg_ipc_socket(/tmp/i3.sock)
 409 cfg_ipc_socket(~/.i3/i3.sock)
 410 EOT
 411
 412 is(parser_calls($config),
 413    $expected,
 414    'ipc-socket ok');
 415
 416 ################################################################################
 417 # colors
 418 ################################################################################
 419
 420 $config = <<'EOT';
 421 client.focused          #4c7899 #285577 #ffffff #2e9ef4 #b34d4c
 422 client.focused_inactive #333333 #5f676a #ffffff #484e50
 423 client.unfocused        #333333 #222222 #888888 #292d2e
 424 client.urgent           #2f343a #900000 #ffffff #900000 #c00000
 425 client.placeholder      #000000 #0c0c0c #ffffff #000000
 426 EOT
 427
 428 $expected = <<'EOT';
 429 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4, #b34d4c)
 430 cfg_color(client.focused_inactive, #333333, #5f676a, #ffffff, #484e50, NULL)
 431 cfg_color(client.unfocused, #333333, #222222, #888888, #292d2e, NULL)
 432 cfg_color(client.urgent, #2f343a, #900000, #ffffff, #900000, #c00000)
 433 cfg_color(client.placeholder, #000000, #0c0c0c, #ffffff, #000000, NULL)
 434 EOT
 435
 436 is(parser_calls($config),
 437    $expected,
 438    'colors ok');
 439
 440 ################################################################################
 441 # Verify that errors don’t harm subsequent valid statements
 442 ################################################################################
 443
 444 $config = <<'EOT';
 445 hide_edge_border both
 446 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 447 EOT
 448
 449 my $expected_all_tokens = "ERROR: CONFIG: Expected one of these tokens: <end>, '#', '" . join("', '", 'set ', 'set      ', qw(
 450         set_from_resource
 451         bindsym
 452         bindcode
 453         bind
 454         bar
 455         font
 456         mode
 457         floating_minimum_size
 458         floating_maximum_size
 459         floating_modifier
 460         default_orientation
 461         workspace_layout
 462         new_window
 463         new_float
 464         hide_edge_borders
 465         for_window
 466         assign
 467         no_focus
 468         focus_follows_mouse
 469         mouse_warping
 470         force_focus_wrapping
 471         force_xinerama
 472         force-xinerama
 473         disable_randr15
 474         disable-randr15
 475         workspace_auto_back_and_forth
 476         fake_outputs
 477         fake-outputs
 478         force_display_urgency_hint
 479         focus_on_window_activation
 480         show_marks
 481         workspace
 482         ipc_socket
 483         ipc-socket
 484         restart_state
 485         popup_during_fullscreen
 486         exec_always
 487         exec
 488         client.background
 489         client.focused_inactive
 490         client.focused
 491         client.unfocused
 492         client.urgent
 493         client.placeholder
 494     )) . "'\n";
 495
 496 my $expected_end = <<'EOT';
 497 ERROR: CONFIG: (in file <stdin>)
 498 ERROR: CONFIG: Line   1: hide_edge_border both
 499 ERROR: CONFIG:           ^^^^^^^^^^^^^^^^^^^^^
 500 ERROR: CONFIG: Line   2: client.focused          #4c7899 #285577 #ffffff #2e9ef4
 501 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4, NULL)
 502 EOT
 503
 504 $expected = $expected_all_tokens . $expected_end;
 505
 506 is(parser_calls($config),
 507    $expected,
 508    'errors dont harm subsequent statements');
 509
 510 $config = <<'EOT';
 511 hide_edge_borders FOOBAR
 512 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 513 EOT
 514
 515 $expected = <<'EOT';
 516 ERROR: CONFIG: Expected one of these tokens: 'none', 'vertical', 'horizontal', 'both', 'smart', '1', 'yes', 'true', 'on', 'enable', 'active'
 517 ERROR: CONFIG: (in file <stdin>)
 518 ERROR: CONFIG: Line   1: hide_edge_borders FOOBAR
 519 ERROR: CONFIG:                             ^^^^^^
 520 ERROR: CONFIG: Line   2: client.focused          #4c7899 #285577 #ffffff #2e9ef4
 521 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4, NULL)
 522 EOT
 523
 524 is(parser_calls($config),
 525    $expected,
 526    'errors dont harm subsequent statements');
 527
 528 ################################################################################
 529 # Regression: semicolons end comments, but shouldn’t
 530 ################################################################################
 531
 532 $config = <<'EOT';
 533 # "foo" client.focused          #4c7899 #285577 #ffffff #2e9ef4
 534 EOT
 535
 536 $expected = <<'EOT';
 537
 538 EOT
 539
 540 is(parser_calls($config),
 541    $expected,
 542    'semicolon does not end a comment line');
 543
 544 ################################################################################
 545 # Error message with 2+2 lines of context
 546 ################################################################################
 547
 548 $config = <<'EOT';
 549 # i3 config file (v4)
 550
 551 font foobar
 552
 553 unknown qux
 554
 555 # yay
 556 # this should not show up
 557 EOT
 558
 559 my $expected_head = <<'EOT';
 560 cfg_font(foobar)
 561 EOT
 562
 563 my $expected_tail = <<'EOT';
 564 ERROR: CONFIG: (in file <stdin>)
 565 ERROR: CONFIG: Line   3: font foobar
 566 ERROR: CONFIG: Line   4:
 567 ERROR: CONFIG: Line   5: unknown qux
 568 ERROR: CONFIG:           ^^^^^^^^^^^
 569 ERROR: CONFIG: Line   6:
 570 ERROR: CONFIG: Line   7: # yay
 571 EOT
 572
 573 $expected = $expected_head . $expected_all_tokens . $expected_tail;
 574
 575 is(parser_calls($config),
 576    $expected,
 577    'error message (2+2 context) ok');
 578
 579 ################################################################################
 580 # Error message with 0+0 lines of context
 581 ################################################################################
 582
 583 $config = <<'EOT';
 584 unknown qux
 585 EOT
 586
 587 $expected_tail = <<'EOT';
 588 ERROR: CONFIG: (in file <stdin>)
 589 ERROR: CONFIG: Line   1: unknown qux
 590 ERROR: CONFIG:           ^^^^^^^^^^^
 591 EOT
 592
 593 $expected = $expected_all_tokens . $expected_tail;
 594
 595 is(parser_calls($config),
 596    $expected,
 597    'error message (0+0 context) ok');
 598
 599 ################################################################################
 600 # Error message with 1+0 lines of context
 601 ################################################################################
 602
 603 $config = <<'EOT';
 604 # context before
 605 unknown qux
 606 EOT
 607
 608 $expected_tail = <<'EOT';
 609 ERROR: CONFIG: (in file <stdin>)
 610 ERROR: CONFIG: Line   1: # context before
 611 ERROR: CONFIG: Line   2: unknown qux
 612 ERROR: CONFIG:           ^^^^^^^^^^^
 613 EOT
 614
 615 $expected = $expected_all_tokens . $expected_tail;
 616
 617 is(parser_calls($config),
 618    $expected,
 619    'error message (1+0 context) ok');
 620
 621 ################################################################################
 622 # Error message with 0+1 lines of context
 623 ################################################################################
 624
 625 $config = <<'EOT';
 626 unknown qux
 627 # context after
 628 EOT
 629
 630 $expected_tail = <<'EOT';
 631 ERROR: CONFIG: (in file <stdin>)
 632 ERROR: CONFIG: Line   1: unknown qux
 633 ERROR: CONFIG:           ^^^^^^^^^^^
 634 ERROR: CONFIG: Line   2: # context after
 635 EOT
 636
 637 $expected = $expected_all_tokens . $expected_tail;
 638
 639 is(parser_calls($config),
 640    $expected,
 641    'error message (0+1 context) ok');
 642
 643 ################################################################################
 644 # Error message with 0+2 lines of context
 645 ################################################################################
 646
 647 $config = <<'EOT';
 648 unknown qux
 649 # context after
 650 # context 2 after
 651 EOT
 652
 653 $expected_tail = <<'EOT';
 654 ERROR: CONFIG: (in file <stdin>)
 655 ERROR: CONFIG: Line   1: unknown qux
 656 ERROR: CONFIG:           ^^^^^^^^^^^
 657 ERROR: CONFIG: Line   2: # context after
 658 ERROR: CONFIG: Line   3: # context 2 after
 659 EOT
 660
 661 $expected = $expected_all_tokens . $expected_tail;
 662
 663 is(parser_calls($config),
 664    $expected,
 665    'error message (0+2 context) ok');
 666
 667 ################################################################################
 668 # Error message within mode blocks
 669 ################################################################################
 670
 671 $config = <<'EOT';
 672 mode "yo" {
 673     bindsym x resize shrink left
 674     unknown qux
 675 }
 676 EOT
 677
 678 $expected = <<'EOT';
 679 cfg_enter_mode((null), yo)
 680 cfg_mode_binding(bindsym, (null), x, (null), (null), (null), (null), resize shrink left)
 681 ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'bindsym', 'bindcode', 'bind', '}'
 682 ERROR: CONFIG: (in file <stdin>)
 683 ERROR: CONFIG: Line   1: mode "yo" {
 684 ERROR: CONFIG: Line   2:     bindsym x resize shrink left
 685 ERROR: CONFIG: Line   3:     unknown qux
 686 ERROR: CONFIG:               ^^^^^^^^^^^
 687 ERROR: CONFIG: Line   4: }
 688 EOT
 689
 690 is(parser_calls($config),
 691    $expected,
 692    'error message (mode block) ok');
 693
 694 ################################################################################
 695 # Error message within bar blocks
 696 ################################################################################
 697
 698 $config = <<'EOT';
 699 bar {
 700     output LVDS-1
 701     unknown qux
 702 }
 703 EOT
 704
 705 $expected = <<'EOT';
 706 cfg_bar_start()
 707 cfg_bar_output(LVDS-1)
 708 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', 'bindsym', 'position', 'output', 'tray_output', 'tray_padding', 'font', 'separator_symbol', 'binding_mode_indicator', 'workspace_buttons', 'strip_workspace_numbers', 'verbose', 'colors', '}'
 709 ERROR: CONFIG: (in file <stdin>)
 710 ERROR: CONFIG: Line   1: bar {
 711 ERROR: CONFIG: Line   2:     output LVDS-1
 712 ERROR: CONFIG: Line   3:     unknown qux
 713 ERROR: CONFIG:               ^^^^^^^^^^^
 714 ERROR: CONFIG: Line   4: }
 715 cfg_bar_finish()
 716 EOT
 717
 718 is(parser_calls($config),
 719    $expected,
 720    'error message (bar block) ok');
 721
 722 done_testing;