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

fixed a contract bug

Browse Source
This commit is contained in:
Spencer Florence 2015-01-02 14:48:52 -05:00
parent c5ab859fb7
commit e4175e3f7b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
main.rkt
View File

@ -3,7 +3,7 @@
racket/contract) racket/contract)
(provide (provide
(contract-out (contract-out
[test-files! (->* () () #:rest path-string? any/c)] [test-files! (->* () () #:rest (listof path-string?) any/c)]
[clear-coverage! (-> any)] [clear-coverage! (-> any)]
[get-test-coverage (-> coverage/c)] [get-test-coverage (-> coverage/c)]
[make-covered? [make-covered?

3
tests/main.rkt
View File

@ -3,7 +3,8 @@
;; for every .rkt file in those directories it loads ;; for every .rkt file in those directories it loads
;; tests that file and checks its coverage against an ;; tests that file and checks its coverage against an
;; .rktl file of the same name ;; .rktl file of the same name
(require "../cover.rkt" racket/runtime-path rackunit) (require (only-in "../main.rkt" test-files! clear-coverage! get-test-coverage)
racket/runtime-path rackunit)
(define (test-dir d) (define (test-dir d)
(define files (define files