~ chicken-core (chicken-5) 5ddc861d249f9cc5e2b8598be75647b42283b516

commit 5ddc861d249f9cc5e2b8598be75647b42283b516
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Oct 18 12:53:41 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Oct 18 12:54:25 2013 +0200

    Disable some bogus library tests

diff --git a/tests/library-tests.scm b/tests/library-tests.scm
index 711341b4..cdf6b092 100644
--- a/tests/library-tests.scm
+++ b/tests/library-tests.scm
@@ -87,9 +87,11 @@
 (assert (equal? 4.0 (denominator 1.25)))
 (assert (equal? -5.0 (numerator -1.25)))
 
-;; A few denormalised numbers, cribbed from NetBSD ATF tests for ldexp():
-(assert (equal? 1.0 (numerator 1.1125369292536006915451e-308)))
-(assert (equal? +inf.0 (denominator 1.1125369292536006915451e-308)))
+;;; 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)))
 (assert (equal? -1.0 (numerator -5.5626846462680034577256e-309)))
 (assert (equal? +inf.0 (denominator -5.5626846462680034577256e-309)))
 (assert (equal? 1.0 (numerator 4.9406564584124654417657e-324)))