suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improved message a little

Browse Source 
svn: r7949
This commit is contained in:
Robby Findler 2007-12-11 04:38:32 +00:00
parent 29318f1be2
commit 4aa8ab35e4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/htdp/testing.ss
View File

@ -172,7 +172,9 @@
(let* ([num-failed-tests (length failed-check)]) (let* ([num-failed-tests (length failed-check)])
(cond (cond
[(zero? num-failed-tests) [(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 [else
(let* ([my-text (new (editor:standard-style-list-mixin text%))] (let* ([my-text (new (editor:standard-style-list-mixin text%))]
[my-frame (new frame% [label "Test Results"][width 300] [height 200])] [my-frame (new frame% [label "Test Results"][width 300] [height 200])]