[functional-tests] Don't reiterate the failures if there were no

successes.
This commit is contained in:
Joe Thornber 2017-09-15 12:48:34 +01:00
parent a424417475
commit 9ba75c890b

View File

@ -158,7 +158,7 @@
(begin (inc! fail) (begin (inc! fail)
(set! fail-keys (cons keys fail-keys)) (set! fail-keys (cons keys fail-keys))
(dsp "fail")))))) (dsp "fail"))))))
(unless (zero? fail) (unless (or (zero? fail) (zero? pass))
(fmt #t nl (dsp "There were failures:") nl) (fmt #t nl (dsp "There were failures:") nl)
(fmt-scenarios fail-keys (fmt-scenarios fail-keys
(lambda (_) (lambda (_)