Fix one of the test-outcome messages.

This commit is contained in:
Mike Sperber 2010-06-09 10:46:56 +02:00
parent 30f9cd0dab
commit 7269b2a1c1

View File

@ -142,7 +142,7 @@
[else (format (string-append [else (format (string-append
(if ck? (if ck?
(string-constant test-engine-m-of-n-checks-failed) (string-constant test-engine-m-of-n-checks-failed)
(string-constant test-engine-0-tests-passed)) (string-constant test-engine-m-of-n-tests-failed))
"\n\n") "\n\n")
failed total)]))) failed total)])))
(send editor insert (send editor insert