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 # • https://build.i3wm.org/docs/testsuite.html
   6 #   (or docs/testsuite)
   7 #
   8 # • https://build.i3wm.org/docs/lib-i3test.html
   9 #   (alternatively: perldoc ./testcases/lib/i3test.pm)
  10 #
  11 # • https://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"] workspace number 3
 120 assign [class="^Chrome"] named workspace
 121 assign [class="^Chrome"] "quoted named workspace"
 122 assign [class="^Chrome"] → "quoted named workspace"
 123 EOT
 124
 125 $expected = <<'EOT';
 126 cfg_criteria_add(class, ^Chrome)
 127 cfg_assign(4, 0)
 128 cfg_criteria_add(class, ^Chrome)
 129 cfg_assign(3, 1)
 130 cfg_criteria_add(class, ^Chrome)
 131 cfg_assign(named workspace, 0)
 132 cfg_criteria_add(class, ^Chrome)
 133 cfg_assign(quoted named workspace, 0)
 134 cfg_criteria_add(class, ^Chrome)
 135 cfg_assign(quoted named workspace, 0)
 136 EOT
 137
 138 is(parser_calls($config),
 139    $expected,
 140    'for_window okay');
 141
 142 ################################################################################
 143 # floating_minimum_size / floating_maximum_size
 144 ################################################################################
 145
 146 $config = <<'EOT';
 147 floating_minimum_size 80x55
 148 floating_minimum_size 80    x  55
 149 floating_maximum_size 73 x 10
 150 EOT
 151
 152 $expected = <<'EOT';
 153 cfg_floating_minimum_size(80, 55)
 154 cfg_floating_minimum_size(80, 55)
 155 cfg_floating_maximum_size(73, 10)
 156 EOT
 157
 158 is(parser_calls($config),
 159    $expected,
 160    'floating_minimum_size ok');
 161
 162 ################################################################################
 163 # popup_during_fullscreen
 164 ################################################################################
 165
 166 $config = <<'EOT';
 167 popup_during_fullscreen ignore
 168 popup_during_fullscreen leave_fullscreen
 169 popup_during_fullscreen SMArt
 170 EOT
 171
 172 $expected = <<'EOT';
 173 cfg_popup_during_fullscreen(ignore)
 174 cfg_popup_during_fullscreen(leave_fullscreen)
 175 cfg_popup_during_fullscreen(smart)
 176 EOT
 177
 178 is(parser_calls($config),
 179    $expected,
 180    'popup_during_fullscreen ok');
 181
 182
 183 ################################################################################
 184 # floating_modifier
 185 ################################################################################
 186
 187 $config = <<'EOT';
 188 floating_modifier Mod1
 189 floating_modifier mOd1
 190 EOT
 191
 192 $expected = <<'EOT';
 193 cfg_floating_modifier(Mod1)
 194 cfg_floating_modifier(Mod1)
 195 EOT
 196
 197 is(parser_calls($config),
 198    $expected,
 199    'floating_modifier ok');
 200
 201 ################################################################################
 202 # default_orientation
 203 ################################################################################
 204
 205 $config = <<'EOT';
 206 default_orientation horizontal
 207 default_orientation vertical
 208 default_orientation auto
 209 EOT
 210
 211 $expected = <<'EOT';
 212 cfg_default_orientation(horizontal)
 213 cfg_default_orientation(vertical)
 214 cfg_default_orientation(auto)
 215 EOT
 216
 217 is(parser_calls($config),
 218    $expected,
 219    'default_orientation ok');
 220
 221 ################################################################################
 222 # workspace_layout
 223 ################################################################################
 224
 225 $config = <<'EOT';
 226 workspace_layout default
 227 workspace_layout stacked
 228 workspace_layout stacking
 229 workspace_layout tabbed
 230 EOT
 231
 232 $expected = <<'EOT';
 233 cfg_workspace_layout(default)
 234 cfg_workspace_layout(stacked)
 235 cfg_workspace_layout(stacking)
 236 cfg_workspace_layout(tabbed)
 237 EOT
 238
 239 is(parser_calls($config),
 240    $expected,
 241    'workspace_layout ok');
 242
 243 ################################################################################
 244 # workspace assignments, with trailing whitespace (ticket #921)
 245 ################################################################################
 246
 247 $config = <<'EOT';
 248 workspace "3" output DP-1
 249 workspace "3" output            VGA-1
 250 EOT
 251
 252 $expected = <<'EOT';
 253 cfg_workspace(3, DP-1)
 254 cfg_workspace(3, VGA-1)
 255 EOT
 256
 257 is(parser_calls($config),
 258    $expected,
 259    'workspace assignment ok');
 260
 261 ################################################################################
 262 # new_window
 263 ################################################################################
 264
 265 $config = <<'EOT';
 266 new_window 1pixel
 267 new_window normal
 268 new_window none
 269 default_border 1pixel
 270 default_border normal
 271 default_border none
 272 new_float 1pixel
 273 new_float normal
 274 new_float none
 275 default_floating_border 1pixel
 276 default_floating_border normal
 277 default_floating_border none
 278 EOT
 279
 280 $expected = <<'EOT';
 281 cfg_default_border(new_window, 1pixel, -1)
 282 cfg_default_border(new_window, normal, 2)
 283 cfg_default_border(new_window, none, -1)
 284 cfg_default_border(default_border, 1pixel, -1)
 285 cfg_default_border(default_border, normal, 2)
 286 cfg_default_border(default_border, none, -1)
 287 cfg_default_border(new_float, 1pixel, -1)
 288 cfg_default_border(new_float, normal, 2)
 289 cfg_default_border(new_float, none, -1)
 290 cfg_default_border(default_floating_border, 1pixel, -1)
 291 cfg_default_border(default_floating_border, normal, 2)
 292 cfg_default_border(default_floating_border, none, -1)
 293 EOT
 294
 295 # TODO: are there no tests for "border pixel 1" etc?
 296
 297 is(parser_calls($config),
 298    $expected,
 299    'new_window ok');
 300
 301 ################################################################################
 302 # hide_edge_borders
 303 ################################################################################
 304
 305 $config = <<'EOT';
 306 hide_edge_borders none
 307 hide_edge_borders vertical
 308 hide_edge_borders horizontal
 309 hide_edge_borders both
 310 hide_edge_borders smart
 311 EOT
 312
 313 $expected = <<'EOT';
 314 cfg_hide_edge_borders(none)
 315 cfg_hide_edge_borders(vertical)
 316 cfg_hide_edge_borders(horizontal)
 317 cfg_hide_edge_borders(both)
 318 cfg_hide_edge_borders(smart)
 319 EOT
 320
 321 is(parser_calls($config),
 322    $expected,
 323    'hide_edge_borders ok');
 324
 325 ################################################################################
 326 # focus_follows_mouse
 327 ################################################################################
 328
 329 $config = <<'EOT';
 330 focus_follows_mouse yes
 331 focus_follows_mouse no
 332 EOT
 333
 334 $expected = <<'EOT';
 335 cfg_focus_follows_mouse(yes)
 336 cfg_focus_follows_mouse(no)
 337 EOT
 338
 339 is(parser_calls($config),
 340    $expected,
 341    'focus_follows_mouse ok');
 342
 343 ################################################################################
 344 # mouse_warping
 345 ################################################################################
 346
 347 $config = <<'EOT';
 348 mouse_warping output
 349 mouse_warping none
 350 EOT
 351
 352 $expected = <<'EOT';
 353 cfg_mouse_warping(output)
 354 cfg_mouse_warping(none)
 355 EOT
 356
 357 is(parser_calls($config),
 358    $expected,
 359    'mouse_warping ok');
 360
 361 ################################################################################
 362 # force_display_urgency_hint
 363 ################################################################################
 364
 365 is(parser_calls('force_display_urgency_hint 300'),
 366    "cfg_force_display_urgency_hint(300)\n",
 367    'force_display_urgency_hint ok');
 368
 369 is(parser_calls('force_display_urgency_hint 500 ms'),
 370    "cfg_force_display_urgency_hint(500)\n",
 371    'force_display_urgency_hint ok');
 372
 373 is(parser_calls('force_display_urgency_hint 700ms'),
 374    "cfg_force_display_urgency_hint(700)\n",
 375    'force_display_urgency_hint ok');
 376
 377 $config = <<'EOT';
 378 force_display_urgency_hint 300
 379 force_display_urgency_hint 500 ms
 380 force_display_urgency_hint 700ms
 381 force_display_urgency_hint 700
 382 EOT
 383
 384 $expected = <<'EOT';
 385 cfg_force_display_urgency_hint(300)
 386 cfg_force_display_urgency_hint(500)
 387 cfg_force_display_urgency_hint(700)
 388 cfg_force_display_urgency_hint(700)
 389 EOT
 390
 391 is(parser_calls($config),
 392    $expected,
 393    'force_display_urgency_hint ok');
 394
 395 ################################################################################
 396 # workspace
 397 ################################################################################
 398
 399 $config = <<'EOT';
 400 workspace 3 output VGA-1
 401 workspace "4: output" output VGA-2
 402 workspace bleh output LVDS1/I_1
 403 EOT
 404
 405 $expected = <<'EOT';
 406 cfg_workspace(3, VGA-1)
 407 cfg_workspace(4: output, VGA-2)
 408 cfg_workspace(bleh, LVDS1/I_1)
 409 EOT
 410
 411 is(parser_calls($config),
 412    $expected,
 413    'workspace ok');
 414
 415 ################################################################################
 416 # ipc-socket
 417 ################################################################################
 418
 419 $config = <<'EOT';
 420 ipc-socket /tmp/i3.sock
 421 ipc_socket ~/.i3/i3.sock
 422 EOT
 423
 424 $expected = <<'EOT';
 425 cfg_ipc_socket(/tmp/i3.sock)
 426 cfg_ipc_socket(~/.i3/i3.sock)
 427 EOT
 428
 429 is(parser_calls($config),
 430    $expected,
 431    'ipc-socket ok');
 432
 433 ################################################################################
 434 # colors
 435 ################################################################################
 436
 437 $config = <<'EOT';
 438 client.focused          #4c7899 #285577 #ffffff #2e9ef4 #b34d4c
 439 client.focused_inactive #333333 #5f676a #ffffff #484e50
 440 client.unfocused        #333333 #222222 #888888 #292d2e
 441 client.urgent           #2f343a #900000 #ffffff #900000 #c00000
 442 client.placeholder      #000000 #0c0c0c #ffffff #000000
 443 EOT
 444
 445 $expected = <<'EOT';
 446 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4, #b34d4c)
 447 cfg_color(client.focused_inactive, #333333, #5f676a, #ffffff, #484e50, NULL)
 448 cfg_color(client.unfocused, #333333, #222222, #888888, #292d2e, NULL)
 449 cfg_color(client.urgent, #2f343a, #900000, #ffffff, #900000, #c00000)
 450 cfg_color(client.placeholder, #000000, #0c0c0c, #ffffff, #000000, NULL)
 451 EOT
 452
 453 is(parser_calls($config),
 454    $expected,
 455    'colors ok');
 456
 457 ################################################################################
 458 # Verify that errors don’t harm subsequent valid statements
 459 ################################################################################
 460
 461 $config = <<'EOT';
 462 hide_edge_border both
 463 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 464 EOT
 465
 466 my $expected_all_tokens = "ERROR: CONFIG: Expected one of these tokens: <end>, '#', '" . join("', '", 'set ', 'set      ', qw(
 467         set_from_resource
 468         bindsym
 469         bindcode
 470         bind
 471         bar
 472         font
 473         mode
 474         floating_minimum_size
 475         floating_maximum_size
 476         floating_modifier
 477         default_orientation
 478         workspace_layout
 479         default_border
 480         new_window
 481         default_floating_border
 482         new_float
 483         hide_edge_borders
 484         for_window
 485         assign
 486         no_focus
 487         focus_follows_mouse
 488         mouse_warping
 489         focus_wrapping
 490         force_focus_wrapping
 491         force_xinerama
 492         force-xinerama
 493         disable_randr15
 494         disable-randr15
 495         workspace_auto_back_and_forth
 496         fake_outputs
 497         fake-outputs
 498         force_display_urgency_hint
 499         focus_on_window_activation
 500         show_marks
 501         workspace
 502         ipc_socket
 503         ipc-socket
 504         restart_state
 505         popup_during_fullscreen
 506         exec_always
 507         exec
 508         client.background
 509         client.focused_inactive
 510         client.focused
 511         client.unfocused
 512         client.urgent
 513         client.placeholder
 514     )) . "'\n";
 515
 516 my $expected_end = <<'EOT';
 517 ERROR: CONFIG: (in file <stdin>)
 518 ERROR: CONFIG: Line   1: hide_edge_border both
 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 $expected = $expected_all_tokens . $expected_end;
 525
 526 is(parser_calls($config),
 527    $expected,
 528    'errors dont harm subsequent statements');
 529
 530 $config = <<'EOT';
 531 hide_edge_borders FOOBAR
 532 client.focused          #4c7899 #285577 #ffffff #2e9ef4
 533 EOT
 534
 535 $expected = <<'EOT';
 536 ERROR: CONFIG: Expected one of these tokens: 'none', 'vertical', 'horizontal', 'both', 'smart', '1', 'yes', 'true', 'on', 'enable', 'active'
 537 ERROR: CONFIG: (in file <stdin>)
 538 ERROR: CONFIG: Line   1: hide_edge_borders FOOBAR
 539 ERROR: CONFIG:                             ^^^^^^
 540 ERROR: CONFIG: Line   2: client.focused          #4c7899 #285577 #ffffff #2e9ef4
 541 cfg_color(client.focused, #4c7899, #285577, #ffffff, #2e9ef4, NULL)
 542 EOT
 543
 544 is(parser_calls($config),
 545    $expected,
 546    'errors dont harm subsequent statements');
 547
 548 ################################################################################
 549 # Regression: semicolons end comments, but shouldn’t
 550 ################################################################################
 551
 552 $config = <<'EOT';
 553 # "foo" client.focused          #4c7899 #285577 #ffffff #2e9ef4
 554 EOT
 555
 556 $expected = <<'EOT';
 557
 558 EOT
 559
 560 is(parser_calls($config),
 561    $expected,
 562    'semicolon does not end a comment line');
 563
 564 ################################################################################
 565 # Error message with 2+2 lines of context
 566 ################################################################################
 567
 568 $config = <<'EOT';
 569 # i3 config file (v4)
 570
 571 font foobar
 572
 573 unknown qux
 574
 575 # yay
 576 # this should not show up
 577 EOT
 578
 579 my $expected_head = <<'EOT';
 580 cfg_font(foobar)
 581 EOT
 582
 583 my $expected_tail = <<'EOT';
 584 ERROR: CONFIG: (in file <stdin>)
 585 ERROR: CONFIG: Line   3: font foobar
 586 ERROR: CONFIG: Line   4:
 587 ERROR: CONFIG: Line   5: unknown qux
 588 ERROR: CONFIG:           ^^^^^^^^^^^
 589 ERROR: CONFIG: Line   6:
 590 ERROR: CONFIG: Line   7: # yay
 591 EOT
 592
 593 $expected = $expected_head . $expected_all_tokens . $expected_tail;
 594
 595 is(parser_calls($config),
 596    $expected,
 597    'error message (2+2 context) ok');
 598
 599 ################################################################################
 600 # Error message with 0+0 lines of context
 601 ################################################################################
 602
 603 $config = <<'EOT';
 604 unknown qux
 605 EOT
 606
 607 $expected_tail = <<'EOT';
 608 ERROR: CONFIG: (in file <stdin>)
 609 ERROR: CONFIG: Line   1: unknown qux
 610 ERROR: CONFIG:           ^^^^^^^^^^^
 611 EOT
 612
 613 $expected = $expected_all_tokens . $expected_tail;
 614
 615 is(parser_calls($config),
 616    $expected,
 617    'error message (0+0 context) ok');
 618
 619 ################################################################################
 620 # Error message with 1+0 lines of context
 621 ################################################################################
 622
 623 $config = <<'EOT';
 624 # context before
 625 unknown qux
 626 EOT
 627
 628 $expected_tail = <<'EOT';
 629 ERROR: CONFIG: (in file <stdin>)
 630 ERROR: CONFIG: Line   1: # context before
 631 ERROR: CONFIG: Line   2: unknown qux
 632 ERROR: CONFIG:           ^^^^^^^^^^^
 633 EOT
 634
 635 $expected = $expected_all_tokens . $expected_tail;
 636
 637 is(parser_calls($config),
 638    $expected,
 639    'error message (1+0 context) ok');
 640
 641 ################################################################################
 642 # Error message with 0+1 lines of context
 643 ################################################################################
 644
 645 $config = <<'EOT';
 646 unknown qux
 647 # context after
 648 EOT
 649
 650 $expected_tail = <<'EOT';
 651 ERROR: CONFIG: (in file <stdin>)
 652 ERROR: CONFIG: Line   1: unknown qux
 653 ERROR: CONFIG:           ^^^^^^^^^^^
 654 ERROR: CONFIG: Line   2: # context after
 655 EOT
 656
 657 $expected = $expected_all_tokens . $expected_tail;
 658
 659 is(parser_calls($config),
 660    $expected,
 661    'error message (0+1 context) ok');
 662
 663 ################################################################################
 664 # Error message with 0+2 lines of context
 665 ################################################################################
 666
 667 $config = <<'EOT';
 668 unknown qux
 669 # context after
 670 # context 2 after
 671 EOT
 672
 673 $expected_tail = <<'EOT';
 674 ERROR: CONFIG: (in file <stdin>)
 675 ERROR: CONFIG: Line   1: unknown qux
 676 ERROR: CONFIG:           ^^^^^^^^^^^
 677 ERROR: CONFIG: Line   2: # context after
 678 ERROR: CONFIG: Line   3: # context 2 after
 679 EOT
 680
 681 $expected = $expected_all_tokens . $expected_tail;
 682
 683 is(parser_calls($config),
 684    $expected,
 685    'error message (0+2 context) ok');
 686
 687 ################################################################################
 688 # Error message within mode blocks
 689 ################################################################################
 690
 691 $config = <<'EOT';
 692 mode "yo" {
 693     bindsym x resize shrink left
 694     unknown qux
 695 }
 696 EOT
 697
 698 $expected = <<'EOT';
 699 cfg_enter_mode((null), yo)
 700 cfg_mode_binding(bindsym, (null), x, (null), (null), (null), (null), resize shrink left)
 701 ERROR: CONFIG: Expected one of these tokens: <end>, '#', 'set', 'bindsym', 'bindcode', 'bind', '}'
 702 ERROR: CONFIG: (in file <stdin>)
 703 ERROR: CONFIG: Line   1: mode "yo" {
 704 ERROR: CONFIG: Line   2:     bindsym x resize shrink left
 705 ERROR: CONFIG: Line   3:     unknown qux
 706 ERROR: CONFIG:               ^^^^^^^^^^^
 707 ERROR: CONFIG: Line   4: }
 708 EOT
 709
 710 is(parser_calls($config),
 711    $expected,
 712    'error message (mode block) ok');
 713
 714 ################################################################################
 715 # Error message within bar blocks
 716 ################################################################################
 717
 718 $config = <<'EOT';
 719 bar {
 720     output LVDS-1
 721     unknown qux
 722 }
 723 EOT
 724
 725 $expected = <<'EOT';
 726 cfg_bar_start()
 727 cfg_bar_output(LVDS-1)
 728 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', '}'
 729 ERROR: CONFIG: (in file <stdin>)
 730 ERROR: CONFIG: Line   1: bar {
 731 ERROR: CONFIG: Line   2:     output LVDS-1
 732 ERROR: CONFIG: Line   3:     unknown qux
 733 ERROR: CONFIG:               ^^^^^^^^^^^
 734 ERROR: CONFIG: Line   4: }
 735 cfg_bar_finish()
 736 EOT
 737
 738 is(parser_calls($config),
 739    $expected,
 740    'error message (bar block) ok');
 741
 742 done_testing;