fixed -c error

Closes #1.

compiler-lib/compiler/commands/test.rkt

@@ -637,8 +637,12 @@
 (module paths racket/base
   (require setup/link
            racket/match
+           setup/collection-name
+           raco/command-name
            racket/list)
 
+  (define test-exe-name (string->symbol (short-program+command-name)))
+
   (struct col (name path) #:transparent)
 
   (define (get-linked file user? version?)
@@ -681,6 +685,8 @@
   ;; This should be in Racket somewhere and return all the collection
   ;; paths, rather than just the first as collection-path does.
   (define (collection-paths c)
+    (when (not (collection-name? c))
+      (error test-exe-name "not a collection name in: ~a" c))
     (match-define (list-rest sc more) (map path->string (explode-path c)))
     (append*
      (for/list ([col (all-collections)]

compiler-test/info.rkt

@@ -9,6 +9,7 @@
 (define pkg-authors '(mflatt))
 (define build-deps '("compiler-lib"
                      "eli-tester"
+                     "rackunit-lib"
                      "net-lib"
                      "scheme-lib"
                      "compatibility-lib"

compiler-test/tests/compiler/commands/test.rkt

@@ -0,0 +1,5 @@
+#lang racket
+(require rackunit)
+(require (only-in (submod compiler/commands/test paths) collection-paths))
+
+(check-exn exn? (lambda () (collection-paths ".")))