diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-10 23:36:56 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-10 23:36:56 +0200 |
commit | f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9 (patch) | |
tree | dcc40399f08285a9a308079098e735fb5bf192bd /tests/run-tests.scm | |
parent | Add of-type? to (hnh util type). (diff) | |
download | calp-f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9.tar.gz calp-f7b18cc72dd5b2ca90b6670dbe81c3ef3204d6d9.tar.xz |
Resolve recursive macros.
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) |