Use multiple tests rather than an iterated test to get all results.

diff --git a/tests/runtime/test-floenv.scm b/tests/runtime/test-floenv.scm
index 58146a7fcb535fd00d00c7e938aa9be1540c363d..b60e582f08db3ab89d32a9df980698675df263cd 100644 (file)
--- a/tests/runtime/test-floenv.scm
+++ b/tests/runtime/test-floenv.scm
@@ -78,17 +78,12 @@ USA.
    (define inputs '(-2.0 -1.5 -1.0 -0.5 -0.0 0.0 0.5 1.0 1.5 2.0))
    (define (define-rounding-test name operator outputs)
      (define-test (symbol 'ROUNDING-MODE-INDEPENDENT ': mode '/ name)
-       (lambda ()
-        (do ((inputs inputs (cdr inputs))
-             (outputs outputs (cdr outputs))
-             (i 0 (+ i 1)))
-            ((not (and (pair? inputs) (pair? outputs))))
-          (let ((input (car inputs)) (output (car outputs)))
-            (with-test-properties
-             (lambda ()
+       (map (lambda (input output)
+              (lambda ()
                (assert-eqv
                 (flo:with-rounding-mode mode (lambda () (operator input)))
-                output))))))))
+                output)))
+            inputs outputs)))
    (define-rounding-test 'CEILING ceiling
      '(-2.0 -1.0 -1.0 -0.0 -0.0 0.0 1.0 1.0 2.0 2.0))
    (define-rounding-test 'FLOOR floor