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

Add check tests in positive case

Browse Source
This commit is contained in:
JackFirth 2015-02-22 21:16:44 -08:00
parent 91a6e7feac
commit 5d6fde455b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
doc-coverage/export-tests.rkt
View File

@ -11,12 +11,19 @@
(define (fail-check-unless cond msg) (define (fail-check-unless cond msg)
(unless cond (fail-check msg))) (unless cond (fail-check msg)))
(module+ test
(check-exn exn:test:check?
(thunk (fail-check-unless #f "test"))))
(define-check (check-all-documented module-name) (define-check (check-all-documented module-name)
(let* ([undocumented (module->undocumented-exported-names module-name)] (let* ([undocumented (module->undocumented-exported-names module-name)]
[num-undocumented (length undocumented)]) [num-undocumented (length undocumented)])
(fail-check-unless (zero? num-undocumented) (fail-check-unless (zero? num-undocumented)
(check-all-documented-message module-name num-undocumented undocumented)))) (check-all-documented-message module-name num-undocumented undocumented))))
(module+ test
(check-not-exn (thunk check-all-documented 'racket/promise)))
(define (check-all-documented-message module-name num-undocumented undocumented) (define (check-all-documented-message module-name num-undocumented undocumented)
(string-append "Module " (string-append "Module "
(symbol->string module-name) (symbol->string module-name)
@ -35,6 +42,9 @@
(fail-check-unless (has-docs? module-name binding) (fail-check-unless (has-docs? module-name binding)
(check-documented-message module-name binding))) (check-documented-message module-name binding)))
(module+ test
(check-not-exn (thunk (check-documented 'racket/match 'match))))
(define (check-documented-message module-name binding) (define (check-documented-message module-name binding)
(string-append "Module " (string-append "Module "
(symbol->string module-name) (symbol->string module-name)