diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-12 23:02:23 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-12 23:02:23 +0200 |
commit | a2988fb35f7c61041d094ca202dbc1e4baecde2f (patch) | |
tree | dc80fe9cc8acd78e2ac34ffd300a47dcc113ada1 /tests | |
parent | Fix timespec. (diff) | |
download | calp-a2988fb35f7c61041d094ca202dbc1e4baecde2f.tar.gz calp-a2988fb35f7c61041d094ca202dbc1e4baecde2f.tar.xz |
Update test-runner to display a tree for groups.
Diffstat (limited to '')
-rwxr-xr-x | tests/run-tests.scm | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 008090d0..e9d93279 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -55,12 +55,15 @@ fi (define (construct-test-runner) (define runner (test-runner-null)) + (define depth 0) ;; end of individual test case (test-runner-on-test-begin! runner (lambda (runner) (test-runner-aux-value! runner (transform-time-of-day (gettimeofday))))) (test-runner-on-test-end! runner (lambda (runner) + (when (verbose?) + (display (make-string (* 2 depth) #\space))) (case (test-result-kind runner) ((pass) (display (green "X"))) ((fail) (newline) (display (red "E"))) @@ -97,12 +100,19 @@ fi (test-runner-on-group-begin! runner ;; count is number of #f (lambda (runner name count) - (format #t "~a ~a ~a~%" - (make-string 10 #\=) - name - (make-string 10 #\=)))) + (if (<= depth 1) + (format #t "~a ~a ~a~%" + (make-string 10 #\=) + name + (make-string 10 #\=)) + (when (verbose?) + (format #t "~a~a~%" (make-string (* depth 2) #\space) name))) + (set! depth (1+ depth)))) (test-runner-on-group-end! runner - (lambda (runner) (newline))) + (lambda (runner) + (set! depth (1- depth)) + (when (<= depth 1) + (newline)))) ;; after everything else is done (test-runner-on-final! runner (lambda (runner) |