Remove build location from the test zo to satisfy zo-path

2012-12-08 07:14:28 -07:00 · 2012-12-08 07:14:28 -07:00 · 1d36492f51
commit 1d36492f51
parent 0845e74d27
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/planet2/test.rkt
+++ b/collects/tests/planet2/test.rkt
@ -13,7 +13,7 @@
         ([(tests-f ...)
           (for/list ([f-stx (in-list (syntax->list #'(f ...)))])
             (define f (syntax->datum f-stx))
-             `(file ,(path->string (build-path test-directory (format "tests-~a.rkt" f)))))])
+             `(file ,(format "tests-~a.rkt" f)))])
       (syntax/loc stx
         (run-tests*
          (list (let ()