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
202-scratchpad-criteria.t
203-regress-assign-and-move.t
204-regress-scratchpad-move.t
205-ipc-windows.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
509-workspace_layout.t
510-focus-across-outputs.t
511-scratchpad-configure-request.t
512-move-wraps.t
513-move-workspace.t
514-ipc-workspace-multi-monitor.t
.gitignore
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
RELEASE-NOTES-4.4
RELEASE-NOTES-4.5
RELEASE-NOTES-4.5.1
common.mk
generate-command-parser.pl
i3-dmenu-desktop
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
88 lines
2.8 KiB
Perl
88 lines
2.8 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)
|
|
#
|
|
# Tests multiple commands (using ';') and multiple operations (using ',')
|
|
#
|
|
use i3test;
|
|
|
|
my $tmp = fresh_workspace;
|
|
|
|
sub multiple_cmds {
|
|
my ($cmd) = @_;
|
|
|
|
cmd 'open';
|
|
cmd 'open';
|
|
ok(@{get_ws_content($tmp)} == 2, 'two containers opened');
|
|
|
|
cmd $cmd;
|
|
ok(@{get_ws_content($tmp)} == 0, "both containers killed (cmd = $cmd)");
|
|
}
|
|
multiple_cmds('kill;kill');
|
|
multiple_cmds('kill; kill');
|
|
multiple_cmds('kill ; kill');
|
|
multiple_cmds('kill ;kill');
|
|
multiple_cmds('kill ;kill');
|
|
multiple_cmds('kill ; kill');
|
|
multiple_cmds("kill;\tkill");
|
|
multiple_cmds("kill\t;kill");
|
|
multiple_cmds("kill\t;\tkill");
|
|
multiple_cmds("kill\t ;\tkill");
|
|
multiple_cmds("kill\t ;\t kill");
|
|
multiple_cmds("kill \t ; \t kill");
|
|
|
|
#####################################################################
|
|
# test if un-quoted strings are handled correctly
|
|
#####################################################################
|
|
|
|
$tmp = fresh_workspace;
|
|
cmd 'open';
|
|
my $unused = get_unused_workspace;
|
|
ok(!($unused ~~ @{get_workspace_names()}), 'workspace does not exist yet');
|
|
cmd "move workspace $unused; nop parser test";
|
|
ok(($unused ~~ @{get_workspace_names()}), 'workspace exists after moving');
|
|
|
|
#####################################################################
|
|
# quote the workspace name and use a ; (command separator) in its name
|
|
#####################################################################
|
|
|
|
cmd 'open';
|
|
$unused = get_unused_workspace;
|
|
$unused .= ';a';
|
|
ok(!($unused ~~ @{get_workspace_names()}), 'workspace does not exist yet');
|
|
cmd qq|move workspace "$unused"; nop parser test|;
|
|
ok(($unused ~~ @{get_workspace_names()}), 'workspace exists after moving');
|
|
|
|
# TODO: need a non-invasive command before implementing a test which uses ','
|
|
|
|
################################################################################
|
|
# regression test: 10 invalid commands should not crash i3 (10 is the stack
|
|
# depth)
|
|
################################################################################
|
|
|
|
cmd 'move gibberish' for (0 .. 10);
|
|
|
|
does_i3_live;
|
|
|
|
################################################################################
|
|
# regression test: an invalid command should come back with an error.
|
|
################################################################################
|
|
|
|
my $reply = cmd 'bullshit-command-which-we-never-implement meh';
|
|
is(scalar @$reply, 1, 'got one command reply');
|
|
ok(!$reply->[0]->{success}, 'reply has success == false');
|
|
|
|
done_testing;
|