improved message a little

svn: r7949
2007-12-11 04:38:32 +00:00 · 2007-12-11 04:38:32 +00:00 · 4aa8ab35e4
commit 4aa8ab35e4
parent 29318f1be2
1 changed files with 3 additions and 1 deletions
--- 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])]