2 # vim:ts=4:sw=4:expandtab
3 # !NO_I3_INSTANCE! will prevent complete-run.pl from starting i3
7 use X11::XCB::Connection;
10 my $x = X11::XCB::Connection->new;
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 ##############################################################
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
27 my $pid = launch_with_config($config);
29 my $tmp = fresh_workspace;
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' ],
38 $window->name('Border window');
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');
49 my @content = @{get_ws_content($tmp)};
50 cmp_ok(@content, '==', 0, 'no more nodes');
51 diag('content = '. Dumper(\@content));
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' ],
62 # TODO: move this to X11::XCB::Window
64 my ($id, $class, $instance) = @_;
66 # Add a _NET_WM_STRUT_PARTIAL hint
67 my $atomname = $x->atom(name => 'WM_CLASS');
68 my $atomtype = $x->atom(name => 'STRING');
76 length($class) + length($instance) + 2,
77 "$instance\x00$class\x00"
81 set_wm_class($window->id, 'borderless', 'borderless');
82 $window->name('Borderless window');
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');
93 @content = @{get_ws_content($tmp)};
94 cmp_ok(@content, '==', 0, 'no more nodes');
96 exit_gracefully($pid);
98 ##############################################################
99 # 2: match on the title, check if for_window is really executed
101 ##############################################################
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
110 $pid = launch_with_config($config);
112 $tmp = fresh_workspace;
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' ],
121 $window->name('special title');
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');
129 $window->name('special borderless title');
132 @content = @{get_ws_content($tmp)};
133 is($content[0]->{border}, 'none', 'no border');
135 $window->name('special title');
140 @content = @{get_ws_content($tmp)};
141 is($content[0]->{border}, 'normal', 'border reset to normal');
143 $window->name('special borderless title');
146 @content = @{get_ws_content($tmp)};
147 is($content[0]->{border}, 'normal', 'still normal border');
152 @content = @{get_ws_content($tmp)};
153 cmp_ok(@content, '==', 0, 'no more nodes');
155 exit_gracefully($pid);
157 ##############################################################
158 # 3: match on the title, set border style *and* a mark
159 ##############################################################
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
170 $pid = launch_with_config($config);
172 $tmp = fresh_workspace;
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' ],
181 $window->name('special mark title');
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');
189 my $other = open_window($x);
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');
197 cmd qq|[con_mark="bleh"] focus|;
199 @content = @{get_ws_content($tmp)};
200 ok($content[0]->{focused}, 'first node focused');
202 exit_gracefully($pid);
204 ##############################################################
205 # 4: multiple criteria for the for_window command
206 ##############################################################
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
214 $pid = launch_with_config($config);
216 $tmp = fresh_workspace;
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' ],
227 set_wm_class($window->id, 'borderless', 'borderless');
228 $window->name('usethis');
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');
240 # give i3 a chance to delete the window from its tree
243 @content = @{get_ws_content($tmp)};
244 cmp_ok(@content, '==', 0, 'no nodes on this workspace now');
248 set_wm_class($window->id, 'borderless', 'borderless');
249 $window->name('notthis');
253 @content = @{get_ws_content($tmp)};
254 cmp_ok(@content, '==', 1, 'one node on this workspace now');
255 is($content[0]->{border}, 'normal', 'no border');
258 exit_gracefully($pid);
260 ##############################################################
261 # 5: check that a class criterion does not match the instance
262 ##############################################################
265 # i3 config file (v4)
266 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
267 for_window [class="foo"] border 1pixel
270 $pid = launch_with_config($config);
272 $tmp = fresh_workspace;
274 $window = $x->root->create_child(
275 class => WINDOW_CLASS_INPUT_OUTPUT,
276 rect => [ 0, 0, 30, 30 ],
277 background_color => '#00ff00',
278 event_mask => [ 'structure_notify' ],
283 set_wm_class($window->id, 'bar', 'foo');
284 $window->name('usethis');
288 @content = @{get_ws_content($tmp)};
289 cmp_ok(@content, '==', 1, 'one node on this workspace now');
290 is($content[0]->{border}, 'normal', 'normal border, not matched');
292 exit_gracefully($pid);
294 ##############################################################
295 # 6: check that the 'instance' criterion works
296 ##############################################################
299 # i3 config file (v4)
300 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
301 for_window [class="foo"] border 1pixel
302 for_window [instance="foo"] border none
305 $pid = launch_with_config($config);
307 $tmp = fresh_workspace;
309 $window = $x->root->create_child(
310 class => WINDOW_CLASS_INPUT_OUTPUT,
311 rect => [ 0, 0, 30, 30 ],
312 background_color => '#00ff00',
313 event_mask => [ 'structure_notify' ],
318 set_wm_class($window->id, 'bar', 'foo');
319 $window->name('usethis');
323 @content = @{get_ws_content($tmp)};
324 cmp_ok(@content, '==', 1, 'one node on this workspace now');
325 is($content[0]->{border}, 'none', 'no border');
327 exit_gracefully($pid);
329 ##############################################################
330 # 7: check that invalid criteria don’t end up matching all windows
331 ##############################################################
333 # this configuration is broken because "asdf" is not a valid integer
334 # the for_window should therefore recognize this error and don’t add the
337 # i3 config file (v4)
338 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
339 for_window [id="asdf"] border none
342 $pid = launch_with_config($config);
344 $tmp = fresh_workspace;
346 $window = $x->root->create_child(
347 class => WINDOW_CLASS_INPUT_OUTPUT,
348 rect => [ 0, 0, 30, 30 ],
349 background_color => '#00ff00',
350 event_mask => [ 'structure_notify' ],
355 set_wm_class($window->id, 'bar', 'foo');
356 $window->name('usethis');
360 @content = @{get_ws_content($tmp)};
361 cmp_ok(@content, '==', 1, 'one node on this workspace now');
362 is($content[0]->{border}, 'normal', 'normal border');
364 exit_gracefully($pid);
366 ##############################################################
367 # 8: check that the role criterion works properly
368 ##############################################################
370 # this configuration is broken because "asdf" is not a valid integer
371 # the for_window should therefore recognize this error and don’t add the
374 # i3 config file (v4)
375 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
376 for_window [window_role="i3test"] border none
379 $pid = launch_with_config($config);
381 $tmp = fresh_workspace;
383 $window = $x->root->create_child(
384 class => WINDOW_CLASS_INPUT_OUTPUT,
385 rect => [ 0, 0, 30, 30 ],
386 background_color => '#00ff00',
387 event_mask => [ 'structure_notify' ],
392 my $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
393 my $atomtype = $x->atom(name => 'STRING');
400 length("i3test") + 1,
404 $window->name('usethis');
408 @content = @{get_ws_content($tmp)};
409 cmp_ok(@content, '==', 1, 'one node on this workspace now');
410 is($content[0]->{border}, 'none', 'no border (window_role)');
412 exit_gracefully($pid);
414 ##############################################################
415 # 9: another test for the window_role, but this time it changes
416 # *after* the window has been mapped
417 ##############################################################
419 # this configuration is broken because "asdf" is not a valid integer
420 # the for_window should therefore recognize this error and don’t add the
423 # i3 config file (v4)
424 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
425 for_window [window_role="i3test"] border none
428 $pid = launch_with_config($config);
430 $tmp = fresh_workspace;
432 $window = $x->root->create_child(
433 class => WINDOW_CLASS_INPUT_OUTPUT,
434 rect => [ 0, 0, 30, 30 ],
435 background_color => '#00ff00',
436 event_mask => [ 'structure_notify' ],
441 $window->name('usethis');
445 @content = @{get_ws_content($tmp)};
446 cmp_ok(@content, '==', 1, 'one node on this workspace now');
447 is($content[0]->{border}, 'normal', 'normal border (window_role 2)');
449 $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
450 $atomtype = $x->atom(name => 'STRING');
457 length("i3test") + 1,
465 @content = @{get_ws_content($tmp)};
466 cmp_ok(@content, '==', 1, 'one node on this workspace now');
467 is($content[0]->{border}, 'none', 'no border (window_role 2)');
469 exit_gracefully($pid);