From 4aa8ab35e4d76a3c3291ac9bcddc934b8abe5bf8 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 11 Dec 2007 04:38:32 +0000 Subject: [PATCH] improved message a little svn: r7949 --- collects/htdp/testing.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/htdp/testing.ss b/collects/htdp/testing.ss index aecda2dcc3..9065540432 100644 --- a/collects/htdp/testing.ss +++ b/collects/htdp/testing.ss @@ -172,7 +172,9 @@ (let* ([num-failed-tests (length failed-check)]) (cond [(zero? num-failed-tests) - (fprintf (current-error-port) "All checks succeeded!\n")] + (fprintf (current-error-port) "All ~a check~a succeeded!\n" + num-checks + (if (= 1 num-checks) "" "s"))] [else (let* ([my-text (new (editor:standard-style-list-mixin text%))] [my-frame (new frame% [label "Test Results"][width 300] [height 200])]