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

cover.rkt

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

main.rkt

@@ -6,7 +6,10 @@
   [coverage/c contract?]
   [file-coverage/c contract?]
   [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?))))
                     any)]
   [clear-coverage! (-> any)]

raco.rkt

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