>From d08b2a8dcf49e41a940fd04419828640fd566def Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 8 Feb 2014 13:50:11 +0100 Subject: [PATCH] Disable denormalized flonum tests, as this is too unreliable and requires hardware support as well as proper implementation in software. --- tests/library-tests.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/tests/library-tests.scm b/tests/library-tests.scm index 6638a59..e8a429b 100644 --- a/tests/library-tests.scm +++ b/tests/library-tests.scm @@ -88,14 +88,16 @@ (assert (equal? -5.0 (numerator -1.25))) ;;; A few denormalised numbers, cribbed from NetBSD ATF tests for ldexp(): -;; These two numbers aren't always denormalised, apparently. -;; On some machines/OSes these tests fail. -#;(assert (equal? 1.0 (numerator 1.1125369292536006915451e-308))) -#;(assert (equal? +inf.0 (denominator 1.1125369292536006915451e-308))) +;; On some machines/OSes these tests fail due to missing hardware support +;; and sometimes due to broken libc/libm support, so we have disabled them. +#| +(assert (equal? 1.0 (numerator 1.1125369292536006915451e-308))) +(assert (equal? +inf.0 (denominator 1.1125369292536006915451e-308))) (assert (equal? -1.0 (numerator -5.5626846462680034577256e-309))) (assert (equal? +inf.0 (denominator -5.5626846462680034577256e-309))) (assert (equal? 1.0 (numerator 4.9406564584124654417657e-324))) (assert (equal? +inf.0 (denominator 4.9406564584124654417657e-324))) +|# (assert (equal? 4.0 (denominator -1.25))) (assert (equal? 1e10 (numerator 1e10))) -- 1.7.10.4