From 9ba75c890b5c0580678b9227346778521f005cb5 Mon Sep 17 00:00:00 2001 From: Joe Thornber Date: Fri, 15 Sep 2017 12:48:34 +0100 Subject: [PATCH] [functional-tests] Don't reiterate the failures if there were no successes. --- functional-tests/functional-tests.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/functional-tests/functional-tests.scm b/functional-tests/functional-tests.scm index 063be20..f5551d2 100644 --- a/functional-tests/functional-tests.scm +++ b/functional-tests/functional-tests.scm @@ -158,7 +158,7 @@ (begin (inc! fail) (set! fail-keys (cons keys fail-keys)) (dsp "fail")))))) - (unless (zero? fail) + (unless (or (zero? fail) (zero? pass)) (fmt #t nl (dsp "There were failures:") nl) (fmt-scenarios fail-keys (lambda (_)