print skipped tests in verbose mode

This commit is contained in:
Alex Shinn 2020-07-15 16:33:52 +09:00
parent fc33d6ffa3
commit 9104fcc44e

View file

@ -549,7 +549,6 @@
((or (eq? status 'FAIL) (eq? status 'ERROR))
(test-failure-count (+ 1 (test-failure-count)))))
(cond
((eq? status 'SKIP))
((test-group-ref (current-test-group) 'verbose)
;; display status
(display "[")
@ -558,6 +557,7 @@
(display "]")
(newline)
(test-print-failure indent status info))
((eq? status 'SKIP))
(else
(display (test-status-code status))
(cond