diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-28 23:47:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:14:09 +0200 |
| commit | 68a3f239c67c8801c784132ce730d6c6575e075f (patch) | |
| tree | 9076067cf276a31035c893c05ff1aa63a3d73456 | |
| parent | Change run-tests shebang. (diff) | |
| download | calp-68a3f239c67c8801c784132ce730d6c6575e075f.tar.gz calp-68a3f239c67c8801c784132ce730d6c6575e075f.tar.xz | |
Automatic test name now narrower.
Truncated-width defaults to 79 chars, which is to wide with our padding
and tree structure to the left.
| -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) |