From 9fd27bb280d802541c0efdd1621536c9203e2104 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 8 Nov 2018 18:30:27 +0000 Subject: [PATCH] Show the expression too. --- tests/runtime/test-floenv.scm | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) 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 -- 2.25.1