From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 23 Jan 2019 08:12:26 +0000 (+0000)
Subject: Disable some tests when trapping is busted.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf1e461ea437a46a35bdb4179eefded621222a53;p=mit-scheme.git

Disable some tests when trapping is busted.
---

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)