2 # vim:ts=4:sw=4:expandtab
3 # !NO_I3_INSTANCE! will prevent complete-run.pl from starting i3
7 use X11::XCB qw(PROP_MODE_REPLACE WINDOW_CLASS_INPUT_OUTPUT);
9 ##############################################################
10 # 1: test the following directive:
11 # for_window [class="borderless"] border none
12 # by first creating a window with a different class (should get
13 # the normal border), then creating a window with the class
14 # "borderless" (should get no border)
15 ##############################################################
19 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
20 for_window [class="borderless"] border none
21 for_window [title="special borderless title"] border none
24 my $pid = launch_with_config($config);
26 my $tmp = fresh_workspace;
28 my $window = $x->root->create_child(
29 class => WINDOW_CLASS_INPUT_OUTPUT,
30 rect => [ 0, 0, 30, 30 ],
31 background_color => '#00ff00',
32 event_mask => [ 'structure_notify' ],
35 $window->name('Border window');
39 my @content = @{get_ws_content($tmp)};
40 cmp_ok(@content, '==', 1, 'one node on this workspace now');
41 is($content[0]->{border}, 'normal', 'normal border');
44 wait_for_unmap $window;
46 @content = @{get_ws_content($tmp)};
47 cmp_ok(@content, '==', 0, 'no more nodes');
48 diag('content = '. Dumper(\@content));
50 $window = $x->root->create_child(
51 class => WINDOW_CLASS_INPUT_OUTPUT,
52 rect => [ 0, 0, 30, 30 ],
53 background_color => '#00ff00',
54 event_mask => [ 'structure_notify' ],
59 # TODO: move this to X11::XCB::Window
61 my ($id, $class, $instance) = @_;
63 # Add a _NET_WM_STRUT_PARTIAL hint
64 my $atomname = $x->atom(name => 'WM_CLASS');
65 my $atomtype = $x->atom(name => 'STRING');
73 length($class) + length($instance) + 2,
74 "$instance\x00$class\x00"
78 set_wm_class($window->id, 'borderless', 'borderless');
79 $window->name('Borderless window');
83 @content = @{get_ws_content($tmp)};
84 cmp_ok(@content, '==', 1, 'one node on this workspace now');
85 is($content[0]->{border}, 'none', 'no border');
88 wait_for_unmap $window;
90 @content = @{get_ws_content($tmp)};
91 cmp_ok(@content, '==', 0, 'no more nodes');
93 exit_gracefully($pid);
95 ##############################################################
96 # 2: match on the title, check if for_window is really executed
98 ##############################################################
101 # i3 config file (v4)
102 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
103 for_window [class="borderless"] border none
104 for_window [title="special borderless title"] border none
107 $pid = launch_with_config($config);
109 $tmp = fresh_workspace;
111 $window = $x->root->create_child(
112 class => WINDOW_CLASS_INPUT_OUTPUT,
113 rect => [ 0, 0, 30, 30 ],
114 background_color => '#00ff00',
115 event_mask => [ 'structure_notify' ],
118 $window->name('special title');
120 wait_for_map $window;
122 @content = @{get_ws_content($tmp)};
123 cmp_ok(@content, '==', 1, 'one node on this workspace now');
124 is($content[0]->{border}, 'normal', 'normal border');
126 $window->name('special borderless title');
129 @content = @{get_ws_content($tmp)};
130 is($content[0]->{border}, 'none', 'no border');
132 $window->name('special title');
137 @content = @{get_ws_content($tmp)};
138 is($content[0]->{border}, 'normal', 'border reset to normal');
140 $window->name('special borderless title');
143 @content = @{get_ws_content($tmp)};
144 is($content[0]->{border}, 'normal', 'still normal border');
147 wait_for_unmap $window;
149 @content = @{get_ws_content($tmp)};
150 cmp_ok(@content, '==', 0, 'no more nodes');
152 exit_gracefully($pid);
154 ##############################################################
155 # 3: match on the title, set border style *and* a mark
156 ##############################################################
159 # i3 config file (v4)
160 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
161 for_window [class="borderless" title="usethis"] border none
162 for_window [class="borderless"] border none
163 for_window [title="special borderless title"] border none
164 for_window [title="special mark title"] border none, mark bleh
167 $pid = launch_with_config($config);
169 $tmp = fresh_workspace;
171 $window = $x->root->create_child(
172 class => WINDOW_CLASS_INPUT_OUTPUT,
173 rect => [ 0, 0, 30, 30 ],
174 background_color => '#00ff00',
175 event_mask => [ 'structure_notify' ],
178 $window->name('special mark title');
180 wait_for_map $window;
182 @content = @{get_ws_content($tmp)};
183 cmp_ok(@content, '==', 1, 'one node on this workspace now');
184 is($content[0]->{border}, 'none', 'no border');
186 my $other = open_window($x);
188 @content = @{get_ws_content($tmp)};
189 cmp_ok(@content, '==', 2, 'two nodes');
190 is($content[0]->{border}, 'none', 'no border');
191 is($content[1]->{border}, 'normal', 'normal border');
192 ok(!$content[0]->{focused}, 'first one not focused');
194 cmd qq|[con_mark="bleh"] focus|;
196 @content = @{get_ws_content($tmp)};
197 ok($content[0]->{focused}, 'first node focused');
199 exit_gracefully($pid);
201 ##############################################################
202 # 4: multiple criteria for the for_window command
203 ##############################################################
206 # i3 config file (v4)
207 font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
208 for_window [class="borderless" title="usethis"] border none
211 $pid = launch_with_config($config);
213 $tmp = fresh_workspace;
215 $window = $x->root->create_child(
216 class => WINDOW_CLASS_INPUT_OUTPUT,
217 rect => [ 0, 0, 30, 30 ],
218 background_color => '#00ff00',
219 event_mask => [ 'structure_notify' ],
224 set_wm_class($window->id, 'borderless', 'borderless');
225 $window->name('usethis');
227 wait_for_map $window;
229 @content = @{get_ws_content($tmp)};
230 cmp_ok(@content, '==', 1, 'one node on this workspace now');
231 is($content[0]->{border}, 'none', 'no border');
234 wait_for_unmap $window;
237 # give i3 a chance to delete the window from its tree
240 @content = @{get_ws_content($tmp)};
241 cmp_ok(@content, '==', 0, 'no nodes on this workspace now');
245 set_wm_class($window->id, 'borderless', 'borderless');
246 $window->name('notthis');
248 wait_for_map $window;
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');
255 exit_gracefully($pid);
257 ##############################################################
258 # 5: check that a class criterion does not match the instance
259 ##############################################################
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
267 $pid = launch_with_config($config);
269 $tmp = fresh_workspace;
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' ],
280 set_wm_class($window->id, 'bar', 'foo');
281 $window->name('usethis');
283 wait_for_map $window;
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');
289 exit_gracefully($pid);
291 ##############################################################
292 # 6: check that the 'instance' criterion works
293 ##############################################################
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
302 $pid = launch_with_config($config);
304 $tmp = fresh_workspace;
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' ],
315 set_wm_class($window->id, 'bar', 'foo');
316 $window->name('usethis');
318 wait_for_map $window;
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');
324 exit_gracefully($pid);
326 ##############################################################
327 # 7: check that invalid criteria don’t end up matching all windows
328 ##############################################################
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
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
339 $pid = launch_with_config($config);
341 $tmp = fresh_workspace;
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' ],
352 set_wm_class($window->id, 'bar', 'foo');
353 $window->name('usethis');
355 wait_for_map $window;
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');
361 exit_gracefully($pid);
363 ##############################################################
364 # 8: check that the role criterion works properly
365 ##############################################################
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
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
376 $pid = launch_with_config($config);
378 $tmp = fresh_workspace;
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' ],
389 my $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
390 my $atomtype = $x->atom(name => 'STRING');
397 length("i3test") + 1,
401 $window->name('usethis');
403 wait_for_map $window;
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)');
409 exit_gracefully($pid);
411 ##############################################################
412 # 9: another test for the window_role, but this time it changes
413 # *after* the window has been mapped
414 ##############################################################
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
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
425 $pid = launch_with_config($config);
427 $tmp = fresh_workspace;
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' ],
438 $window->name('usethis');
440 wait_for_map $window;
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)');
446 $atomname = $x->atom(name => 'WM_WINDOW_ROLE');
447 $atomtype = $x->atom(name => 'STRING');
454 length("i3test") + 1,
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)');
466 exit_gracefully($pid);