From 68a3f239c67c8801c784132ce730d6c6575e075f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 28 Jun 2022 23:47:29 +0200 Subject: Automatic test name now narrower. Truncated-width defaults to 79 chars, which is to wide with our padding and tree structure to the left. --- tests/run-tests.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 13fa171e..b4ff6aa0 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -75,7 +75,7 @@ fi (cond ((test-runner-test-name runner) (negate string-null?) => identity) ((test-result-ref runner 'expected-value) - => (lambda (p) (with-output-to-string (lambda () (display (bold "[SOURCE]: ")) (truncated-print p)))))))) + => (lambda (p) (with-output-to-string (lambda () (display (bold "[SOURCE]: ")) (truncated-print p width: 60)))))))) (when (eq? 'fail (test-result-kind)) (cond ((test-result-ref runner 'actual-error) => (lambda (err) -- cgit v1.2.3