~ chicken-core (chicken-5) c3684622188fb7b80b2554df05c0eb7343ba0f22

commit c3684622188fb7b80b2554df05c0eb7343ba0f22
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Feb 8 13:50:11 2014 +0100
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Mon Feb 10 19:08:24 2014 -0200

    Disable denormalized flonum tests, as this is too unreliable and requires hardware support as well as proper implementation in software.
    
    Signed-off-by: Mario Domenech Goulart <mario.goulart@gmail.com>

diff --git a/tests/library-tests.scm b/tests/library-tests.scm
index 6638a59a..e8a429b9 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)))