git.sur5r.net Git - i3/i3/blob - testcases/t/65-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 $process = 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($process->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 $process = 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($process->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 $process = 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($process->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 $process = 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 $window->unmap;
 237 wait_for_unmap $x;
 238
 239 @content = @{get_ws_content($tmp)};
 240 cmp_ok(@content, '==', 0, 'no nodes on this workspace now');
 241
 242 set_wm_class($window->id, 'borderless', 'borderless');
 243 $window->name('notthis');
 244 $window->map;
 245 wait_for_map $x;
 246
 247 @content = @{get_ws_content($tmp)};
 248 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 249 is($content[0]->{border}, 'normal', 'no border');
 250
 251
 252 exit_gracefully($process->pid);
 253
 254 ##############################################################
 255 # 5: check that a class criterion does not match the instance
 256 ##############################################################
 257
 258 $config = <<EOT;
 259 # i3 config file (v4)
 260 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 261 for_window [class="foo"] border 1pixel
 262 EOT
 263
 264 $process = launch_with_config($config);
 265
 266 $tmp = fresh_workspace;
 267
 268 $window = $x->root->create_child(
 269     class => WINDOW_CLASS_INPUT_OUTPUT,
 270     rect => [ 0, 0, 30, 30 ],
 271     background_color => '#00ff00',
 272     event_mask => [ 'structure_notify' ],
 273 );
 274
 275 $window->_create;
 276
 277 set_wm_class($window->id, 'bar', 'foo');
 278 $window->name('usethis');
 279 $window->map;
 280 wait_for_map $x;
 281
 282 @content = @{get_ws_content($tmp)};
 283 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 284 is($content[0]->{border}, 'normal', 'normal border, not matched');
 285
 286 exit_gracefully($process->pid);
 287
 288 ##############################################################
 289 # 6: check that the 'instance' criterion works
 290 ##############################################################
 291
 292 $config = <<EOT;
 293 # i3 config file (v4)
 294 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 295 for_window [class="foo"] border 1pixel
 296 for_window [instance="foo"] border none
 297 EOT
 298
 299 $process = launch_with_config($config);
 300
 301 $tmp = fresh_workspace;
 302
 303 $window = $x->root->create_child(
 304     class => WINDOW_CLASS_INPUT_OUTPUT,
 305     rect => [ 0, 0, 30, 30 ],
 306     background_color => '#00ff00',
 307     event_mask => [ 'structure_notify' ],
 308 );
 309
 310 $window->_create;
 311
 312 set_wm_class($window->id, 'bar', 'foo');
 313 $window->name('usethis');
 314 $window->map;
 315 wait_for_map $x;
 316
 317 @content = @{get_ws_content($tmp)};
 318 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 319 is($content[0]->{border}, 'none', 'no border');
 320
 321 exit_gracefully($process->pid);
 322
 323 ##############################################################
 324 # 7: check that invalid criteria don’t end up matching all windows
 325 ##############################################################
 326
 327 # this configuration is broken because "asdf" is not a valid integer
 328 # the for_window should therefore recognize this error and don’t add the
 329 # assignment
 330 $config = <<EOT;
 331 # i3 config file (v4)
 332 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 333 for_window [id="asdf"] border none
 334 EOT
 335
 336 $process = launch_with_config($config);
 337
 338 $tmp = fresh_workspace;
 339
 340 $window = $x->root->create_child(
 341     class => WINDOW_CLASS_INPUT_OUTPUT,
 342     rect => [ 0, 0, 30, 30 ],
 343     background_color => '#00ff00',
 344     event_mask => [ 'structure_notify' ],
 345 );
 346
 347 $window->_create;
 348
 349 set_wm_class($window->id, 'bar', 'foo');
 350 $window->name('usethis');
 351 $window->map;
 352 wait_for_map $x;
 353
 354 @content = @{get_ws_content($tmp)};
 355 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 356 is($content[0]->{border}, 'normal', 'normal border');
 357
 358 exit_gracefully($process->pid);
 359
 360 ##############################################################
 361 # 8: check that the role criterion works properly
 362 ##############################################################
 363
 364 # this configuration is broken because "asdf" is not a valid integer
 365 # the for_window should therefore recognize this error and don’t add the
 366 # assignment
 367 $config = <<EOT;
 368 # i3 config file (v4)
 369 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 370 for_window [window_role="i3test"] border none
 371 EOT
 372
 373 $process = launch_with_config($config);
 374
 375 $tmp = fresh_workspace;
 376
 377 $window = $x->root->create_child(
 378     class => WINDOW_CLASS_INPUT_OUTPUT,
 379     rect => [ 0, 0, 30, 30 ],
 380     background_color => '#00ff00',
 381     event_mask => [ 'structure_notify' ],
 382 );
 383
 384 $window->_create;
 385
 386 my $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
 387 my $atomtype = $x->atom(name => 'STRING');
 388 $x->change_property(
 389   PROP_MODE_REPLACE,
 390   $window->id,
 391   $atomname->id,
 392   $atomtype->id,
 393   8,
 394   length("i3test") + 1,
 395   "i3test\x00"
 396 );
 397
 398 $window->name('usethis');
 399 $window->map;
 400 wait_for_map $x;
 401
 402 @content = @{get_ws_content($tmp)};
 403 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 404 is($content[0]->{border}, 'none', 'no border (window_role)');
 405
 406 exit_gracefully($process->pid);
 407
 408 ##############################################################
 409 # 9: another test for the window_role, but this time it changes
 410 #    *after* the window has been mapped
 411 ##############################################################
 412
 413 # this configuration is broken because "asdf" is not a valid integer
 414 # the for_window should therefore recognize this error and don’t add the
 415 # assignment
 416 $config = <<EOT;
 417 # i3 config file (v4)
 418 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
 419 for_window [window_role="i3test"] border none
 420 EOT
 421
 422 $process = launch_with_config($config);
 423
 424 $tmp = fresh_workspace;
 425
 426 $window = $x->root->create_child(
 427     class => WINDOW_CLASS_INPUT_OUTPUT,
 428     rect => [ 0, 0, 30, 30 ],
 429     background_color => '#00ff00',
 430     event_mask => [ 'structure_notify' ],
 431 );
 432
 433 $window->_create;
 434
 435 $window->name('usethis');
 436 $window->map;
 437 wait_for_map $x;
 438
 439 @content = @{get_ws_content($tmp)};
 440 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 441 is($content[0]->{border}, 'normal', 'normal border (window_role 2)');
 442
 443 $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
 444 $atomtype = $x->atom(name => 'STRING');
 445 $x->change_property(
 446   PROP_MODE_REPLACE,
 447   $window->id,
 448   $atomname->id,
 449   $atomtype->id,
 450   8,
 451   length("i3test") + 1,
 452   "i3test\x00"
 453 );
 454
 455 $x->flush;
 456
 457 sync_with_i3 $x;
 458
 459 @content = @{get_ws_content($tmp)};
 460 cmp_ok(@content, '==', 1, 'one node on this workspace now');
 461 is($content[0]->{border}, 'none', 'no border (window_role 2)');
 462
 463 exit_gracefully($process->pid);
 464
 465
 466 done_testing;