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

test-command-line-arguments (Issue #18)

Browse Source
This commit is contained in:
Spencer Florence 2015-01-13 12:41:26 -05:00
parent cba00ee2ad
commit 2a61c5fb73
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cover.rkt
View File

@ -61,7 +61,7 @@
(define to-run (if (module-declared? submod) submod file)) (define to-run (if (module-declared? submod) submod file))
(vprintf "running ~s\n" to-run) (vprintf "running ~s\n" to-run)
(namespace-require to-run) (namespace-require to-run)
(vprintf "finished running ~s" to-run)))) (vprintf "finished running ~s\n" to-run))))
(vprintf "ran ~s\n" paths) (vprintf "ran ~s\n" paths)
(not tests-failed))) (not tests-failed)))

5
main.rkt
View File

@ -6,7 +6,10 @@
[coverage/c contract?] [coverage/c contract?]
[file-coverage/c contract?] [file-coverage/c contract?]
[test-files! (->* () (#:submod symbol?) [test-files! (->* () (#:submod symbol?)
#:rest (listof (or/c path-string? #:rest (lisdtof path-string?)
;; TODO when we figure out the contract issue we will change this
#;
(listof (or/c path-string?
(list/c path-string? (vectorof string?)))) (list/c path-string? (vectorof string?))))
any)] any)]
[clear-coverage! (-> any)] [clear-coverage! (-> any)]

2
raco.rkt
View File

@ -4,7 +4,7 @@
racket/match racket/match
racket/contract/base racket/contract/base
racket/function racket/function
"main.rkt" "cover.rkt"
(only-in "private/contracts.rkt" coverage-gen/c) (only-in "private/contracts.rkt" coverage-gen/c)
"private/shared.rkt" "private/shared.rkt"
"private/file-utils.rkt" "private/file-utils.rkt"