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

Add some basic tests.

Browse Source
This commit is contained in:
Leif Andersen 2015-12-31 11:36:42 -07:00
parent 72bc2af41a
commit ab9aad6783
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
doc-coverage/raco.rkt
View File

@ -5,6 +5,11 @@
rackunit/docs-complete rackunit/docs-complete
"main.rkt") "main.rkt")
(module+ test
(require rackunit
rackunit/text-ui
compiler/find-exe))
; do-ignore! : (U string symbol) regex -> boolean ; do-ignore! : (U string symbol) regex -> boolean
(define (do-ignore! mod ignore) (define (do-ignore! mod ignore)
(error "Ignore not implemented yet") (error "Ignore not implemented yet")
@ -95,3 +100,18 @@
(when (error-on-exit?) (when (error-on-exit?)
(exit 1))) (exit 1)))
(module+ test
(check-equal?
(with-output-to-string
(lambda () (system* (find-exe) "-l" "raco" "doc-coverage" "racket/base")))
"Module racket/base is missing documentation for: (expand-for-clause for-clause-syntax-protect syntax-pattern-variable?)\n")
(check-equal?
(with-output-to-string
(lambda () (system* (find-exe) "-l" "raco" "doc-coverage" "-r" "0.5" "racket/match")))
"Module racket/match document ratio: 28/29\n")
(check-equal?
(with-output-to-string
(lambda () (system* (find-exe) "-l" "raco" "doc-coverage" "-b" "match" "racket")))
"Module racket has documentation for match\n"))