301 lines
8.4 KiB
Perl
301 lines
8.4 KiB
Perl
#!perl
|
|
# vim:ts=4:sw=4:expandtab
|
|
#
|
|
# Please read the following documents before working on tests:
|
|
# • https://build.i3wm.org/docs/testsuite.html
|
|
# (or docs/testsuite)
|
|
#
|
|
# • https://build.i3wm.org/docs/lib-i3test.html
|
|
# (alternatively: perldoc ./testcases/lib/i3test.pm)
|
|
#
|
|
# • https://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 the floating_{minimum,maximum}_size config options.
|
|
#
|
|
# Note that the minimum floating window size is already verified in
|
|
# t/005-floating.t.
|
|
#
|
|
|
|
use i3test i3_autostart => 0;
|
|
use X11::XCB qw/PROP_MODE_REPLACE/;
|
|
|
|
################################################################################
|
|
# 1: check floating_minimum_size (with non-default limits)
|
|
################################################################################
|
|
|
|
my $config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_minimum_size 60 x 40
|
|
EOT
|
|
|
|
my $pid = launch_with_config($config);
|
|
|
|
my $window = open_floating_window(rect => [ 0, 0, 20, 20 ]);
|
|
my $rect = $window->rect;
|
|
|
|
is($rect->{width}, 60, 'width = 60');
|
|
is($rect->{height}, 40, 'height = 40');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 2: check floating_minimum_size with -1 (unlimited)
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
floating_minimum_size -1 x -1
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
cmd 'nop MEH';
|
|
$window = open_floating_window(rect => [ 0, 0, 50, 40 ]);
|
|
$rect = $window->rect;
|
|
|
|
is($rect->{width}, 50, 'width = 50');
|
|
is($rect->{height}, 40, 'height = 40');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 3: check floating_maximum_size
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_maximum_size 100 x 100
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 0, 0, 150, 150 ]);
|
|
$rect = $window->rect;
|
|
|
|
is($rect->{width}, 100, 'width = 100');
|
|
is($rect->{height}, 100, 'height = 100');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
# Test that the feature works at all (without explicit configuration) by
|
|
# opening a window which is bigger than the testsuite screen (1280x1024).
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 0, 0, 2048, 2048 ]);
|
|
$rect = $window->rect;
|
|
|
|
cmp_ok($rect->{width}, '<', 2048, 'width < 2048');
|
|
cmp_ok($rect->{height}, '<', 2048, 'height < 2048');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 4: check floating_maximum_size
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_maximum_size -1 x -1
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 0, 0, 2048, 2048 ]);
|
|
$rect = $window->rect;
|
|
|
|
is($rect->{width}, 2048, 'width = 2048');
|
|
is($rect->{height}, 2048, 'height = 2048');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 5: check floating_minimum_size with cmd_resize
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_minimum_size 60 x 50
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 0, 0, 100, 100 ]);
|
|
cmd 'border none';
|
|
cmd 'resize shrink height 80px or 80ppt';
|
|
cmd 'resize shrink width 80px or 80ppt';
|
|
sync_with_i3;
|
|
$rect = $window->rect;
|
|
is($rect->{width}, 60, 'width = 60');
|
|
is($rect->{height}, 50, 'height = 50');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 6: check floating_maximum_size with cmd_resize
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_maximum_size 100 x 100
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 200, 200, 50, 50 ]);
|
|
cmd 'border none';
|
|
cmd 'resize grow height 100px or 100ppt';
|
|
cmd 'resize grow width 100px or 100ppt';
|
|
sync_with_i3;
|
|
$rect = $window->rect;
|
|
is($rect->{width}, 100, 'width = 100');
|
|
is($rect->{height}, 100, 'height = 100');
|
|
|
|
my $old_x = $rect->{x};
|
|
my $old_y = $rect->{y};
|
|
cmd 'resize grow up 10px or 10ppt';
|
|
sync_with_i3;
|
|
$rect = $window->rect;
|
|
is($rect->{x}, $old_x, 'window did not move when trying to resize');
|
|
is($rect->{y}, $old_y, 'window did not move when trying to resize');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 7: check floating_maximum_size with cmd_size
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
|
|
# Test with different dimensions than the i3 default.
|
|
floating_minimum_size 80 x 70
|
|
floating_maximum_size 100 x 90
|
|
EOT
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_floating_window(rect => [ 0, 0, 90, 80 ]);
|
|
cmd 'border none';
|
|
|
|
cmd 'resize set 101 91';
|
|
sync_with_i3;
|
|
$rect = $window->rect;
|
|
is($rect->{width}, 100, 'width did not exceed maximum width');
|
|
is($rect->{height}, 90, 'height did not exceed maximum height');
|
|
|
|
cmd 'resize set 79 69';
|
|
sync_with_i3;
|
|
$rect = $window->rect;
|
|
is($rect->{width}, 80, 'width did not exceed minimum width');
|
|
is($rect->{height}, 70, 'height did not exceed minimum height');
|
|
|
|
exit_gracefully($pid);
|
|
|
|
################################################################################
|
|
# 8: check minimum_size and maximum_size set by WM_NORMAL_HINTS
|
|
################################################################################
|
|
|
|
$config = <<EOT;
|
|
# i3 config file (v4)
|
|
font -misc-fixed-medium-r-normal--13-120-75-75-C-70-iso10646-1
|
|
EOT
|
|
|
|
my $min_width = 150;
|
|
my $min_height = 100;
|
|
my $max_width = 250;
|
|
my $max_height = 200;
|
|
|
|
my sub open_with_max_size {
|
|
# The type of the WM_NORMAL_HINTS property is WM_SIZE_HINTS
|
|
# https://tronche.com/gui/x/icccm/sec-4.html#s-4.1.2.3
|
|
my $XCB_ICCCM_SIZE_HINT_P_MIN_SIZE = 0x32;
|
|
my $XCB_ICCCM_SIZE_HINT_P_MAX_SIZE = 0x16;
|
|
|
|
my $flags = $XCB_ICCCM_SIZE_HINT_P_MIN_SIZE | $XCB_ICCCM_SIZE_HINT_P_MAX_SIZE;
|
|
|
|
my $pad = 0x00;
|
|
|
|
my $window = open_window(
|
|
before_map => sub {
|
|
my ($window) = @_;
|
|
|
|
my $atomname = $x->atom(name => 'WM_NORMAL_HINTS');
|
|
my $atomtype = $x->atom(name => 'WM_SIZE_HINTS');
|
|
$x->change_property(
|
|
PROP_MODE_REPLACE,
|
|
$window->id,
|
|
$atomname->id,
|
|
$atomtype->id,
|
|
32,
|
|
13,
|
|
pack('C5N8', $flags, $pad, $pad, $pad, $pad, 0, 0, 0, $min_width, $min_height, $max_width, $max_height),
|
|
);
|
|
},
|
|
);
|
|
|
|
return $window;
|
|
}
|
|
|
|
my sub check_minsize {
|
|
is($window->rect->{width}, $min_width, 'width = min_width');
|
|
is($window->rect->{height}, $min_height, 'height = min_height');
|
|
}
|
|
|
|
my sub check_maxsize {
|
|
is($window->rect->{width}, $max_width, 'width = max_width');
|
|
is($window->rect->{height}, $max_height, 'height = max_height');
|
|
}
|
|
|
|
$pid = launch_with_config($config);
|
|
|
|
$window = open_with_max_size;
|
|
cmd 'floating enable';
|
|
cmd 'border none';
|
|
sync_with_i3;
|
|
|
|
cmd "resize set $min_width px $min_height px";
|
|
check_minsize;
|
|
|
|
# Try to resize below minimum width
|
|
cmd 'resize set ' . ($min_width - 10) . ' px ' . ($min_height - 50) . ' px';
|
|
check_minsize;
|
|
|
|
cmd "resize set $max_width px $max_height px";
|
|
check_maxsize;
|
|
|
|
# Try to resize above maximum width
|
|
cmd 'resize set ' . ($max_width + 150) . ' px ' . ($max_height + 500) . ' px';
|
|
check_maxsize;
|
|
|
|
exit_gracefully($pid);
|
|
|
|
done_testing;
|