From a2988fb35f7c61041d094ca202dbc1e4baecde2f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 12 Jun 2022 23:02:23 +0200 Subject: Update test-runner to display a tree for groups. --- tests/run-tests.scm | 20 +++++++++++++++----- 1 file 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) -- cgit v1.2.3