[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"))
(begin (inc! fail)
(set! fail-keys (cons keys fail-keys))
(dsp "FAIL"))))))
(dsp "fail"))))))
(fmt #t nl (dsp "There were failures:") nl)
(fmt-scenarios fail-keys
(lambda (_)
(dsp "FAIL")))
(dsp "fail")))
(fmt #t (cat nl
(num pass)
(dsp "/")