koma/i3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tests: make cmp_float a real test instruction

Browse Source
This commit is contained in:
Michael Stapelberg
2012-09-10 13:23:49 +02:00
parent 5bea7cb7df
commit 6bfbec9da3
4 changed files with 54 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
testcases/lib/i3test.pm
View File

@ -33,7 +33,6 @@ our @EXPORT = qw(
open_floating_window
get_dock_clients
cmd
cmp_float
sync_with_i3
does_i3_live
exit_gracefully
@ -566,13 +565,7 @@ sub launch_with_config {
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;
use parent 'X11::XCB::Connection';

31
testcases/lib/i3test/Test.pm
View File

@ -1,8 +1,12 @@
package i3test::Test;
# vim:ts=4:sw=4:expandtab
use base 'Test::Builder::Module';
our @EXPORT = qw(is_num_children);
our @EXPORT = qw(
is_num_children
cmp_float
);
my $CLASS = __PACKAGE__;
@ -54,6 +58,31 @@ sub is_num_children {
$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
Michael Stapelberg <michael@i3wm.org>