From 627162045e4fadd72e1d8ba4d61fe96897990cbb Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 03:34:32 +0000 Subject: [PATCH] Test all of the comparison procedures without SF's help. --- tests/runtime/test-arith.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index c4198e577..e0be9f3a3 100644 --- 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))))) -- 2.25.1