Show the expression too.

diff --git a/tests/runtime/test-floenv.scm b/tests/runtime/test-floenv.scm
index b60e582f08db3ab89d32a9df980698675df263cd..ebcfc42dfed7b085fee128e6858cd5c7a74d0ce1 100644 (file)
--- a/tests/runtime/test-floenv.scm
+++ b/tests/runtime/test-floenv.scm
@@ -79,11 +79,15 @@ USA.
    (define (define-rounding-test name operator outputs)
      (define-test (symbol 'ROUNDING-MODE-INDEPENDENT ': mode '/ name)
        (map (lambda (input output)
-              (lambda ()
-               (assert-eqv
-                (flo:with-rounding-mode mode (lambda () (operator input)))
-                output)))
-            inputs outputs)))
+             (lambda ()
+               (with-test-properties
+                   (lambda ()
+                     (assert-eqv
+                      (flo:with-rounding-mode mode
+                        (lambda () (operator input)))
+                      output))
+                 'EXPRESSION `(,name ,input))))
+           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