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

2017-08-23 10:08:28 +01:00 · 2017-08-23 10:08:28 +01:00 · 029db28b3b
commit 029db28b3b
parent 52f17c3230
1 changed files with 5 additions and 4 deletions
--- a/functional-tests/functional-tests.scm
+++ b/functional-tests/functional-tests.scm
@ -237,10 +237,11 @@
                            (begin (inc! fail)
                                   (set! fail-keys (cons keys fail-keys))
                                   (dsp "fail"))))))
-      (fmt #t nl (dsp "There were failures:") nl)
-      (fmt-scenarios fail-keys
-                     (lambda (_)
-                       (dsp "fail")))
+      (unless (zero? fail)
+        (fmt #t nl (dsp "There were failures:") nl)
+        (fmt-scenarios fail-keys
+                       (lambda (_)
+                         (dsp "fail"))))
      (fmt #t (cat nl
                   (num pass)
                   (dsp "/")