diff options
Diffstat (limited to 'tests/run-tests.scm')
| -rwxr-xr-x | tests/run-tests.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 3955a6a2..7f7ccfcd 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -79,6 +79,8 @@ fi ;; end of individual test case (test-runner-on-test-begin! runner (lambda (runner) + #; + (set-current-error-port (open-output-string)) (test-runner-aux-value! runner (transform-time-of-day (gettimeofday))))) (test-runner-on-test-end! runner (lambda (runner) @@ -97,7 +99,14 @@ fi => (lambda (p) (with-output-to-string (lambda () (display (bold "[SOURCE]: ")) - (truncated-print p width: 60)))))))) + (truncated-print p width: 60))))) + (else (bold "[UNNAMED ASSERTION]"))))) + #; + (when verbose? + (display + (map (lambda (line) (string-append (make-indent (1+ depth)) "> " line "\n")) + (string-split (get-output-string (current-error-port)) #\n))) + (newline)) (when (eq? 'fail (test-result-kind)) (cond ((test-result-ref runner 'actual-error) => (lambda (err) |