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)))
 
@@ -131,7 +131,7 @@
     (filter values
             (for/list ([(stx covered?) (get-raw-coverage)])
               (and (syntax? stx)
-                   (let* ([orig-src  (syntax-source stx)]
+                   (let* ([orig-src (syntax-source stx)]
                           [src (if (path? orig-src) (path->string orig-src) orig-src)]
                           [pos (syntax-position stx)]
                           [span (syntax-span stx)])

main.rkt

@@ -6,8 +6,11 @@
   [coverage/c contract?]
   [file-coverage/c contract?]
   [test-files! (->* () (#:submod symbol?)
-                    #:rest (listof (or/c path-string?
+                    #:rest (lisdtof path-string?)
-                                         (list/c path-string? (vectorof 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)]
   [get-test-coverage (-> coverage/c)]

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"