From b2f2f769f87d6f7c3c76fd2fd5cf328779bd3aa9 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 03:29:10 +0000
Subject: [PATCH] Test without the sf fakeout, xfail for now.
---
tests/runtime/test-arith.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index e062d8def..fdb949b1f 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -136,13 +136,17 @@ USA.
(assert-false (= x (flo:nan.0)))
(assert-false (< x (flo:nan.0)))
(assert-false ((id >=) x (flo:nan.0)))
+ (expect-failure (lambda () (assert-false (>= x (flo:nan.0)))))
(assert-false (> x (flo:nan.0)))
(assert-false ((id <=) x (flo:nan.0)))
+ (expect-failure (lambda () (assert-false (<= x (flo:nan.0)))))
(assert-false (= (flo:nan.0) x))
(assert-false (< (flo:nan.0) x))
(assert-false ((id >=) (flo:nan.0) x))
+ (expect-failure (lambda () (assert-false (>= (flo:nan.0) x))))
(assert-false (> (flo:nan.0) x))
- (assert-false ((id <=) (flo:nan.0) x)))))
+ (assert-false ((id <=) (flo:nan.0) x))
+ (expect-failure (lambda () (assert-false (<= (flo:nan.0) x)))))))
(define-enumerated-test 'inf*0-exact
(vector (list 0 (flo:+inf.0))
--
2.25.1