From 4cc6122ba588f3a392d7510016101c202c3c7de2 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 05:17:34 +0000 Subject: [PATCH] Test flo:unordered? both ways too. --- tests/runtime/test-flonum.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm index 883f46a1c..f4b3df766 100644 --- a/tests/runtime/test-flonum.scm +++ b/tests/runtime/test-flonum.scm @@ -248,7 +248,13 @@ USA. (or (flo:nan? x) (flo:nan? y))) (assert-eqv (yes-traps (lambda () (not (flo:unordered? x y)))) - (not (or (flo:nan? x) (flo:nan? y)))))) + (not (or (flo:nan? x) (flo:nan? y)))) + (if (flo:unordered? x y) + (assert-true (or (flo:nan? x) (flo:nan? y)))) + (if (not (flo:unordered? x y)) + (begin + (assert-false (flo:nan? x)) + (assert-false (flo:nan? y)))))) cases)) cases)) (define-test 'tetrachotomy -- 2.25.1