This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
3e2e323
)
POSIX math: more hypot tests.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 2 Sep 2014 23:26:36 +0000
(19:26 -0400)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 3 Sep 2014 01:02:25 +0000
(21:02 -0400)
ext/POSIX/t/math.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/POSIX/t/math.t
b/ext/POSIX/t/math.t
index
50de734
..
980734e
100644
(file)
--- a/
ext/POSIX/t/math.t
+++ b/
ext/POSIX/t/math.t
@@
-84,6
+84,7
@@
SKIP: {
is(fpclassify(NAN), FP_NAN, "fpclassify NAN");
}
is(hypot(3, 4), 5, "hypot 3 4");
+ is(hypot(-2, 1), sqrt(5), "hypot -1 2");
is(ilogb(255), 7, "ilogb 255");
is(ilogb(256), 8, "ilogb 256");
SKIP: {