Test all of the comparison procedures without SF's help.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index c4198e57702599f8bd7018914b129dcf3873aa8b..e0be9f3a3eb14d1f6ae62335bfc72dd4e70ce93e 100644 (file)
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -133,17 +133,23 @@ USA.
   (vector 0 0. -0. 1 1. -1 -1. (flo:-inf.0) (flo:+inf.0) (flo:nan.0))
   (lambda (x)
     (let ((id identity-procedure))
+      (assert-false ((id =) x (flo:nan.0)))
       (assert-false (= x (flo:nan.0)))
+      (assert-false ((id <) x (flo:nan.0)))
       (assert-false (< x (flo:nan.0)))
       (assert-false ((id >=) x (flo:nan.0)))
       (assert-false (>= x (flo:nan.0)))
+      (assert-false ((id >) x (flo:nan.0)))
       (assert-false (> x (flo:nan.0)))
       (assert-false ((id <=) x (flo:nan.0)))
       (assert-false (<= x (flo:nan.0)))
+      (assert-false ((id =) (flo:nan.0) x))
       (assert-false (= (flo:nan.0) x))
+      (assert-false ((id <) (flo:nan.0) x))
       (assert-false (< (flo:nan.0) x))
       (assert-false ((id >=) (flo:nan.0) x))
       (assert-false (>= (flo:nan.0) x))
+      (assert-false ((id >) (flo:nan.0) x))
       (assert-false (> (flo:nan.0) x))
       (assert-false ((id <=) (flo:nan.0) x))
       (assert-false (<= (flo:nan.0) x)))))