Removed NaN tests because they cause traps on Linux. (It turns out

that they are supposed to on OS X, too, but a bug prevents that).
Taylor is considering adding support for controlling the
floating-point exception mask and flags, in which case we'll be able
to manipulate NaN values and I can add these tests back.

diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm
index 151ae110c5c24b0680072ce2bc69727fe2d54a8e..156d5195f285df94fcf795b135c45c4163ad7a6a 100644 (file)
--- a/tests/microcode/test-flonum-casts.scm
+++ b/tests/microcode/test-flonum-casts.scm
@@ -93,16 +93,7 @@ USA.
           (integer-to-double
            #*1111111111110000000000000000000000000000000000000000000000000000)))
       (assert-false (flo:finite? negative-infinity))
-      (assert-true (flo:negative? negative-infinity)))
-
-    (assert-true
-     (flo:nan?
-      (integer-to-double
-       #*0111111111110000000000000000000000000000000000000000000000000001)))
-    (assert-true
-     (flo:nan?
-      (integer-to-double
-       #*0111111111111111111111111111111111111111111111111111111111111111)))))
+      (assert-true (flo:negative? negative-infinity)))))
 
 (define-test 'test-casting-singles
   (lambda ()
@@ -145,13 +136,4 @@ USA.
     (let ((negative-infinity
           (integer-to-single #*11111111100000000000000000000000)))
       (assert-true (flo:negative? negative-infinity))
-      (assert-false (flo:finite? negative-infinity)))
-
-    (assert-true
-     (flo:nan?
-      (integer-to-single
-       #*01111111100000000000000000000001)))
-    (assert-true
-     (flo:nan?
-      (integer-to-single
-       #*01111111111111111111111111111111)))))
\ No newline at end of file
+      (assert-false (flo:finite? negative-infinity)))))
\ No newline at end of file