[functional-tests] only repeat failures if there are some :)

This commit is contained in:
Joe Thornber 2017-08-23 10:08:28 +01:00
parent 52f17c3230
commit 029db28b3b

View File

@ -237,10 +237,11 @@
(begin (inc! fail) (begin (inc! fail)
(set! fail-keys (cons keys fail-keys)) (set! fail-keys (cons keys fail-keys))
(dsp "fail")))))) (dsp "fail"))))))
(fmt #t nl (dsp "There were failures:") nl) (unless (zero? fail)
(fmt-scenarios fail-keys (fmt #t nl (dsp "There were failures:") nl)
(lambda (_) (fmt-scenarios fail-keys
(dsp "fail"))) (lambda (_)
(dsp "fail"))))
(fmt #t (cat nl (fmt #t (cat nl
(num pass) (num pass)
(dsp "/") (dsp "/")