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 }
  49 EOT
  50
  51 my $expected = <<'EOT';
  52 cfg_enter_mode(meh)
  53 cfg_mode_binding(bindsym, Mod1,Shift, x, (null), (null), resize grow)
  54 cfg_mode_binding(bindcode, Mod1, 44, (null), (null), resize shrink)
  55 cfg_mode_binding(bindsym, Mod1, x, --release, (null), exec foo)
  56 EOT
  57
  58 is(parser_calls($config),
  59    $expected,
  60    'single number (move workspace 3) ok');
  61
  62 ################################################################################
  63 # exec and exec_always
  64 ################################################################################
  65
  66 $config = <<'EOT';
  67 exec geeqie
  68 exec --no-startup-id /tmp/foo.sh
  69 exec_always firefox
  70 exec_always --no-startup-id /tmp/bar.sh
  71 EOT
  72
  73 $expected = <<'EOT';
  74 cfg_exec(exec, (null), geeqie)
  75 cfg_exec(exec, --no-startup-id, /tmp/foo.sh)
  76 cfg_exec(exec_always, (null), firefox)
  77 cfg_exec(exec_always, --no-startup-id, /tmp/bar.sh)
  78 EOT
  79
  80 is(parser_calls($config),
  81    $expected,
  82    'exec okay');
  83
  84 ################################################################################
  85 # for_window
  86 ################################################################################
  87
  88 $config = <<'EOT';
  89 for_window [class="^Chrome"] floating enable
  90 EOT
  91
  92 $expected = <<'EOT';
  93 cfg_criteria_add(class, ^Chrome)
  94 cfg_for_window(floating enable)
  95 EOT
  96
  97 is(parser_calls($config),
  98    $expected,
  99    'for_window okay');
 100
 101 ################################################################################
 102 # assign
 103 ################################################################################
 104
 105 $config = <<'EOT';
 106 assign [class="^Chrome"] 4
 107 assign [class="^Chrome"] named workspace
 108 assign [class="^Chrome"] "quoted named workspace"
 109 assign [class="^Chrome"] → "quoted named workspace"
 110 EOT
 111
 112 $expected = <<'EOT';
 113 cfg_criteria_add(class, ^Chrome)
 114 cfg_assign(4)
 115 cfg_criteria_add(class, ^Chrome)
 116 cfg_assign(named workspace)
 117 cfg_criteria_add(class, ^Chrome)
 118 cfg_assign(quoted named workspace)
 119 cfg_criteria_add(class, ^Chrome)
 120 cfg_assign(quoted named workspace)
 121 EOT
 122
 123 is(parser_calls($config),
 124    $expected,
 125    'for_window okay');
 126
 127 ################################################################################
 128 # floating_minimum_size / floating_maximum_size
 129 ################################################################################
 130
 131 $config = <<'EOT';
 132 floating_minimum_size 80x55
 133 floating_minimum_size 80    x  55
 134 floating_maximum_size 73 x 10
 135 EOT
 136
 137 $expected = <<'EOT';
 138 cfg_floating_minimum_size(80, 55)
 139 cfg_floating_minimum_size(80, 55)
 140 cfg_floating_maximum_size(73, 10)
 141 EOT
 142
 143 is(parser_calls($config),
 144    $expected,
 145    'floating_minimum_size ok');
 146
 147 ################################################################################
 148 # popup_during_fullscreen
 149 ################################################################################
 150
 151 $config = <<'EOT';
 152 popup_during_fullscreen ignore
 153 popup_during_fullscreen leave_fullscreen
 154 popup_during_fullscreen SMArt
 155 EOT
 156
 157 $expected = <<'EOT';
 158 cfg_popup_during_fullscreen(ignore)
 159 cfg_popup_during_fullscreen(leave_fullscreen)
 160 cfg_popup_during_fullscreen(smart)
 161 EOT
 162
 163 is(parser_calls($config),
 164    $expected,
 165    'popup_during_fullscreen ok');
 166
 167
 168 ################################################################################
 169 # floating_modifier
 170 ################################################################################
 171
 172 $config = <<'EOT';
 173 floating_modifier Mod1
 174 floating_modifier mOd1
 175 EOT
 176
 177 $expected = <<'EOT';
 178 cfg_floating_modifier(Mod1)
 179 cfg_floating_modifier(Mod1)
 180 EOT
 181
 182 is(parser_calls($config),
 183    $expected,
 184    'floating_modifier ok');
 185
 186 ################################################################################
 187 # default_orientation
 188 ################################################################################
 189
 190 $config = <<'EOT';
 191 default_orientation horizontal
 192 default_orientation vertical
 193 default_orientation auto
 194 EOT
 195
 196 $expected = <<'EOT';
 197 cfg_default_orientation(horizontal)
 198 cfg_default_orientation(vertical)
 199 cfg_default_orientation(auto)
 200 EOT
 201
 202 is(parser_calls($config),
 203    $expected,
 204    'default_orientation ok');
 205
 206 ################################################################################
 207 # workspace_layout
 208 ################################################################################
 209
 210 $config = <<'EOT';
 211 workspace_layout default
 212 workspace_layout stacked
 213 workspace_layout stacking
 214 workspace_layout tabbed
 215 EOT
 216
 217 $expected = <<'EOT';
 218 cfg_workspace_layout(default)
 219 cfg_workspace_layout(stacked)
 220 cfg_workspace_layout(stacking)
 221 cfg_workspace_layout(tabbed)
 222 EOT
 223
 224 is(parser_calls($config),
 225    $expected,
 226    'workspace_layout ok');
 227
 228 ################################################################################
 229 # workspace assignments, with trailing whitespace (ticket #921)
 230 ################################################################################
 231
 232 $config = <<'EOT';
 233 workspace "3" output DP-1
 234 workspace "3" output            VGA-1
 235 EOT
 236
 237 $expected = <<'EOT';
 238 cfg_workspace(3, DP-1)
 239 cfg_workspace(3, VGA-1)
 240 EOT
 241
 242 is(parser_calls($config),
 243    $expected,
 244    'workspace assignment ok');
 245
 246 ################################################################################
 247 # new_window
 248 ################################################################################
 249
 250 $config = <<'EOT';
 251 new_window 1pixel
 252 new_window normal
 253 new_window none
 254 new_float 1pixel
 255 new_float normal
 256 new_float none
 257 EOT
 258
 259 $expected = <<'EOT';
 260 cfg_new_window(new_window, 1pixel, -1)
 261 cfg_new_window(new_window, normal, 2)
 262 cfg_new_window(new_window, none, -1)
 263 cfg_new_window(new_float, 1pixel, -1)
 264 cfg_new_window(new_float, normal, 2)
 265 cfg_new_window(new_float, none, -1)
 266 EOT
 267
 268 is(parser_calls($config),
 269    $expected,
 270    'new_window ok');
 271
 272 ################################################################################
 273 # hide_edge_borders
 274 ################################################################################
 275
 276 $config = <<'EOT';
 277 hide_edge_borders none
 278 hide_edge_borders vertical
 279 hide_edge_borders horizontal
 280 hide_edge_borders both
 281 EOT
 282
 283 $expected = <<'EOT';
 284 cfg_hide_edge_borders(none)
 285 cfg_hide_edge_borders(vertical)
 286 cfg_hide_edge_borders(horizontal)
 287 cfg_hide_edge_borders(both)
 288 EOT
 289
 290 is(parser_calls($config),
 291    $expected,
 292    'hide_edge_borders ok');
 293
 294 ################################################################################
 295 # focus_follows_mouse
 296 ################################################################################
 297
 298 $config = <<'EOT';
 299 focus_follows_mouse yes
 300 focus_follows_mouse no
 301 EOT
 302
 303 $expected = <<'EOT';
 304 cfg_focus_follows_mouse(yes)
 305 cfg_focus_follows_mouse(no)
 306 EOT
 307
 308 is(parser_calls($config),
 309    $expected,
 310    'focus_follows_mouse ok');
 311
 312 ################################################################################
 313 # mouse_warping
 314 ################################################################################
 315
 316 $config = <<'EOT';
 317 mouse_warping output
 318 mouse_warping none
 319 EOT
 320
 321 $expected = <<'EOT';
 322 cfg_mouse_warping(output)
 323 cfg_mouse_warping(none)
 324 EOT
 325
 326 is(parser_calls($config),
 327    $expected,
 328    'mouse_warping ok');
 329
 330 ################################################################################
 331 # force_display_urgency_hint
 332 ################################################################################
 333
 334 is(parser_calls('force_display_urgency_hint 300'),
 335    "cfg_force_display_urgency_hint(300)\n",
 336    'force_display_urgency_hint ok');
 337
 338 is(parser_calls('force_display_urgency_hint 500 ms'),
 339    "cfg_force_display_urgency_hint(500)\n",
 340    'force_display_urgency_hint ok');
 341
 342 is(parser_calls('force_display_urgency_hint 700ms'),
 343    "cfg_force_display_urgency_hint(700)\n",
 344    'force_display_urgency_hint ok');
 345
 346 $config = <<'EOT';
 347 force_display_urgency_hint 300
 348 force_display_urgency_hint 500 ms
 349 force_display_urgency_hint 700ms
 350 force_display_urgency_hint 700
 351 EOT
 352
 353 $expected = <<'EOT';
 354 cfg_force_display_urgency_hint(300)
 355 cfg_force_display_urgency_hint(500)
 356 cfg_force_display_urgency_hint(700)
 357 cfg_force_display_urgency_hint(700)
 358 EOT
 359
 360 is(parser_calls($config),
 361    $expected,
 362    'force_display_urgency_hint ok');
 363
 364 ################################################################################
 365 # workspace
 366 ################################################################################
 367
 368 $config = <<'EOT';
 369 workspace 3 output VGA-1
 370 workspace "4: output" output VGA-2
 371 workspace bleh output LVDS1/I_1
 372 EOT
 373
 374 $expected = <<'EOT';
 375 cfg_workspace(3, VGA-1)
 376 cfg_workspace(4: output, VGA-2)
 377 cfg_workspace(bleh, LVDS1/I_1)
 378 EOT
 379
 380 is(parser_calls($config),
 381    $expected,
 382    'workspace ok');
 383
 384 ################################################################################
 385 # ipc-socket
 386 ################################################################################
 387
 388 $config = <<'EOT';
 389 ipc-socket /tmp/i3.sock
 390 ipc_socket ~/.i3/i3.sock
 391 EOT
 392
 393 $expected = <<'EOT';
 394 cfg_ipc_socket(/tmp/i3.sock)
 395 cfg_ipc_socket(~/.i3/i3.sock)
 396 EOT
 397
 398 is(parser_calls($config),
 399    $expected,
 400    'ipc-socket ok');
 401
 402 ################################################################################
 403 # colors
 404 ################################################################################
 405
 406 $config = <<'EOT';
 407 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 408 client.focused_inactive #333333 #5f676a #ffffff #484e50
 409 client.unfocused        #333333 #222222 #888888 #292d2e
 410 client.urgent           #2f343a #900000 #ffffff #900000
 411 client.placeholder      #000000 #0c0c0c #ffffff #000000
 412 EOT
 413
 414 $expected = <<'EOT';
 415 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
 416 cfg_color(client.focused_inactive, #333333, #5f676a, #ffffff, #484e50)
 417 cfg_color(client.unfocused, #333333, #222222, #888888, #292d2e)
 418 cfg_color(client.urgent, #2f343a, #900000, #ffffff, #900000)
 419 cfg_color(client.placeholder, #000000, #0c0c0c, #ffffff, #000000)
 420 EOT
 421
 422 is(parser_calls($config),
 423    $expected,
 424    'colors ok');
 425
 426 ################################################################################
 427 # Verify that errors don’t harm subsequent valid statements
 428 ################################################################################
 429
 430 $config = <<'EOT';
 431 hide_edge_border both
 432 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 433 EOT
 434
 435 my $expected_all_tokens = <<'EOT';
 436 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'
 437 EOT
 438
 439 my $expected_end = <<'EOT';
 440 ERROR: CONFIG: (in file <stdin>)
 441 ERROR: CONFIG: Line   1: hide_edge_border both
 442 ERROR: CONFIG:           ^^^^^^^^^^^^^^^^^^^^^
 443 ERROR: CONFIG: Line   2: client.focused          #4c7899 #285577 #ffffff #2e9ef4
 444 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
 445 EOT
 446
 447 $expected = $expected_all_tokens . $expected_end;
 448
 449 is(parser_calls($config),
 450    $expected,
 451    'errors dont harm subsequent statements');
 452
 453 $config = <<'EOT';
 454 hide_edge_borders FOOBAR
 455 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 456 EOT
 457
 458 $expected = <<'EOT';
 459 ERROR: CONFIG: Expected one of these tokens: 'none', 'vertical', 'horizontal', 'both', '1', 'yes', 'true', 'on', 'enable', 'active'
 460 ERROR: CONFIG: (in file <stdin>)
 461 ERROR: CONFIG: Line   1: hide_edge_borders FOOBAR
 462 ERROR: CONFIG:                             ^^^^^^
 463 ERROR: CONFIG: Line   2: client.focused          #4c7899 #285577 #ffffff #2e9ef4
 464 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4)
 465 EOT
 466
 467 is(parser_calls($config),
 468    $expected,
 469    'errors dont harm subsequent statements');
 470
 471 ################################################################################
 472 # Regression: semicolons end comments, but shouldn’t
 473 ################################################################################
 474
 475 $config = <<'EOT';
 476 # "foo" client.focused          #4c7899 #285577 #ffffff #2e9ef4
 477 EOT
 478
 479 $expected = <<'EOT';
 480
 481 EOT
 482
 483 is(parser_calls($config),
 484    $expected,
 485    'semicolon does not end a comment line');
 486
 487 ################################################################################
 488 # Error message with 2+2 lines of context
 489 ################################################################################
 490
 491 $config = <<'EOT';
 492 # i3 config file (v4)
 493
 494 font foobar
 495
 496 unknown qux
 497
 498 # yay
 499 # this should not show up
 500 EOT
 501
 502 my $expected_head = <<'EOT';
 503 cfg_font(foobar)
 504 EOT
 505
 506 my $expected_tail = <<'EOT';
 507 ERROR: CONFIG: (in file <stdin>)
 508 ERROR: CONFIG: Line   3: font foobar
 509 ERROR: CONFIG: Line   4:
 510 ERROR: CONFIG: Line   5: unknown qux
 511 ERROR: CONFIG:           ^^^^^^^^^^^
 512 ERROR: CONFIG: Line   6:
 513 ERROR: CONFIG: Line   7: # yay
 514 EOT
 515
 516 $expected = $expected_head . $expected_all_tokens . $expected_tail;
 517
 518 is(parser_calls($config),
 519    $expected,
 520    'error message (2+2 context) ok');
 521
 522 ################################################################################
 523 # Error message with 0+0 lines of context
 524 ################################################################################
 525
 526 $config = <<'EOT';
 527 unknown qux
 528 EOT
 529
 530 $expected_tail = <<'EOT';
 531 ERROR: CONFIG: (in file <stdin>)
 532 ERROR: CONFIG: Line   1: unknown qux
 533 ERROR: CONFIG:           ^^^^^^^^^^^
 534 EOT
 535
 536 $expected = $expected_all_tokens . $expected_tail;
 537
 538 is(parser_calls($config),
 539    $expected,
 540    'error message (0+0 context) ok');
 541
 542 ################################################################################
 543 # Error message with 1+0 lines of context
 544 ################################################################################
 545
 546 $config = <<'EOT';
 547 # context before
 548 unknown qux
 549 EOT
 550
 551 $expected_tail = <<'EOT';
 552 ERROR: CONFIG: (in file <stdin>)
 553 ERROR: CONFIG: Line   1: # context before
 554 ERROR: CONFIG: Line   2: unknown qux
 555 ERROR: CONFIG:           ^^^^^^^^^^^
 556 EOT
 557
 558 $expected = $expected_all_tokens . $expected_tail;
 559
 560 is(parser_calls($config),
 561    $expected,
 562    'error message (1+0 context) ok');
 563
 564 ################################################################################
 565 # Error message with 0+1 lines of context
 566 ################################################################################
 567
 568 $config = <<'EOT';
 569 unknown qux
 570 # context after
 571 EOT
 572
 573 $expected_tail = <<'EOT';
 574 ERROR: CONFIG: (in file <stdin>)
 575 ERROR: CONFIG: Line   1: unknown qux
 576 ERROR: CONFIG:           ^^^^^^^^^^^
 577 ERROR: CONFIG: Line   2: # context after
 578 EOT
 579
 580 $expected = $expected_all_tokens . $expected_tail;
 581
 582 is(parser_calls($config),
 583    $expected,
 584    'error message (0+1 context) ok');
 585
 586 ################################################################################
 587 # Error message with 0+2 lines of context
 588 ################################################################################
 589
 590 $config = <<'EOT';
 591 unknown qux
 592 # context after
 593 # context 2 after
 594 EOT
 595
 596 $expected_tail = <<'EOT';
 597 ERROR: CONFIG: (in file <stdin>)
 598 ERROR: CONFIG: Line   1: unknown qux
 599 ERROR: CONFIG:           ^^^^^^^^^^^
 600 ERROR: CONFIG: Line   2: # context after
 601 ERROR: CONFIG: Line   3: # context 2 after
 602 EOT
 603
 604 $expected = $expected_all_tokens . $expected_tail;
 605
 606 is(parser_calls($config),
 607    $expected,
 608    'error message (0+2 context) ok');
 609
 610 ################################################################################
 611 # Error message within mode blocks
 612 ################################################################################
 613
 614 $config = <<'EOT';
 615 mode "yo" {
 616     bindsym x resize shrink left
 617     unknown qux
 618 }
 619 EOT
 620
 621 $expected = <<'EOT';
 622 cfg_enter_mode(yo)
 623 cfg_mode_binding(bindsym, (null), x, (null), (null), resize shrink left)
 624 ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'bindsym', 'bindcode', 'bind', '}'
 625 ERROR: CONFIG: (in file <stdin>)
 626 ERROR: CONFIG: Line   1: mode "yo" {
 627 ERROR: CONFIG: Line   2:     bindsym x resize shrink left
 628 ERROR: CONFIG: Line   3:     unknown qux
 629 ERROR: CONFIG:               ^^^^^^^^^^^
 630 ERROR: CONFIG: Line   4: }
 631 EOT
 632
 633 is(parser_calls($config),
 634    $expected,
 635    'error message (mode block) ok');
 636
 637 ################################################################################
 638 # Error message within bar blocks
 639 ################################################################################
 640
 641 $config = <<'EOT';
 642 bar {
 643     output LVDS-1
 644     unknown qux
 645 }
 646 EOT
 647
 648 $expected = <<'EOT';
 649 cfg_bar_output(LVDS-1)
 650 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', '}'
 651 ERROR: CONFIG: (in file <stdin>)
 652 ERROR: CONFIG: Line   1: bar {
 653 ERROR: CONFIG: Line   2:     output LVDS-1
 654 ERROR: CONFIG: Line   3:     unknown qux
 655 ERROR: CONFIG:               ^^^^^^^^^^^
 656 ERROR: CONFIG: Line   4: }
 657 cfg_bar_finish()
 658 EOT
 659
 660 is(parser_calls($config),
 661    $expected,
 662    'error message (bar block) ok');
 663
 664 done_testing;