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

added a printout when tests are disabled

Browse Source 
svn: r12422
This commit is contained in:
Robby Findler 2008-11-13 05:34:56 +00:00
parent 3abe7d6bea
commit c1a98ca9ac
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,17 +129,20 @@
(unless test-info (setup-info 'check-base))
(inner (void) run)))
(define/public (summarize-results port)
(when (test-execute)
(unless test-display (setup-display #f #f))
(let ([result (send test-info summarize-results)])
(send test-display install-info test-info)
(case result
[(no-tests) (display-untested port)]
[(all-passed) (display-success port display-event-space
(+ (send test-info tests-run)
(send test-info checks-run)))]
[(mixed-results)
(display-results display-rep display-event-space)]))))
(cond
[(test-execute)
(unless test-display (setup-display #f #f))
(let ([result (send test-info summarize-results)])
(send test-display install-info test-info)
(case result
[(no-tests) (display-untested port)]
[(all-passed) (display-success port display-event-space
(+ (send test-info tests-run)
(send test-info checks-run)))]
[(mixed-results)
(display-results display-rep display-event-space)]))]
[else
(fprintf port "Tests disabled.\n")]))
(define/private (display-success port event count)
#;(when event