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

made two methods public to fix error messages

Browse Source 
svn: r14946
This commit is contained in:
John Clements 2009-05-22 22:28:18 +00:00
parent b087ce2765
commit 9640e1571c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/test-engine/test-engine.scm
View File

@ -87,11 +87,11 @@
[else (format "All ~a" count)]) [else (format "All ~a" count)])
(if (= count 1) "" "s")))) (if (= count 1) "" "s"))))
(define (display-untested-summary port) (define/public (display-untested-summary port)
(unless (test-silence) (unless (test-silence)
(fprintf port "This program should be tested.~n"))) (fprintf port "This program should be tested.~n")))
(define (display-disabled-summary port) (define/public (display-disabled-summary port)
(fprintf port "Tests disabled.\n")) (fprintf port "Tests disabled.\n"))
(define/public (next-line) (printf "~a" "\n\t")) (define/public (next-line) (printf "~a" "\n\t"))