From c8696e68606b6918a904689cac367bcb68d861c0 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 05:15:41 +0000 Subject: [PATCH] Test compilation of flonum comparisons both ways. --- tests/runtime/test-flonum.scm | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm index f0cd3b48d..883f46a1c 100644 --- a/tests/runtime/test-flonum.scm +++ b/tests/runtime/test-flonum.scm @@ -210,7 +210,24 @@ USA. (yes-traps (lambda () (not (safe-compare x y)))) (if (or (flo:nan? x) (flo:nan? y)) #t - (not (unsafe-compare x y)))))) + (not (unsafe-compare x y)))) + (if (safe-compare x y) + (begin + (assert-true (not (flo:nan? x))) + (assert-true (not (flo:nan? y))) + (assert-true (unsafe-compare x y)))) + (if (not (safe-compare x y)) + (begin + (assert-true + (or (flo:nan? x) + (flo:nan? y) + (not (unsafe-compare x y)))))) + (if (not (or (flo:nan? x) (flo:nan? y))) + (begin + (if (unsafe-compare x y) + (assert-true (safe-compare x y))) + (if (not (unsafe-compare x y)) + (assert-false (unsafe-compare x y))))))) cases)) cases))))) -- 2.25.1