From 44b9a5cca1d20aff8c65e0845482abe11be57da7 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 18 Nov 2018 03:25:17 +0000 Subject: [PATCH] Fake out sf so we actually test the <= and >= procedures here. --- tests/runtime/test-arith.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index 007001684..cc9ac8bdd 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -132,16 +132,17 @@ USA. (define-enumerated-test 'nan-order (vector 0 0. -0. 1 1. -1 -1. (flo:-inf.0) (flo:+inf.0) (flo:nan.0)) (lambda (x) - (assert-false (= x (flo:nan.0))) - (assert-false (< x (flo:nan.0))) - (expect-failure (lambda () (assert-false (>= x (flo:nan.0))))) - (assert-false (> x (flo:nan.0))) - (expect-failure (lambda () (assert-false (<= x (flo:nan.0))))) - (assert-false (= (flo:nan.0) x)) - (assert-false (< (flo:nan.0) x)) - (expect-failure (lambda () (assert-false (>= (flo:nan.0) x)))) - (assert-false (> (flo:nan.0) x)) - (expect-failure (lambda () (assert-false (<= (flo:nan.0) x)))))) + (let ((id identity-procedure)) + (assert-false (= x (flo:nan.0))) + (assert-false (< x (flo:nan.0))) + (expect-failure (lambda () (assert-false ((id >=) x (flo:nan.0))))) + (assert-false (> x (flo:nan.0))) + (expect-failure (lambda () (assert-false ((id <=) x (flo:nan.0))))) + (assert-false (= (flo:nan.0) x)) + (assert-false (< (flo:nan.0) x)) + (expect-failure (lambda () (assert-false ((id >=) (flo:nan.0) x)))) + (assert-false (> (flo:nan.0) x)) + (expect-failure (lambda () (assert-false ((id <=) (flo:nan.0) x))))))) (define-enumerated-test 'inf*0-exact (vector (list 0 (flo:+inf.0)) -- 2.25.1