In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/fa17b3a66ad36c94bb6ad181a15f3fc64d7ee4ce?hp=98ab3abf6b1bfe34ebb07896ebcdbedbe874e2ad>
- Log ----------------------------------------------------------------- commit fa17b3a66ad36c94bb6ad181a15f3fc64d7ee4ce Author: Aristotle Pagaltzis <[email protected]> Date: Thu May 7 15:35:20 2015 +0200 POSIX/t/math.t: skip fpclassify where unsupported ----------------------------------------------------------------------- Summary of changes: ext/POSIX/t/math.t | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/ext/POSIX/t/math.t b/ext/POSIX/t/math.t index 6bdb1be..20870e6 100644 --- a/ext/POSIX/t/math.t +++ b/ext/POSIX/t/math.t @@ -54,6 +54,14 @@ between(0.76, tanh(1), 0.77, 'tanh(1)'); between(-0.77, tanh(-1), -0.76, 'tanh(-1)'); cmp_ok(tanh(1), '==', -tanh(-1), 'tanh(1) == -tanh(-1)'); +SKIP: { + skip "no fpclassify", 4 unless $Config{d_fpclassify}; + is(fpclassify(1), FP_NORMAL, "fpclassify 1"); + is(fpclassify(0), FP_ZERO, "fpclassify 0"); + is(fpclassify(INFINITY), FP_INFINITE, "fpclassify INFINITY"); + is(fpclassify(NAN), FP_NAN, "fpclassify NAN"); +} + sub near { my ($got, $want, $msg, $eps) = @_; $eps ||= 1e-6; @@ -61,7 +69,7 @@ sub near { } SKIP: { - my $C99_SKIP = 63; + my $C99_SKIP = 59; unless ($Config{d_acosh}) { skip "no acosh, suspecting no C99 math", $C99_SKIP; @@ -84,10 +92,6 @@ SKIP: { is(fdim(34, 12), 22, "fdim 34 12"); is(fmax(12, 34), 34, "fmax 12 34"); is(fmin(12, 34), 12, "fmin 12 34"); - is(fpclassify(1), FP_NORMAL, "fpclassify 1"); - is(fpclassify(0), FP_ZERO, "fpclassify 0"); - is(fpclassify(INFINITY), FP_INFINITE, "fpclassify INFINITY"); - is(fpclassify(NAN), FP_NAN, "fpclassify NAN"); is(hypot(3, 4), 5, "hypot 3 4"); near(hypot(-2, 1), sqrt(5), "hypot -1 2", 1e-9); is(ilogb(255), 7, "ilogb 255"); -- Perl5 Master Repository
