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