diff options
Diffstat (limited to 'tests/run-tests.scm')
| -rwxr-xr-x | tests/run-tests.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |