From bf1e461ea437a46a35bdb4179eefded621222a53 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell 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