commit ab9aad67839f0c0aa9248302b1c66d016aa95bfa parent 72bc2af41a1433c4386fd84679c584ed7b9f4745 Author: Leif Andersen <leif@leifandersen.net> Date: Thu, 31 Dec 2015 11:36:42 -0700 Add some basic tests. Diffstat:
| M | doc-coverage/raco.rkt | | | 20 | ++++++++++++++++++++ |
1 file changed, 20 insertions(+), 0 deletions(-)
diff --git a/doc-coverage/raco.rkt b/doc-coverage/raco.rkt @@ -5,6 +5,11 @@ rackunit/docs-complete "main.rkt") +(module+ test + (require rackunit + rackunit/text-ui + compiler/find-exe)) + ; do-ignore! : (U string symbol) regex -> boolean (define (do-ignore! mod ignore) (error "Ignore not implemented yet") @@ -95,3 +100,18 @@ (when (error-on-exit?) (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")) +