[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)
(set! fail-keys (cons keys fail-keys))
(dsp "fail"))))))
(unless (zero? fail)
(fmt #t nl (dsp "There were failures:") nl)
(fmt-scenarios fail-keys
(lambda (_)
(dsp "fail")))
(dsp "fail"))))
(fmt #t (cat nl
(num pass)
(dsp "/")