From ddb2e106a049c4c5b17ebd69148bfcf451f66333 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Wed, 16 Sep 2009 13:05:54 +0000 Subject: [PATCH] Turning off the nag svn: r16022 --- collects/test-engine/test-engine.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/test-engine/test-engine.scm b/collects/test-engine/test-engine.scm index 87a638c80e..f4ac8088c3 100644 --- a/collects/test-engine/test-engine.scm +++ b/collects/test-engine/test-engine.scm @@ -125,11 +125,13 @@ (define display-class test-display-textual%) (define display-rep #f) (define display-event-space #f) + (define silent-mode #t) (super-instantiate ()) (define/public (refine-display-class d) (set! display-class d)) (define/public (info-class) test-info-base%) + (define/public (set-silence! t) (set! silent-mode t)) (define/public (add-analysis a) (send test-info add-analysis a)) @@ -169,7 +171,8 @@ (send test-display display-success-summary port count)) (define/public (display-untested port) - (send test-display display-untested-summary port)) + (unless silent-mode + (send test-display display-untested-summary port))) (define/public (display-disabled port) (send test-display display-disabled-summary port))