From 9640e1571cd5783a6fc8e041ddb8147091b2d981 Mon Sep 17 00:00:00 2001 From: John Clements Date: Fri, 22 May 2009 22:28:18 +0000 Subject: [PATCH] made two methods public to fix error messages svn: r14946 --- collects/test-engine/test-engine.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/test-engine/test-engine.scm b/collects/test-engine/test-engine.scm index 361837844c..87a638c80e 100644 --- a/collects/test-engine/test-engine.scm +++ b/collects/test-engine/test-engine.scm @@ -87,11 +87,11 @@ [else (format "All ~a" count)]) (if (= count 1) "" "s")))) - (define (display-untested-summary port) + (define/public (display-untested-summary port) (unless (test-silence) (fprintf port "This program should be tested.~n"))) - (define (display-disabled-summary port) + (define/public (display-disabled-summary port) (fprintf port "Tests disabled.\n")) (define/public (next-line) (printf "~a" "\n\t"))