contrib
debian
docs
i3-config-wizard
i3-dump-log
i3-input
i3-msg
i3-nagbar
i3bar
include
libi3
man
parser-specs
src
testcases
lib
t
000-load-deps.t
001-tile.t
002-i3-sync.t
003-ipc.t
004-unmanaged.t
005-floating.t
100-fullscreen.t
101-focus.t
102-dock.t
103-move.t
104-focus-stack.t
105-stacking.t
111-goto.t
112-floating-resize.t
113-urgent.t
114-client-leader.t
115-ipc-workspaces.t
116-nestedcons.t
117-workspace.t
118-openkill.t
119-match.t
120-multiple-cmds.t
121-next-prev.t
122-split.t
124-move.t
126-regress-close.t
127-regress-floating-parent.t
128-open-order.t
129-focus-after-close.t
130-close-empty-split.t
131-stacking-order.t
132-move-workspace.t
133-size-hints.t
134-invalid-command.t
135-floating-focus.t
136-floating-ws-empty.t
137-floating-unmap.t
138-floating-attach.t
139-ws-numbers.t
140-focus-lost.t
141-resize.t
142-regress-move-floating.t
143-regress-floating-restart.t
144-regress-floating-resize.t
145-flattening.t
146-floating-reinsert.t
147-regress-floatingmove.t
148-regress-floatingmovews.t
150-regress-dock-restart.t
151-regress-float-size.t
152-regress-level-up.t
153-floating-originalsize.t
154-regress-multiple-dock.t
155-floating-split-size.t
156-fullscreen-focus.t
158-wm_take_focus.t
159-socketpaths.t
161-regress-borders-restart.t
162-regress-dock-urgent.t
163-wm-state.t
164-kill-win-vs-client.t
165-for_window.t
166-assign.t
167-workspace_layout.t
168-regress-fullscreen-restart.t
169-border-toggle.t
170-force_focus_wrapping.t
171-config-migrate.t
172-start-on-named-ws.t
173-get-marks.t
173-regress-focus-assign.t
174-border-config.t
174-regress-focus-toggle.t
175-startup-notification.t
176-workspace-baf.t
177-bar-config.t
178-regress-workspace-open.t
179-regress-multiple-ws.t
180-fd-leaks.t
181-regress-float-border.t
182-regress-focus-dock.t
183-config-variables.t
184-regress-float-split-resize.t
185-scratchpad.t
186-regress-assign-focus-parent.t
187-commands-parser.t
188-regress-focus-restart.t
189-floating-constraints.t
190-scratchpad-diff-ws.t
191-resize-levels.t
192-layout.t
193-ipc-version.t
194-regress-floating-size.t
195-net-active-window.t
196-randr-output-names.t
197-regression-move-vanish.t
198-regression-scratchpad-crash.t
199-ipc-mode-event.t
200-urgency-timer.t
201-config-parser.t
500-multi-monitor.t
501-scratchpad.t
502-focus-output.t
503-workspace.t
504-move-workspace-to-output.t
505-scratchpad-resolution.t
506-focus-right.t
507-workspace-move-crash.t
508-move-workspace-focus.t
509-workspace_layout.t
Makefile.PL
Xdummy
complete-run.pl
i3-test.config
new-test
restart-state.golden
tests
yajl-fallback
.gitignore
DEPENDS
LICENSE
Makefile
PACKAGE-MAINTAINER
RELEASE-NOTES-4.2
RELEASE-NOTES-4.3
common.mk
generate-command-parser.pl
i3-migrate-config-to-v4
i3-sensible-editor
i3-sensible-pager
i3-sensible-terminal
i3.applications.desktop
i3.config
i3.config.keycodes
i3.xsession.desktop
logo.svg
pseudo-doc.doxygen
69 lines
2.0 KiB
Perl
69 lines
2.0 KiB
Perl
#!perl
|
|
# vim:ts=4:sw=4:expandtab
|
|
#
|
|
# Please read the following documents before working on tests:
|
|
# • http://build.i3wm.org/docs/testsuite.html
|
|
# (or docs/testsuite)
|
|
#
|
|
# • http://build.i3wm.org/docs/lib-i3test.html
|
|
# (alternatively: perldoc ./testcases/lib/i3test.pm)
|
|
#
|
|
# • http://build.i3wm.org/docs/ipc.html
|
|
# (or docs/ipc)
|
|
#
|
|
# • http://onyxneon.com/books/modern_perl/modern_perl_a4.pdf
|
|
# (unless you are already familiar with Perl)
|
|
#
|
|
# Verifies that the _NET_ACTIVE_WINDOW message only changes focus when the
|
|
# window is on a visible workspace.
|
|
# ticket #774, bug still present in commit 1e49f1b08a3035c1f238fcd6615e332216ab582e
|
|
use i3test;
|
|
|
|
sub send_net_active_window {
|
|
my ($id) = @_;
|
|
|
|
my $msg = pack "CCSLLLLLLL",
|
|
X11::XCB::CLIENT_MESSAGE, # response_type
|
|
32, # format
|
|
0, # sequence
|
|
$id, # destination window
|
|
$x->atom(name => '_NET_ACTIVE_WINDOW')->id,
|
|
0,
|
|
0,
|
|
0,
|
|
0,
|
|
0;
|
|
|
|
$x->send_event(0, $x->get_root_window(), X11::XCB::EVENT_MASK_SUBSTRUCTURE_REDIRECT, $msg);
|
|
}
|
|
|
|
my $ws1 = fresh_workspace;
|
|
my $win1 = open_window;
|
|
my $win2 = open_window;
|
|
|
|
################################################################################
|
|
# Ensure that the _NET_ACTIVE_WINDOW ClientMessage works when windows are visible
|
|
################################################################################
|
|
|
|
is($x->input_focus, $win2->id, 'window 2 has focus');
|
|
|
|
send_net_active_window($win1->id);
|
|
|
|
is($x->input_focus, $win1->id, 'window 1 has focus');
|
|
|
|
################################################################################
|
|
# Switch to a different workspace and ensure sending the _NET_ACTIVE_WINDOW
|
|
# ClientMessage has no effect anymore.
|
|
################################################################################
|
|
|
|
my $ws2 = fresh_workspace;
|
|
my $win3 = open_window;
|
|
|
|
is($x->input_focus, $win3->id, 'window 3 has focus');
|
|
|
|
send_net_active_window($win1->id);
|
|
|
|
is($x->input_focus, $win3->id, 'window 3 still has focus');
|
|
|
|
done_testing;
|