Disable some tests when trapping is busted.

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index 5c3db4ecb73c92922e3a6fcc0422e957035345ed..6a2146fcb8585f0bc9b0da7be68496f211c40c34 100644 (file)
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -1212,9 +1212,15 @@ USA.
   (lambda (x)
     (assert-eqv (no-traps (lambda () (flo:logb x))) #f)
     (assert-eqv (no-traps (lambda () (flo:logb (flo:negate x)))) #f)
-    (assert-error (lambda () (yes-traps (lambda () (flo:logb x)))))
-    (assert-error
-     (lambda () (yes-traps (lambda () (flo:logb (flo:negate x))))))
+    (with-expected-failure
+       (if (flo:have-trap-enable/disable?) #!default expect-failure)
+      (lambda ()
+       (assert-error (lambda () (yes-traps (lambda () (flo:logb x)))))))
+    (with-expected-failure
+       (if (flo:have-trap-enable/disable?) #!default expect-failure)
+      (lambda ()
+       (assert-error
+        (lambda () (yes-traps (lambda () (flo:logb (flo:negate x))))))))
     (assert-only-except/no-traps (flo:exception:invalid-operation)
                                  (lambda () (flo:logb x)))
     (assert-only-except/no-traps (flo:exception:invalid-operation)