From 49c97d282cedcb5211566343ea0647e39e21334b Mon Sep 17 00:00:00 2001 From: "Arthur A. Gleckler" Date: Thu, 2 Sep 2010 20:57:08 -0700 Subject: [PATCH] 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. --- tests/microcode/test-flonum-casts.scm | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) diff --git a/tests/microcode/test-flonum-casts.scm b/tests/microcode/test-flonum-casts.scm index 151ae110c..156d5195f 100644 --- 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 -- 2.25.1