From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 8 Nov 2018 18:30:27 +0000 (+0000)
Subject: Show the expression too.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~116^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9fd27bb280d802541c0efdd1621536c9203e2104;p=mit-scheme.git

Show the expression too.
---

diff --git a/tests/runtime/test-floenv.scm b/tests/runtime/test-floenv.scm
index b60e582f0..ebcfc42df 100644
--- 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