[functional-tests] tweak output

This commit is contained in:
Joe Thornber 2017-08-22 09:47:00 +01:00
parent 5384d75351
commit 61c4a14c65

View File

@ -236,11 +236,11 @@
(dsp "pass")) (dsp "pass"))
(begin (inc! fail) (begin (inc! fail)
(set! fail-keys (cons keys fail-keys)) (set! fail-keys (cons keys fail-keys))
(dsp "FAIL")))))) (dsp "fail"))))))
(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 (_)
(dsp "FAIL"))) (dsp "fail")))
(fmt #t (cat nl (fmt #t (cat nl
(num pass) (num pass)
(dsp "/") (dsp "/")