From 029db28b3b8957d69aba4c2d307ed2526c108b51 Mon Sep 17 00:00:00 2001
From: Joe Thornber <ejt@redhat.com>
Date: Wed, 23 Aug 2017 10:08:28 +0100
Subject: [PATCH] [functional-tests] only repeat failures if there are some :)

---
 functional-tests/functional-tests.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/functional-tests/functional-tests.scm b/functional-tests/functional-tests.scm
index d3f4bb0..56758ba 100644
--- 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 "/")