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 @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');
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');
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');
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');
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');
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');
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);