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

Add export-count tests

Browse Source
This commit is contained in:
JackFirth 2015-02-22 20:45:43 -08:00
parent 41d947ecf8
commit d2af694eb5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
doc-coverage/export-count.rkt
View File

@ -1,6 +1,7 @@
#lang racket #lang racket
(require "export-lists.rkt") (require rackunit
"export-lists.rkt")
(provide module-num-exports (provide module-num-exports
module-num-documented-exports module-num-documented-exports
@ -11,6 +12,14 @@
(define module-num-documented-exports (compose length module->documented-exported-names)) (define module-num-documented-exports (compose length module->documented-exported-names))
(define module-num-undocumented-exports (compose length module->undocumented-exported-names)) (define module-num-undocumented-exports (compose length module->undocumented-exported-names))
(module+ test
(check-eqv? (module-num-exports 'racket/match) 28)
(check-eqv? (module-num-documented-exports 'racket/match) 27)
(check-eqv? (module-num-undocumented-exports 'racket/match) 1))
(define (module-documentation-ratio mod) (define (module-documentation-ratio mod)
(/ (module-num-documented-exports mod) (/ (module-num-documented-exports mod)
(module-num-exports mod))) (module-num-exports mod)))
(module+ test
(check-eqv? (module-documentation-ratio 'racket/match) (/ 27 28)))