Fix raco test on relative paths.

original commit: 3a025efcce
2014-01-06 18:00:29 -05:00 · 2014-01-06 18:00:29 -05:00 · 02cafbccb6
commit 02cafbccb6
parent a536f2adeb
1 changed files with 3 additions and 1 deletions
--- a/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
+++ b/pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
@ -735,7 +735,9 @@
                #f
                (path->collects-relative p #:cache collects-cache)))
  (when (list? c)
-    (check-info/parents base
+    (check-info/parents (if (path? base)
+                            (path->complete-path base)
+                            (current-directory)) ; got 'relative
                        (apply build-path (map bytes->path (reverse (cdr (reverse (cdr c)))))))))

 (define (normalize-info-path p)