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

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>