git.sur5r.net Git - i3/i3/blob - testcases/t/165-for_window.t

   1 #!perl
   2 # vim:ts=4:sw=4:expandtab
   3 # !NO_I3_INSTANCE! will prevent complete-run.pl from starting i3
   4 #
   5 #
   6 use X11::XCB qw(:all);
   7 use X11::XCB::Connection;
   8 use i3test;
   9
  10 my $x = X11::XCB::Connection->new;
  11
  12 ##############################################################
  13 # 1: test the following directive:
  14 #    for_window [class="borderless"] border none
  15 # by first creating a window with a different class (should get
  16 # the normal border), then creating a window with the class
  17 # "borderless" (should get no border)
  18 ##############################################################
  19
  20 my $config = <<EOT;
  21 # i3 config file (v4)
  22 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
  23 for_window [class="borderless"] border none
  24 for_window [title="special borderless title"] border none
  25 EOT
  26
  27 my $pid = launch_with_config($config);
  28
  29 my $tmp = fresh_workspace;
  30
  31 my $window = $x->root->create_child(
  32     class => WINDOW_CLASS_INPUT_OUTPUT,
  33     rect => [ 0, 0, 30, 30 ],
  34     background_color => '#00ff00',
  35     event_mask => [ 'structure_notify' ],
  36 );
  37
  38 $window->name('Border window');
  39 $window->map;
  40 wait_for_map $x;
  41
  42 my @content = @{get_ws_content($tmp)};
  43 cmp_ok(@content, '==', 1, 'one node on this workspace now');
  44 is($content[0]->{border}, 'normal', 'normal border');
  45
  46 $window->unmap;
  47 wait_for_unmap $x;
  48
  49 my @content = @{get_ws_content($tmp)};
  50 cmp_ok(@content, '==', 0, 'no more nodes');
  51 diag('content = '. Dumper(\@content));
  52
  53 $window = $x->root->create_child(
  54     class => WINDOW_CLASS_INPUT_OUTPUT,
  55     rect => [ 0, 0, 30, 30 ],
  56     background_color => '#00ff00',
  57     event_mask => [ 'structure_notify' ],
  58 );
  59
  60 $window->_create;
  61
  62 # TODO: move this to X11::XCB::Window
  63 sub set_wm_class {
  64     my ($id, $class, $instance) = @_;
  65
  66     # Add a _NET_WM_STRUT_PARTIAL hint
  67     my $atomname = $x->atom(name => 'WM_CLASS');
  68     my $atomtype = $x->atom(name => 'STRING');
  69
  70     $x->change_property(
  71         PROP_MODE_REPLACE,
  72         $id,
  73         $atomname->id,
  74         $atomtype->id,
  75         8,
  76         length($class) + length($instance) + 2,
  77         "$instance\x00$class\x00"
  78     );
  79 }
  80
  81 set_wm_class($window->id, 'borderless', 'borderless');
  82 $window->name('Borderless window');
  83 $window->map;
  84 wait_for_map $x;
  85
  86 @content = @{get_ws_content($tmp)};
  87 cmp_ok(@content, '==', 1, 'one node on this workspace now');
  88 is($content[0]->{border}, 'none', 'no border');
  89
  90 $window->unmap;
  91 wait_for_unmap $x;
  92
  93 @content = @{get_ws_content($tmp)};
  94 cmp_ok(@content, '==', 0, 'no more nodes');
  95
  96 exit_gracefully($pid);
  97
  98 ##############################################################
  99 # 2: match on the title, check if for_window is really executed
 100 # only once
 101 ##############################################################
 102
 103 $config = <<EOT;
 104 # i3 config file (v4)
 105 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 106 for_window [class="borderless"] border none
 107 for_window [title="special borderless title"] border none
 108 EOT
 109
 110 $pid = launch_with_config($config);
 111
 112 $tmp = fresh_workspace;
 113
 114 $window = $x->root->create_child(
 115     class => WINDOW_CLASS_INPUT_OUTPUT,
 116     rect => [ 0, 0, 30, 30 ],
 117     background_color => '#00ff00',
 118     event_mask => [ 'structure_notify' ],
 119 );
 120
 121 $window->name('special title');
 122 $window->map;
 123 wait_for_map $x;
 124
 125 @content = @{get_ws_content($tmp)};
 126 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 127 is($content[0]->{border}, 'normal', 'normal border');
 128
 129 $window->name('special borderless title');
 130 sync_with_i3 $x;
 131
 132 @content = @{get_ws_content($tmp)};
 133 is($content[0]->{border}, 'none', 'no border');
 134
 135 $window->name('special title');
 136 sync_with_i3 $x;
 137
 138 cmd 'border normal';
 139
 140 @content = @{get_ws_content($tmp)};
 141 is($content[0]->{border}, 'normal', 'border reset to normal');
 142
 143 $window->name('special borderless title');
 144 sync_with_i3 $x;
 145
 146 @content = @{get_ws_content($tmp)};
 147 is($content[0]->{border}, 'normal', 'still normal border');
 148
 149 $window->unmap;
 150 wait_for_unmap $x;
 151
 152 @content = @{get_ws_content($tmp)};
 153 cmp_ok(@content, '==', 0, 'no more nodes');
 154
 155 exit_gracefully($pid);
 156
 157 ##############################################################
 158 # 3: match on the title, set border style *and* a mark
 159 ##############################################################
 160
 161 $config = <<EOT;
 162 # i3 config file (v4)
 163 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 164 for_window [class="borderless" title="usethis"] border none
 165 for_window [class="borderless"] border none
 166 for_window [title="special borderless title"] border none
 167 for_window [title="special mark title"] border none, mark bleh
 168 EOT
 169
 170 $pid = launch_with_config($config);
 171
 172 $tmp = fresh_workspace;
 173
 174 $window = $x->root->create_child(
 175     class => WINDOW_CLASS_INPUT_OUTPUT,
 176     rect => [ 0, 0, 30, 30 ],
 177     background_color => '#00ff00',
 178     event_mask => [ 'structure_notify' ],
 179 );
 180
 181 $window->name('special mark title');
 182 $window->map;
 183 wait_for_map $x;
 184
 185 @content = @{get_ws_content($tmp)};
 186 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 187 is($content[0]->{border}, 'none', 'no border');
 188
 189 my $other = open_window($x);
 190
 191 @content = @{get_ws_content($tmp)};
 192 cmp_ok(@content, '==', 2, 'two nodes');
 193 is($content[0]->{border}, 'none', 'no border');
 194 is($content[1]->{border}, 'normal', 'normal border');
 195 ok(!$content[0]->{focused}, 'first one not focused');
 196
 197 cmd qq|[con_mark="bleh"] focus|;
 198
 199 @content = @{get_ws_content($tmp)};
 200 ok($content[0]->{focused}, 'first node focused');
 201
 202 exit_gracefully($pid);
 203
 204 ##############################################################
 205 # 4: multiple criteria for the for_window command
 206 ##############################################################
 207
 208 $config = <<EOT;
 209 # i3 config file (v4)
 210 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 211 for_window [class="borderless" title="usethis"] border none
 212 EOT
 213
 214 $pid = launch_with_config($config);
 215
 216 $tmp = fresh_workspace;
 217
 218 $window = $x->root->create_child(
 219     class => WINDOW_CLASS_INPUT_OUTPUT,
 220     rect => [ 0, 0, 30, 30 ],
 221     background_color => '#00ff00',
 222     event_mask => [ 'structure_notify' ],
 223 );
 224
 225 $window->_create;
 226
 227 set_wm_class($window->id, 'borderless', 'borderless');
 228 $window->name('usethis');
 229 $window->map;
 230 wait_for_map $x;
 231
 232 @content = @{get_ws_content($tmp)};
 233 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 234 is($content[0]->{border}, 'none', 'no border');
 235
 236 cmd 'kill';
 237 wait_for_unmap $x;
 238 $window->destroy;
 239
 240 @content = @{get_ws_content($tmp)};
 241 cmp_ok(@content, '==', 0, 'no nodes on this workspace now');
 242
 243 $window->_create;
 244
 245 set_wm_class($window->id, 'borderless', 'borderless');
 246 $window->name('notthis');
 247 $window->map;
 248 wait_for_map $x;
 249
 250 @content = @{get_ws_content($tmp)};
 251 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 252 is($content[0]->{border}, 'normal', 'no border');
 253
 254
 255 exit_gracefully($pid);
 256
 257 ##############################################################
 258 # 5: check that a class criterion does not match the instance
 259 ##############################################################
 260
 261 $config = <<EOT;
 262 # i3 config file (v4)
 263 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 264 for_window [class="foo"] border 1pixel
 265 EOT
 266
 267 $pid = launch_with_config($config);
 268
 269 $tmp = fresh_workspace;
 270
 271 $window = $x->root->create_child(
 272     class => WINDOW_CLASS_INPUT_OUTPUT,
 273     rect => [ 0, 0, 30, 30 ],
 274     background_color => '#00ff00',
 275     event_mask => [ 'structure_notify' ],
 276 );
 277
 278 $window->_create;
 279
 280 set_wm_class($window->id, 'bar', 'foo');
 281 $window->name('usethis');
 282 $window->map;
 283 wait_for_map $x;
 284
 285 @content = @{get_ws_content($tmp)};
 286 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 287 is($content[0]->{border}, 'normal', 'normal border, not matched');
 288
 289 exit_gracefully($pid);
 290
 291 ##############################################################
 292 # 6: check that the 'instance' criterion works
 293 ##############################################################
 294
 295 $config = <<EOT;
 296 # i3 config file (v4)
 297 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 298 for_window [class="foo"] border 1pixel
 299 for_window [instance="foo"] border none
 300 EOT
 301
 302 $pid = launch_with_config($config);
 303
 304 $tmp = fresh_workspace;
 305
 306 $window = $x->root->create_child(
 307     class => WINDOW_CLASS_INPUT_OUTPUT,
 308     rect => [ 0, 0, 30, 30 ],
 309     background_color => '#00ff00',
 310     event_mask => [ 'structure_notify' ],
 311 );
 312
 313 $window->_create;
 314
 315 set_wm_class($window->id, 'bar', 'foo');
 316 $window->name('usethis');
 317 $window->map;
 318 wait_for_map $x;
 319
 320 @content = @{get_ws_content($tmp)};
 321 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 322 is($content[0]->{border}, 'none', 'no border');
 323
 324 exit_gracefully($pid);
 325
 326 ##############################################################
 327 # 7: check that invalid criteria don’t end up matching all windows
 328 ##############################################################
 329
 330 # this configuration is broken because "asdf" is not a valid integer
 331 # the for_window should therefore recognize this error and don’t add the
 332 # assignment
 333 $config = <<EOT;
 334 # i3 config file (v4)
 335 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 336 for_window [id="asdf"] border none
 337 EOT
 338
 339 $pid = launch_with_config($config);
 340
 341 $tmp = fresh_workspace;
 342
 343 $window = $x->root->create_child(
 344     class => WINDOW_CLASS_INPUT_OUTPUT,
 345     rect => [ 0, 0, 30, 30 ],
 346     background_color => '#00ff00',
 347     event_mask => [ 'structure_notify' ],
 348 );
 349
 350 $window->_create;
 351
 352 set_wm_class($window->id, 'bar', 'foo');
 353 $window->name('usethis');
 354 $window->map;
 355 wait_for_map $x;
 356
 357 @content = @{get_ws_content($tmp)};
 358 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 359 is($content[0]->{border}, 'normal', 'normal border');
 360
 361 exit_gracefully($pid);
 362
 363 ##############################################################
 364 # 8: check that the role criterion works properly
 365 ##############################################################
 366
 367 # this configuration is broken because "asdf" is not a valid integer
 368 # the for_window should therefore recognize this error and don’t add the
 369 # assignment
 370 $config = <<EOT;
 371 # i3 config file (v4)
 372 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 373 for_window [window_role="i3test"] border none
 374 EOT
 375
 376 $pid = launch_with_config($config);
 377
 378 $tmp = fresh_workspace;
 379
 380 $window = $x->root->create_child(
 381     class => WINDOW_CLASS_INPUT_OUTPUT,
 382     rect => [ 0, 0, 30, 30 ],
 383     background_color => '#00ff00',
 384     event_mask => [ 'structure_notify' ],
 385 );
 386
 387 $window->_create;
 388
 389 my $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
 390 my $atomtype = $x->atom(name => 'STRING');
 391 $x->change_property(
 392   PROP_MODE_REPLACE,
 393   $window->id,
 394   $atomname->id,
 395   $atomtype->id,
 396   8,
 397   length("i3test") + 1,
 398   "i3test\x00"
 399 );
 400
 401 $window->name('usethis');
 402 $window->map;
 403 wait_for_map $x;
 404
 405 @content = @{get_ws_content($tmp)};
 406 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 407 is($content[0]->{border}, 'none', 'no border (window_role)');
 408
 409 exit_gracefully($pid);
 410
 411 ##############################################################
 412 # 9: another test for the window_role, but this time it changes
 413 #    *after* the window has been mapped
 414 ##############################################################
 415
 416 # this configuration is broken because "asdf" is not a valid integer
 417 # the for_window should therefore recognize this error and don’t add the
 418 # assignment
 419 $config = <<EOT;
 420 # i3 config file (v4)
 421 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 422 for_window [window_role="i3test"] border none
 423 EOT
 424
 425 $pid = launch_with_config($config);
 426
 427 $tmp = fresh_workspace;
 428
 429 $window = $x->root->create_child(
 430     class => WINDOW_CLASS_INPUT_OUTPUT,
 431     rect => [ 0, 0, 30, 30 ],
 432     background_color => '#00ff00',
 433     event_mask => [ 'structure_notify' ],
 434 );
 435
 436 $window->_create;
 437
 438 $window->name('usethis');
 439 $window->map;
 440 wait_for_map $x;
 441
 442 @content = @{get_ws_content($tmp)};
 443 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 444 is($content[0]->{border}, 'normal', 'normal border (window_role 2)');
 445
 446 $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
 447 $atomtype = $x->atom(name => 'STRING');
 448 $x->change_property(
 449   PROP_MODE_REPLACE,
 450   $window->id,
 451   $atomname->id,
 452   $atomtype->id,
 453   8,
 454   length("i3test") + 1,
 455   "i3test\x00"
 456 );
 457
 458 $x->flush;
 459
 460 sync_with_i3 $x;
 461
 462 @content = @{get_ws_content($tmp)};
 463 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 464 is($content[0]->{border}, 'none', 'no border (window_role 2)');
 465
 466 exit_gracefully($pid);
 467
 468
 469 done_testing;