From bf1e461ea437a46a35bdb4179eefded621222a53 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 23 Jan 2019 08:12:26 +0000
Subject: [PATCH] Disable some tests when trapping is busted.

---
 tests/runtime/test-flonum.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index 5c3db4ecb..6a2146fcb 100644
--- 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)
-- 
2.25.1