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

Turning off the nag

Browse Source 
svn: r16022
This commit is contained in:
Kathy Gray 2009-09-16 13:05:54 +00:00
parent 2c3b70bf6d
commit ddb2e106a0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,11 +125,13 @@
(define display-class test-display-textual%) (define display-class test-display-textual%)
(define display-rep #f) (define display-rep #f)
(define display-event-space #f) (define display-event-space #f)
(define silent-mode #t)
(super-instantiate ()) (super-instantiate ())
(define/public (refine-display-class d) (set! display-class d)) (define/public (refine-display-class d) (set! display-class d))
(define/public (info-class) test-info-base%) (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)) (define/public (add-analysis a) (send test-info add-analysis a))
@ -169,7 +171,8 @@
(send test-display display-success-summary port count)) (send test-display display-success-summary port count))
(define/public (display-untested port) (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) (define/public (display-disabled port)
(send test-display display-disabled-summary port)) (send test-display display-disabled-summary port))