diff --git a/doc-coverage/export-count.rkt b/doc-coverage/export-count.rkt index 3925d93..f1af5c6 100644 --- a/doc-coverage/export-count.rkt +++ b/doc-coverage/export-count.rkt @@ -1,6 +1,7 @@ #lang racket -(require "export-lists.rkt") +(require rackunit + "export-lists.rkt") (provide module-num-exports module-num-documented-exports @@ -11,6 +12,14 @@ (define module-num-documented-exports (compose length module->documented-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) (/ (module-num-documented-exports mod) (module-num-exports mod))) + +(module+ test + (check-eqv? (module-documentation-ratio 'racket/match) (/ 27 28))) \ No newline at end of file