tests: make cmp_float a real test instruction
This commit is contained in:
parent
5bea7cb7df
commit
6bfbec9da3
|
@ -33,7 +33,6 @@ our @EXPORT = qw(
|
||||||
open_floating_window
|
open_floating_window
|
||||||
get_dock_clients
|
get_dock_clients
|
||||||
cmd
|
cmd
|
||||||
cmp_float
|
|
||||||
sync_with_i3
|
sync_with_i3
|
||||||
does_i3_live
|
does_i3_live
|
||||||
exit_gracefully
|
exit_gracefully
|
||||||
|
@ -566,13 +565,7 @@ sub launch_with_config {
|
||||||
return $i3_pid;
|
return $i3_pid;
|
||||||
}
|
}
|
||||||
|
|
||||||
# compares two floats and return true if they differ less
|
|
||||||
# then 1e-6
|
|
||||||
sub cmp_float {
|
|
||||||
my ($a, $b) = @_;
|
|
||||||
|
|
||||||
return abs($a - $b) < 1e-6;
|
|
||||||
}
|
|
||||||
|
|
||||||
package i3test::X11;
|
package i3test::X11;
|
||||||
use parent 'X11::XCB::Connection';
|
use parent 'X11::XCB::Connection';
|
||||||
|
|
|
@ -1,8 +1,12 @@
|
||||||
package i3test::Test;
|
package i3test::Test;
|
||||||
|
# vim:ts=4:sw=4:expandtab
|
||||||
|
|
||||||
use base 'Test::Builder::Module';
|
use base 'Test::Builder::Module';
|
||||||
|
|
||||||
our @EXPORT = qw(is_num_children);
|
our @EXPORT = qw(
|
||||||
|
is_num_children
|
||||||
|
cmp_float
|
||||||
|
);
|
||||||
|
|
||||||
my $CLASS = __PACKAGE__;
|
my $CLASS = __PACKAGE__;
|
||||||
|
|
||||||
|
@ -54,6 +58,31 @@ sub is_num_children {
|
||||||
$tb->is_num($got_num_children, $num_children, $name);
|
$tb->is_num($got_num_children, $num_children, $name);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
=head2 cmp_float($a, $b)
|
||||||
|
|
||||||
|
Compares floating point numbers C<$a> and C<$b> and returns true if they differ
|
||||||
|
less then 1e-6.
|
||||||
|
|
||||||
|
$tmp = fresh_workspace;
|
||||||
|
|
||||||
|
open_window for (1..4);
|
||||||
|
|
||||||
|
cmd 'resize grow width 10 px or 25 ppt';
|
||||||
|
|
||||||
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
|
ok(cmp_float($nodes->[0]->{percent}, 0.166666666666667), 'first window got 16%');
|
||||||
|
ok(cmp_float($nodes->[1]->{percent}, 0.166666666666667), 'second window got 16%');
|
||||||
|
ok(cmp_float($nodes->[2]->{percent}, 0.166666666666667), 'third window got 16%');
|
||||||
|
ok(cmp_float($nodes->[3]->{percent}, 0.50), 'fourth window got 50%');
|
||||||
|
|
||||||
|
=cut
|
||||||
|
sub cmp_float {
|
||||||
|
my ($a, $b, $name) = @_;
|
||||||
|
my $tb = $CLASS->builder;
|
||||||
|
|
||||||
|
$tb->cmp_ok(abs($a - $b), '<', 1e-6, $name);
|
||||||
|
}
|
||||||
|
|
||||||
=head1 AUTHOR
|
=head1 AUTHOR
|
||||||
|
|
||||||
Michael Stapelberg <michael@i3wm.org>
|
Michael Stapelberg <michael@i3wm.org>
|
||||||
|
|
|
@ -22,8 +22,8 @@ cmd 'resize grow up 10 px or 25 ppt';
|
||||||
|
|
||||||
my ($nodes, $focus) = get_ws_content($tmp);
|
my ($nodes, $focus) = get_ws_content($tmp);
|
||||||
|
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'top window got only 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'top window got only 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'bottom window got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'bottom window got 75%');
|
||||||
|
|
||||||
|
|
||||||
############################################################
|
############################################################
|
||||||
|
@ -34,8 +34,8 @@ cmd 'split h';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
|
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'top window got only 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'top window got only 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'bottom window got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'bottom window got 75%');
|
||||||
|
|
||||||
############################################################
|
############################################################
|
||||||
# checks that resizing within stacked/tabbed cons works
|
# checks that resizing within stacked/tabbed cons works
|
||||||
|
@ -52,14 +52,14 @@ cmd 'split h';
|
||||||
cmd 'layout stacked';
|
cmd 'layout stacked';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.5), 'top window got 50%');
|
cmp_float($nodes->[0]->{percent}, 0.5, 'top window got 50%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.5), 'bottom window got 50%');
|
cmp_float($nodes->[1]->{percent}, 0.5, 'bottom window got 50%');
|
||||||
|
|
||||||
cmd 'resize grow up 10 px or 25 ppt';
|
cmd 'resize grow up 10 px or 25 ppt';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'top window got 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'top window got 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'bottom window got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'bottom window got 75%');
|
||||||
|
|
||||||
############################################################
|
############################################################
|
||||||
# Checks that resizing in the parent's parent's orientation works.
|
# Checks that resizing in the parent's parent's orientation works.
|
||||||
|
@ -79,14 +79,14 @@ $top = open_window;
|
||||||
$bottom = open_window;
|
$bottom = open_window;
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.5), 'left window got 50%');
|
cmp_float($nodes->[0]->{percent}, 0.5, 'left window got 50%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.5), 'right window got 50%');
|
cmp_float($nodes->[1]->{percent}, 0.5, 'right window got 50%');
|
||||||
|
|
||||||
cmd 'resize grow left 10 px or 25 ppt';
|
cmd 'resize grow left 10 px or 25 ppt';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'left window got 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'left window got 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'right window got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'right window got 75%');
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
# Check that the resize grow/shrink width/height syntax works.
|
# Check that the resize grow/shrink width/height syntax works.
|
||||||
|
@ -101,8 +101,8 @@ $right = open_window;
|
||||||
cmd 'resize grow width 10 px or 25 ppt';
|
cmd 'resize grow width 10 px or 25 ppt';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'left window got 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'left window got 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'right window got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'right window got 75%');
|
||||||
|
|
||||||
# Now test it with four windows
|
# Now test it with four windows
|
||||||
$tmp = fresh_workspace;
|
$tmp = fresh_workspace;
|
||||||
|
@ -112,19 +112,19 @@ open_window for (1..4);
|
||||||
cmd 'resize grow width 10 px or 25 ppt';
|
cmd 'resize grow width 10 px or 25 ppt';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.166666666666667), 'first window got 16%');
|
cmp_float($nodes->[0]->{percent}, 0.166666666666667, 'first window got 16%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.166666666666667), 'second window got 16%');
|
cmp_float($nodes->[1]->{percent}, 0.166666666666667, 'second window got 16%');
|
||||||
ok(cmp_float($nodes->[2]->{percent}, 0.166666666666667), 'third window got 16%');
|
cmp_float($nodes->[2]->{percent}, 0.166666666666667, 'third window got 16%');
|
||||||
ok(cmp_float($nodes->[3]->{percent}, 0.50), 'fourth window got 50%');
|
cmp_float($nodes->[3]->{percent}, 0.50, 'fourth window got 50%');
|
||||||
|
|
||||||
# height should be a no-op in this situation
|
# height should be a no-op in this situation
|
||||||
cmd 'resize grow height 10 px or 25 ppt';
|
cmd 'resize grow height 10 px or 25 ppt';
|
||||||
|
|
||||||
($nodes, $focus) = get_ws_content($tmp);
|
($nodes, $focus) = get_ws_content($tmp);
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.166666666666667), 'first window got 16%');
|
cmp_float($nodes->[0]->{percent}, 0.166666666666667, 'first window got 16%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.166666666666667), 'second window got 16%');
|
cmp_float($nodes->[1]->{percent}, 0.166666666666667, 'second window got 16%');
|
||||||
ok(cmp_float($nodes->[2]->{percent}, 0.166666666666667), 'third window got 16%');
|
cmp_float($nodes->[2]->{percent}, 0.166666666666667, 'third window got 16%');
|
||||||
ok(cmp_float($nodes->[3]->{percent}, 0.50), 'fourth window got 50%');
|
cmp_float($nodes->[3]->{percent}, 0.50, 'fourth window got 50%');
|
||||||
|
|
||||||
|
|
||||||
############################################################
|
############################################################
|
||||||
|
|
|
@ -23,7 +23,7 @@ cmd 'resize grow left 10px or 25ppt';
|
||||||
|
|
||||||
my ($nodes, $focus) = get_ws_content($tmp);
|
my ($nodes, $focus) = get_ws_content($tmp);
|
||||||
|
|
||||||
ok(cmp_float($nodes->[0]->{percent}, 0.25), 'left container got only 25%');
|
cmp_float($nodes->[0]->{percent}, 0.25, 'left container got only 25%');
|
||||||
ok(cmp_float($nodes->[1]->{percent}, 0.75), 'right container got 75%');
|
cmp_float($nodes->[1]->{percent}, 0.75, 'right container got 75%');
|
||||||
|
|
||||||
done_testing;
|
done_testing;
|
||||||
|
|
Loading…
Reference in New Issue