Reorder tests to not use the same number (#2947)
Distinct numbers make re-running individual tests easier by helping with tab-completion. Completeness verified using: % for i in $(seq 0 600) do files=$(ls testcases/t/$(printf "%03d" $i)-*.t 2>&- | wc -l) [ "$files" != "0" ] && [ "$files" != "1" ] && echo "clash: $i" done
This commit is contained in:
committed by
Michael Stapelberg
parent
31834b3ce4
commit
5d9db61dda
77
testcases/t/272-regress-focus-assign.t
Normal file
77
testcases/t/272-regress-focus-assign.t
Normal file
@ -0,0 +1,77 @@
|
||||
#!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)
|
||||
#
|
||||
# Regression: Checks if focus is stolen when a window is managed which is
|
||||
# assigned to an invisible workspace
|
||||
#
|
||||
use i3test i3_autostart => 0;
|
||||
|
||||
sub open_special {
|
||||
my %args = @_;
|
||||
$args{name} //= 'special window';
|
||||
|
||||
# We use dont_map because i3 will not map the window on the current
|
||||
# workspace. Thus, open_window would time out in wait_for_map (2 seconds).
|
||||
my $window = open_window(
|
||||
%args,
|
||||
wm_class => 'special',
|
||||
dont_map => 1,
|
||||
);
|
||||
$window->map;
|
||||
return $window;
|
||||
}
|
||||
|
||||
#####################################################################
|
||||
# start a window and see that it does not get assigned with an empty config
|
||||
#####################################################################
|
||||
|
||||
my $config = <<EOT;
|
||||
# i3 config file (v4)
|
||||
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
||||
assign [class="special"] targetws
|
||||
EOT
|
||||
|
||||
my $pid = launch_with_config($config);
|
||||
|
||||
my $tmp = fresh_workspace;
|
||||
|
||||
ok(@{get_ws_content($tmp)} == 0, 'no containers yet');
|
||||
ok(get_ws($tmp)->{focused}, 'current workspace focused');
|
||||
|
||||
my $window = open_special;
|
||||
sync_with_i3;
|
||||
|
||||
ok(@{get_ws_content($tmp)} == 0, 'special window not on current workspace');
|
||||
ok(@{get_ws_content('targetws')} == 1, 'special window on targetws');
|
||||
ok(get_ws($tmp)->{focused}, 'current workspace still focused');
|
||||
|
||||
#####################################################################
|
||||
# the same test, but with a floating window
|
||||
#####################################################################
|
||||
|
||||
$window = open_special(
|
||||
window_type => $x->atom(name => '_NET_WM_WINDOW_TYPE_UTILITY'),
|
||||
);
|
||||
|
||||
ok(@{get_ws_content($tmp)} == 0, 'special window not on current workspace');
|
||||
ok(@{get_ws_content('targetws')} == 1, 'special window on targetws');
|
||||
ok(get_ws($tmp)->{focused}, 'current workspace still focused');
|
||||
|
||||
exit_gracefully($pid);
|
||||
|
||||
$window->destroy;
|
||||
|
||||
done_testing;
|
Reference in New Issue
Block a user