From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 28 Nov 2018 05:17:34 +0000 (+0000)
Subject: Test flo:unordered? both ways too.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~153
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4cc6122ba588f3a392d7510016101c202c3c7de2;p=mit-scheme.git

Test flo:unordered? both ways too.
---

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