This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX math: more hypot tests.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 2 Sep 2014 23:26:36 +0000 (19:26 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Sep 2014 01:02:25 +0000 (21:02 -0400)
ext/POSIX/t/math.t

index 50de734..980734e 100644 (file)
@@ -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: {